📄 qqcf_aduser_manage_3.asp
字号:
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条</div></td>
<form name="form1" method="post" action="?">
<td valign="top">
<Select name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&ViewadEffect="&ViewadEffect&"&Ad_ID="&Ad_ID&"&AddDate="&AddDate&"&Px="&Px&"&Page="&I
If Page=i Then Response.Write " selected"
Response.Write ">转到第"& I &"页</option>"
Next
%>
</select>
</td>
</form>
</tr>
</table>
<%End If%>
<%If Action="viewadeffect" And ViewAdEffect="daytj" Then%>
<%
Sql="Select Sum(Display_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID
Set Rs=Conn.Execute(Sql)
TotalShowCount=Rs(0)
Sql="Select Sum(Click_2_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID
Set Rs=Conn.Execute(Sql)
TotalClickCount=Rs(0)
Sql="Select Sum(Reg_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID
Set Rs=Conn.Execute(Sql)
TotalRegCount=Rs(0)
Sql="Select AddDate From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID&" Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not Rs.eof Then
If Not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
Page=1
Else
Page=Int(Abs(Request("Page")))
End if
Rs.pagesize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td colspan="4"><div align="center"><strong>每日报表(以此表数据为准)</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="60"><div align="center"><strong>日 期</strong></div></td>
<td width="540"><div align="center"><strong>比例</strong></div></td>
<td width="60"><div align="center"><strong>点击率</strong></div></td>
<td width="100"><div align="center"><strong>详细推广记录</strong></div></td>
</tr>
<%
Sql="Select Sum(Display_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID
Set Rs2=Conn.Execute(Sql)
AllDayShowCount=Rs2(0)
Sql="Select Sum(Click_2_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID
Set Rs2=Conn.Execute(Sql)
AllDayClickCount=Rs2(0)
Sql="Select Sum(Reg_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID
Set Rs2=Conn.Execute(Sql)
AllDayRegCount=Rs2(0)
AllDayTotal=0
AllDayTotal=AllDayShowCount+AllDayClickCount+AllDayRegCount
If AllDayTotal=0 Then AllDayTotal=1
While Not Rs.Eof And MyPageSize>0
Sql="Select Sum(Display_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID&" And DateDiff('d',AddDate,'"&Rs("AddDate")&"')=0"
Set Rs2=Conn.Execute(Sql)
Display_Counter=Rs2(0)
Sql="Select Sum(Click_2_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID&" And DateDiff('d',AddDate,'"&Rs("AddDate")&"')=0"
Set Rs2=Conn.Execute(Sql)
Click_Counter=Rs2(0)
Sql="Select Sum(Reg_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&Ad_ID&" And DateDiff('d',AddDate,'"&Rs("AddDate")&"')=0"
Set Rs2=Conn.Execute(Sql)
Reg_Counter=Rs2(0)
%>
<tr
<%
If Mypagesize Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td><div align="center"><%=Rs("AddDate")%></div></td>
<td> <img src=QQCf_Pic/QQCf_RedBar.gif width=<%=Display_Counter/AllDayTotal*350%> height=10><%=Display_Counter%><br> <img src=QQCf_Pic/QQCf_GreenBar.gif width=<%=Click_Counter/AllDayTotal*350%> height=10><%=Click_Counter%><br> <img src=QQCf_Pic/QQCf_BlueBar.gif width=<%=Reg_Counter/AllDayTotal*350%> height=10><%=Reg_Counter%><br> </td>
<td><div align="center"><%=MyRate(Click_Counter,Display_Counter)%>%</div></td>
<td><div align="center"><a href="?Action=viewadeffect&ViewAdEffect=lytj&Ad_ID=<%=Ad_ID%>&AddDate=<%=Rs("AddDate")%>">[查看]</a></div></td>
</tr>
<%
Mypagesize=Mypagesize-1
Rs.MoveNext
Wend%>
<tr bgcolor="#FFFFFF">
<td colspan="4"><div align="center"><strong>统计</strong>：广告显示总计<%=TotalShowCount%>次 广告点击总数<%=TotalClickCount%>次 推荐注册用户总数<%=TotalRegCount%>个</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4"><div align="center"><strong>图例</strong>：<img src=QQCf_Pic/QQCf_RedBar.gif width=50 height=10>广告显示次数 <img src=QQCf_Pic/QQCf_GreenBar.gif width=50 height=10>广告点击次数 <img src=QQCf_Pic/QQCf_BlueBar.gif width=50 height=10>推荐注册用户数量</div>
</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&Page=1">第一页</a>
<%
If Page>1 Then%>
<a href='?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条</div></td>
<form name="form1" method="post" action="jczx.asp">
<td>
<Select name="page" size="1" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&ViewadEffect="&ViewadEffect&"&Ad_ID="&Ad_ID&"&Page="& I
If Page=I Then Response.Write " selected"
Response.Write ">转到第"& I &"页</option>"
Next
%>
</select>
</td>
</form>
</tr>
</table>
<%End If%>
<%If Action="viewadeffect" And ViewAdEffect="hourtj" Then%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<form name="form1" method="post" action="jczx.asp">
<td> <div align="right">
<Select name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
<option value="">请选择查询的日期</option>
<%Sql="Select AddDate From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where Ad_ID="&Ad_ID&" Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='"&filename&"?Action="&Action&"&ViewAdEffect="&ViewAdEffect&"&Ad_ID="&Ad_ID&"&AddDate="&Rs("AddDate")&"'"
If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select>
</div></td>
</form>
</tr>
</table>
<%
AddDate=Request("AddDate")
If AddDate="" Then AddDate=Date()
Sql="Select Sum(Display_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where Ad_ID="&Ad_ID&" And DateDiff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.Execute(Sql)
TotalShowCount=Rs(0)
Sql="Select Sum(Click_2_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where Ad_ID="&Ad_ID&" And DateDiff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.Execute(Sql)
TotalClickCount=Rs(0)
Sql="Select Sum(Reg_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where Ad_ID="&Ad_ID&" And DateDiff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.Execute(Sql)
TotalRegCount=Rs(0)
Total=TotalShowCount+TotalClickCount+TotalRegCount
If Total=0 Then Total=1
Sql="Select AddHour,AddDate From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where Ad_ID="&Ad_ID&" And DateDiff('d',AddDate,'"&AddDate&"')=0 Group By AddHour,AddDate Order By AddHour Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td height="19" colspan="4"><div align="center"><strong><%=AddDate%> 每小时报表</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="60"><div align="center"><strong>小时</strong></div></td>
<td width="540"><div align="center"><strong>比例</strong></div></td>
<td width="60"><div align="center"><strong>点击率</strong></div></td>
<td width="100"><div align="center"><strong>详细推广记录</strong></div></td>
</tr>
<%
While Not Rs.Eof
I=I+1
Sql="Select Sum(Display_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Hour where Ad_ID="&Ad_ID&" And AddDate=#"&AddDate&"# And AddHour="&Rs("AddHour")
Set Rs1=Conn.Execute(Sql)
Display_Counter=Rs1(0)
Sql="Select Sum(Click_2_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Hour where Ad_ID="&Ad_ID&" And AddDate=#"&AddDate&"# And AddHour="&Rs("AddHour")
Set Rs1=Conn.Execute(Sql)
Click_Counter=Rs1(0)
Sql="Select Sum(Reg_Counter) From WWW_QQCF_COM_CfWztg_AD_Counter_Hour where Ad_ID="&Ad_ID&" And AddDate=#"&AddDate&"# And AddHour="&Rs("AddHour")
Set Rs1=Conn.Execute(Sql)
Reg_Counter=Rs1(0)
%>
<tr
<%
If I Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td><div align="center"><%=Rs("AddHour")%>-<%=Rs("AddHour")+1%></div></td>
<td> <img src=QQCf_Pic/QQCf_RedBar.gif width=<%=Display_Counter/Total*350%> height=10><%=Display_Counter%><br> <img src=QQCf_Pic/QQCf_GreenBar.gif width=<%=Click_Counter/Total*500%> height=10><%=Click_Counter%><br> <img src=QQCf_Pic/QQCf_BlueBar.gif width=<%=Reg_Counter/Total*500%> height=10><%=Reg_Counter%><br> </td>
<td><div align="center"><%=MyRate(Click_Counter,Display_Counter)%>%</div></td>
<td><div align="center"><a href="?Action=viewadeffect&ViewAdEffect=lytj&Ad_ID=<%=Ad_ID%>&AddDate=<%=Rs("AddDate")%>">[查看]</a></div></td>
</tr>
<%
Rs.MoveNext
Wend
%>
<tr bgcolor="#FFFFFF">
<td colspan="4"><div align="center"><strong>统计</strong>：广告显示总计<%=TotalShowCount%>次 广告点击总数<%=TotalClickCount%>次 推荐注册用户总数<%=TotalRegCount%>个</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4"><div align="center"><strong>图例</strong>：<img src=QQCf_Pic/QQCf_RedBar.gif width=50 height=10>广告显示次数 <img src=QQCf_Pic/QQCf_GreenBar.gif width=50 height=10>广告点击次数 <img src=QQCf_Pic/QQCf_BlueBar.gif width=50 height=10>推荐注册用户数量</div>
</td>
</tr>
</table>
<%End If%>
<%End If%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -