📄 group_report.asp
字号:
<%@ LANGUAGE = VBScript.Encode %><!--#include file="../../inc/verify_user.inc" -->
<!--#include file="../../inc/conn.inc" -->
<%
dim group_id(50),group_name(50),today_show_stat(50),today_hit_stat(50),today_hit_rate(50)
Set rs = Server.CreateObject("ADODB.Recordset")
if instr(session("global_access"),"H")<>0 then
sql="select group_name,group_id from group_info order by group_id Desc"
rs.open sql,conn,0,1
else
psql="exec psql_select_access_group " + cstr(session("userid"))
rs.open psql,conn,0,1
end if
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="today_group_stat"
cmd.CommandType=&H0004
cmd.Parameters.Append cmd.CreateParameter("@group_id",3)
cmd.Parameters.Append cmd.CreateParameter("@stat_date",135)
cmd.Parameters.Append cmd.CreateParameter("@today_show_stat",3,2)
cmd.Parameters.Append cmd.CreateParameter("@today_hit_stat",3,2)
i=0
max_today_show_stat=1
max_today_hit_stat=1
max_today_hit_rate=0
do while not rs.eof
i=i+1
group_id(i)=rs("group_id")
group_name(i)=rs("group_name")
cmd("@group_id")=rs("group_id")
cmd("@stat_date")=cdate(formatdatetime(now,2))
cmd.execute
if isnull(cmd("@today_show_stat")) then
today_show_stat(i)=0
today_hit_stat(i)=0
today_hit_rate(i)=0
else
today_show_stat(i)=cmd("@today_show_stat")
today_hit_stat(i)=cmd("@today_hit_stat")
today_hit_rate(i)=cmd("@today_hit_stat")/cmd("@today_show_stat")
end if
if today_show_stat(i)>=max_today_show_stat then max_today_show_stat=today_show_stat(i)
if today_hit_stat(i)>=max_today_hit_stat then max_today_hit_stat=today_hit_stat(i)
if today_hit_rate(i)>=max_today_hit_rate then max_today_hit_rate=today_hit_rate(i)
rs.movenext
loop
rs.close
if max_today_hit_rate=0 then max_today_hit_rate=1
group_count=i
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../css/ads.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="../../inc/top.inc" -->
<p> </p>
<p><b><img src="../../images/iico.gif" width="15" height="15" align="absmiddle">
<span class="px14">今日基本组别统计，点击组别名查看详细统计报告：</span></b></p>
<table width="623" border="0" cellspacing="1" cellpadding="3" class="px14" bgcolor="#000000">
<tr bgcolor="#000099">
<td width="148">
<div align="center"><font color="#FFFFFF">广告组别</font></div>
</td>
<td width="150">
<div align="center"><font color="#FFFFFF">今日显示次数</font></div>
</td>
<td width="143">
<div align="center"><font color="#FFFFFF">今日点击次数</font></div>
</td>
<td width="153">
<div align="center"><font color="#FFFFFF">今日点击率</font></div>
</td>
</tr>
<% if group_count=0 then %>
<tr bgcolor="#eeeeee">
<td colspan="5"><b><font color="#FF0000">目前还没有任何您具备权限查看统计报表的广告组或还未添加任何广告组。</font></b></td>
</tr>
<% end if %>
<% for i=1 to group_count %>
<tr bgcolor="#eeeeee">
<td width="148" class="pt9"><a href="group_report_summary.asp?group_id=<%=group_id(i)%>"><%=group_name(i)%></a></td>
<td width="150" class="pt9"><img src="../../images/color_purple.gif" width="<%=int(today_show_stat(i)/max_today_show_stat*80)%>" height="10" border="1">
<%=today_show_stat(i)%></td>
<td width="143" class="pt9"><img src="../../images/color_purple.gif" width="<%=int(today_hit_stat(i)/max_today_hit_stat*80)%>" height="10" border="1">
<%=today_hit_stat(i)%></td>
<td width="153" class="pt9"><img src="../../images/color_purple.gif" width="<%=int(today_hit_rate(i)/max_today_hit_rate*80)%>" height="10" border="1">
<%=formatnumber(today_hit_rate(i)*100,2)%>%</td>
</tr>
<%
next
%>
</table>
<p><img src="../../images/exclaim.gif" width="16" height="15" align="absmiddle">
<span class="pt9">以上全部统计数据为实时数据</span> </p>
<p> </p>
<p> </p>
<p> </p>
<!--#include file="../../inc/bottom.inc" -->
</body>
</html>
<%
set cmd=nothing
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -