www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_AdUser_Manage_3.asp
<% '乘风网站推广系统 Access版 '作者QQ:178575 '作者EMail:yliangcf@163.com '作者网站:http://www.qqcf.com '详细简介:http://www.qqcf.com/?action=list&list=cfwztg '上面有程序在线演示,安装演示,使用疑难解答,最新版本下载等内容 '因为这些内容可能时常更新,就没有放在程序里,请自己上网站查看 %> <%If Action="enoughlist" Then%> <% Sql="Select * From CFWztg_AdUser where AdUserName='"&AdUserName&"'" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 %> <table class="tb_1"> <tr class="tr_1"> <td colspan="2" ><strong>你的金额状况</strong></td> </tr> <tr> <td width="10%">广告主:</td> <td><%=AdUserName%> <% Sql="Select * From CFWztg_User where AdUserName='"&AdUserName&"'" Set Rs2 = Server.CreateObject("ADODB.Recordset") Rs2.open Sql,Conn,1,1 Response.write " [此广告主已经绑定在"&Rs2("UserName")&"用户上-<a href=""AdUser.aspx?Action=aduserbinddel"" onclick=""{if(confirm('确定要解除绑定么?')){return true;}return false;}"">点击解除绑定</a>]" %> </td> </tr> <tr> <td>总金额:</td> <td><%=Rs("Total_Cent")%>元</td> </tr> <tr> <td>花费金额:</td> <td><%=Rs("Spend_Cent")%>元</td> </tr> <tr> <td>剩余金额:</td> <td><%=Rs("Spare_Cent")%>元</td> </tr> <tr> <td></td> <td> <input type="submit" name="Submit4" value="在线充值" onClick="location.href='?Action=onlinepay';"> </td> </tr> </table> <br><br> <% Sql="Select * From CFWztg_AdUser_OnlinePay Where AdUserName='"&AdUserName&"' Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 If Not Rs.eof Then If ChkStr(Request("Page"),2) = "" Then Page = 1 Else Page = CLng(ChkStr(Request("Page"),2)) End If Rs.pagesize=10 TotalRs=Rs.RecordCount TotalPage=Rs.PageCount MyPageSize=Rs.PageSize Rs.AbsolutePage=Page End If %> <table class="tb_1"> <tr class="tr_1"> <td colspan="6">充值记录</td> </tr> <tr class="tr_2"> <td>序号</td> <td>充值订单</td> <td>充值金额</td> <td>充值时间</td> <td>已支付</td> <td>充值类型</td> </tr> <% While Not Rs.Eof And MyPageSize>0 %> <tr class="tr_2"> <td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td> <td> <% If Rs("PayOk")=-1 Then Response.write Rs("OrderCode") Else Response.write "<font color='#D4D4D4'>"&Rs("OrderCode")&"</font>" End If %> </td> <td><%=Rs("PayMoney")%></td> <td><%=Rs("AddTime")%></td> <td> <% If Rs("PayOk")=0 Then Response.write "否<br><a href='?Action=onlinepay&OrderCode="&Rs("OrderCode")&"'>重新充值</a>" ElseIf Rs("PayOk")=-1 Then Response.write "是" End if %> </td> <td> <% If Rs("EnoughType")=1 Then Response.write "在线支付" ElseIf Rs("EnoughType")=2 Then Response.write "管理员人工充值" End if %> </td> </tr> <% MyPageSize=MyPageSize-1 Rs.MoveNext Wend %> </table> <table class="tb_3"> <tr> <td><a href="?Action=<%=Action%>&Page=1">第一页</a> <% If Page>1 Then %> <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a> <% End If %> <% If Page<Rs.PageCount Then %> <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a> <% end if %> <a href="?Action=<%=Action%>&Page=<%=Totalpage%>">最后一页</a> 页次:<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条 <% Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">" For I=1 To TotalPage Response.Write "<option value=?Action="&Action&"&Page="&I If Page=I Then Response.Write " selected" Response.Write ">"& I &"</option>" Next Response.write "</select>页" %></td> </tr> </table> <%End If%> <%If Action="onlinepay" Then%> <% OrderCode=Trim(Request("OrderCode")) If OrderCode="" Then ReBuy=0 OrderCode=Left(DateDiff("s","2000-1-1",Now())&GenRanStr_2(16),16) Else ReBuy=1 Sql="Select * From CFWztg_AdUser_OnlinePay Where OrderCode='"&OrderCode&"'" Set Rs=Conn.Execute(Sql) PayMoney=Rs("PayMoney") End If %> <table class="tb_1"> <tr class="tr_1"> <td colspan="2">在线充值</td> </tr> <form name="f" method="post" action="OnlinePay_Send.asp?AdUserName=<%=AdUserName%>&ReBuy=<%=ReBuy%>" target="_blank"> <tr> <td width="12%">订单号:</td> <td><input name="OrderCode" type="text" value="<%=OrderCode%>" size="30" readonly style="background='#e8e8e8';"> </td> </tr> <tr> <td>订单金额:</td> <td> <% If ReBuy=0 Then Response.write "<input name='PayMoney' type='text' size='15'>" ElseIf ReBuy=1 Then Response.write "<input name='PayMoney' type='text' size='15' value='"&PayMoney&"' readonly style=""background='#e8e8e8';"">" End If %> 元</td> </tr> <tr> <td>选择支持方式:</td> <td> <% If GetMySet("CFWztgAdminSet","AdminSet","OnlinePayUser_1")<>"" Then MyStr= "<input name='PayType' type='radio' value='1'" If CInt(GetMySet("CFWztgAdminSet","AdminSet","OnlinePay"))=1 Then MyStr=MyStr&" checked" MyStr=MyStr&">快钱支付" End If If GetMySet("CFWztgAdminSet","AdminSet","OnlinePayUser_2")<>"" Then MyStr= MyStr&"<input name='PayType' type='radio' value='2'" If CInt(GetMySet("CFWztgAdminSet","AdminSet","OnlinePay"))=2 Then MyStr=MyStr&" checked" MyStr=MyStr&">网银在线支付" End If If GetMySet("CFWztgAdminSet","AdminSet","OnlinePayUser_3")<>"" Then MyStr= MyStr&"<input name='PayType' type='radio' value='3'" If CInt(GetMySet("CFWztgAdminSet","AdminSet","OnlinePay"))=3 Then MyStr=MyStr&" checked" MyStr=MyStr&">支付宝支付" End If If GetMySet("CFWztgAdminSet","AdminSet","OnlinePayUser_4")<>"" Then MyStr= MyStr&"<input name='PayType' type='radio' value='4'" If CInt(GetMySet("CFWztgAdminSet","AdminSet","OnlinePay"))=4 Then MyStr=MyStr&" checked" MyStr=MyStr&">财付通支付" End If Response.write MyStr %> </td> </tr> <tr> <td></td> <td><input type="submit" name="Submit4" value="充值"> </td> </tr> </form> </table> <%End If%> <%If Action="expendlist" Then%> <% Sql="Select * From CFWztg_AdUser_Expend where AdUserName='"&AdUserName&"' Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 If Not Rs.eof Then If ChkStr(Request("Page"),2) = "" Then Page = 1 Else Page = CLng(ChkStr(Request("Page"),2)) End If Rs.pagesize=10 TotalRs=Rs.RecordCount TotalPage=Rs.PageCount MyPageSize=Rs.PageSize Rs.AbsolutePage=Page End If %> <table class="tb_1"> <tr> <td colspan="6" class="tr_1">消费记录</td> </tr> <tr class="tr_2"> <td>序号</td> <td>消费编号</td> <td>消费金额</td> <td>用途描述</td> <td>审核状态</td> <td>管理员说明</td> </tr> <% While Not Rs.Eof And MyPageSize>0 %> <tr class="tr_2"> <td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td> <td><%=Rs("ID")%></td> <td><%=Rs("Expend_Cent")%></td> <td><%=Rs("ExpendDesc")%></td> <td> <% If Rs("ExpendState")=1 Then Response.Write "审核中" ElseIf Rs("ExpendState")=2 Then Response.Write "审核成功" ElseIf Rs("ExpendState")=3 Then Response.Write "审核失败,"&Rs("ExPendAbortFeedBack") End If %></td> <td><%=Rs("AdminDesc")%></td> </tr> <% MyPageSize=MyPageSize-1 Rs.MoveNext Wend %> </table> <table class="tb_3"> <tr> <td><a href="?Action=<%=Action%>&Page=1">第一页</a> <% If Page>1 Then %> <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a> <% End If %> <% If Page<Rs.PageCount Then %> <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a> <% end if %> <a href="?Action=<%=Action%>&Page=<%=Totalpage%>">最后一页</a> 页次:<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条 <% Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">" For I=1 To TotalPage Response.Write "<option value=?Action="&Action&"&Page="&I If Page=I Then Response.Write " selected" Response.Write ">"& I &"</option>" Next Response.write "</select>页" %></td> </tr> </table> <%End If%> <% ViewAdEffect=ChkStr(Request("ViewAdEffect"),1) If ViewAdEffect="" Then ViewAdEffect="lytj" If Action="viewadeffect" Then%> <% Ad_ID=GoBack(ChkStr(Request("Ad_ID"),2),"广告ID不能为空") %> <table class="tb_1"> <tr class="tr_1"> <td><a href="?Action=viewadeffect&ViewAdEffect=lytj&Ad_ID=<%=Ad_ID%>"><strong>推广来源</strong></a> <a href="?Action=viewadeffect&ViewAdEffect=iptj&Ad_ID=<%=Ad_ID%>"><strong>推广Ip</strong></a> <a href="?Action=viewadeffect&ViewAdEffect=daytj&Ad_ID=<%=Ad_ID%>"><strong>每日报表</strong></a> <a href="?Action=viewadeffect&ViewAdEffect=hourtj&Ad_ID=<%=Ad_ID%>"><strong>每小时报表</strong></a></td> </tr> </table> <%If Action="viewadeffect" And ViewAdEffect="lytj" Then%> <table class="tb_1"> <tr> <td colspan="8" class="td_3">选择查询的日期 <select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value"> <option value=?Action=<%=Action%>&ViewAdEffect=<%=ViewAdEffect%>&Ad_ID=<%=Ad_ID%>>请选择日期</option> <% Sql="Select AddDate From CFWztg_Visit_Ly 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='?Action="&Action&"&ViewAdEffect=lytj&Ad_ID="&Ad_ID&"&AddDate="&Rs("AddDate")&"'" If ChkStr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected" Response.Write ">"&Rs("AddDate")&"</option>" Rs.MoveNext Wend %> </select></td> </tr> <% Px=ChkStr(Request("Px"),1) AddDate=ChkStr(Request("AddDate"),3) If Px="" Then Px="IpCounter_2" If AddDate="" Then AddDate=Cstr(Date) Call PxFilter(Px,"id,UserName,AD_ID,Ip,Ly,IpCounter_2,AddDate,AddTime,LastTime") Sql="Select Sum(IpCounter_2) From CFWztg_Visit_Ly where Ad_ID="&Ad_ID&" And Datediff('d',AddDate,'"&AddDate&"')=0" Set Rs=Conn.execute(Sql) IPTotal=Rs(0) Sql="Select * From CFWztg_Visit_Ly where Ad_ID="&Ad_ID&" And Datediff('d',AddDate,'"&AddDate&"')=0" Sql=Sql&" Order By "&Px&" Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 If Not Rs.eof Then If ChkStr(Request("Page"),2) = "" Then Page = 1 Else Page = CLng(ChkStr(Request("Page"),2)) End If Rs.pagesize=10 TotalRs=Rs.RecordCount TotalPage=Rs.PageCount MyPageSize=Rs.PageSize Rs.AbsolutePage=Page End If %> <tr class="tr_1"> <td colspan="8"><%=AddDate%> 页面来源统计[可点击标题排序]</td> </tr> <tr> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=ID">序号</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=UserName">推广用户</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ly">来源页面</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=IpCounter_2">点击数量</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=IpCounter_2">所占此天的比例</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=AddTime">开始时间</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=LastTime">最后访问时间</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ip">最后IP</a></td> </tr> <% While Not Rs.Eof And MyPageSize>0 %> <tr> <td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td> <td> <%=Rs("UserName")%> </td> <td><% If Rs("Ly")="" Then Response.Write "直接从浏览器输入" Else Response.Write "<a href="&Rs("Ly")&" target='_blank'>"&Left(BreakUrl(Rs("Ly"),2),30)&"</a> [<a href="&Rs("Ly")&" target='_blank'>详细</a>]" End If %></td> <td><%=Rs("IpCounter_2")%></td> <td><img src=images/redbar.gif width=<%=Rs("IpCounter_2")/IPTotal*150%> height=10><%=MyRate(Rs("IpCounter_2"),IPTotal)%>%</td> <td><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></td> <td><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></td> <td><%=Rs("Ip")%><% If Rs("IpArea")<>"" Then Response.write "<br>"&Rs("IpArea") End If %></td> </tr> <% MyPageSize=MyPageSize-1 Rs.MoveNext Wend %> </table> <table class="tb_3"> <tr> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a> <% If Page>1 Then %> <a href='?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> <% End If %> <% 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%>条 <% Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('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 Response.write "</select>页" %></td> </tr> </table> <%End If%> <%If Action="viewadeffect" And ViewAdEffect="iptj" Then%> <table class="tb_1"> <tr> <td colspan="13" class="td_3"> <select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value"> <option value=?Action=<%=Action%>&ViewAdEffect=<%=ViewAdEffect%>&Ad_ID=<%=Ad_ID%>>请选择日期</option> <% Sql="Select AddDate From CFWztg_Visit_Ip 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='?Action="&Action&"&ViewAdEffect="&ViewAdEffect&"&Ad_ID="&Ad_ID&"&AddDate="&Rs("AddDate")&"'" If ChkStr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected" Response.Write ">"&Rs("AddDate")&"</option>" Rs.MoveNext Wend %> </select></td> </tr> <% Px=ChkStr(Request("Px"),1) AddDate=ChkStr(Request("AddDate"),3) If Px="" Then Px="ID" If AddDate="" Then AddDate=Cstr(Date) Call PxFilter(Px,"id,UserName,AD_ID,Ip,Ly,AddTime,AgentStr,Alexa,WebWidth,WebHeight,WebTop,WebLeft,MouseTop,MouseLeft") Sql="Select * From CFWztg_Visit_Ip where Ad_ID="&Ad_ID&" And Datediff('d',AddDate,'"&AddDate&"')=0" Sql=Sql&" Order By "&Px&" Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 If Not Rs.eof Then If ChkStr(Request("Page"),2) = "" Then Page = 1 Else Page = CLng(ChkStr(Request("Page"),2)) End If Rs.pagesize=10 TotalRs=Rs.RecordCount TotalPage=Rs.PageCount MyPageSize=Rs.PageSize Rs.AbsolutePage=Page End If %> <tr class="tr_1"> <td colspan="13"><%=AddDate%> Ip记录[可点击标题排序](系统里的IP部分记录会随时删除)</td> </tr> <tr class="tr_2"> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=ID">序号</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=UserName">推广用户</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ip">Ip</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ly">来访页面</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=AddTime">来访时间</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=AgentStr">参数</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Alexa">Alexa</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=WebWidth">页宽</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=WebHeight">页高</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=WebTop">页顶</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=WebLeft">页左</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=MouseTop">鼠顶</a></td> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=MouseLeft">鼠左</a></td> </tr> <% While Not Rs.Eof And MyPageSize>0 %> <tr class="tr_2"> <td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td> <td> <%=Rs("UserName")%> </td> <td><%=Rs("Ip")%> <% If Rs("IpArea")<>"" Then Response.write "<br>"&Rs("IpArea") End If %> </td> <td> <% If Rs("Ly")="" Then Response.Write "直接从浏览器输入" Else Response.Write "<a href="&Rs("Ly")&" target='_blank'>"&Left(BreakUrl(Rs("Ly"),2),30)&"</a> [<a href="&Rs("Ly")&" target='_blank'>详细</a>]" End If %> </td> <td><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></td> <td><%=Rs("AgentStr")%></td> <td> <%If Rs("Alexa")=-1 Then Response.write "已安装" Else Response.write "未安装" End If%> </td> <td><%=Rs("WebWidth")%></td> <td><%=Rs("WebHeight")%></td> <td><%=Rs("WebTop")%></td> <td><%=Rs("WebLeft")%></td> <td><%=Rs("MouseTop")%></td> <td><%=Rs("MouseLeft")%></td> </tr> <% MyPageSize=MyPageSize-1 Rs.MoveNext Wend %> </table> <table class="tb_3"> <tr> <td><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a> <% If Page>1 Then %> <a href='?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> <% End If %> <% 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%>条 <% Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('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 Response.write "</select>页" %></td> </tr> </table> <%End If%> <%If Action="viewadeffect" And ViewAdEffect="daytj" Then%> <% Sql="Select Sum(Display_Counter),Sum(Click_Counter),Sum(Reg_Counter) From CFWztg_AD_Counter_Day where Ad_ID="&Ad_ID&"" Set Rs=Conn.Execute(Sql) DisplayTotal = Rs(0) ClickTotal = Rs(1) RegTotal = Rs(2) Sql="Select AddDate From 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 ChkStr(Request("Page"),2) = "" Then Page = 1 Else Page = CLng(ChkStr(Request("Page"),2)) End If rs.pagesize=10 totalrs=rs.RecordCount totalpage=rs.pageCount mypagesize=rs.pagesize rs.absolutepage=page End If %> <table class="tb_1"> <tr class="tr_1"> <td colspan="9">每日报表</td> </tr> <tr> <td>日 期</td> <td colspan="2">显示数</td> <td colspan="2">点击数</td> <td colspan="2">注册数</td> <td>点击率</td> <td>详细推广记录</td> </tr> <% While Not Rs.Eof And MyPageSize>0 Sql="Select Sum(Display_Counter),Sum(Click_Counter),Sum(Reg_Counter) From CFWztg_AD_Counter_Day where Ad_ID="&Ad_ID&" And AddDate=#"&Rs("AddDate")&"#" Set Rs1 = Conn.Execute(Sql) DisplayNum=Rs1(0) ClickNum=Rs1(1) RegNum=Rs1(2) %> <tr> <td><%=Rs("AddDate")%></td> <td><%=DisplayNum%></td> <td><img src=images/bluebar.gif width=<%=DisplayNum/DisplayTotal*100%> height=10><%=MyRate(DisplayNum,DisplayTotal)%>%</td> <td><%=ClickNum%></td> <td><img src=images/greenbar.gif width=<%=ClickNum/ClickTotal*100%> height=10><%=MyRate(ClickNum,ClickTotal)%>%</td> <td><%=RegNum%></td> <td><img src=images/redbar.gif width=<%=RegNum/RegTotal*100%> height=10><%=MyRate(RegNum,RegTotal)%>%</td> <td><%=MyRate(ClickNum,DisplayNum)%>%</td> <td><a href="?Action=viewadeffect&ViewAdEffect=lytj&Ad_ID=<%=Ad_ID%>&AddDate=<%=Rs("AddDate")%>">[查看]</a></td> </tr> <% Mypagesize=Mypagesize-1 Rs.MoveNext Wend%> <tr> <td colspan="9">统计:广告显示总计<%=DisplayTotal%>次 广告点击总数<%=ClickTotal%>次 推荐注册用户总数<%=RegTotal%>个</td> </tr> </table> <table class="tb_3"> <tr> <td><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%>条 <% Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('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 Response.write "</select>页" %></td> </tr> </table> <%End If%> <%If Action="viewadeffect" And ViewAdEffect="hourtj" Then%> <table class="tb_1"> <tr> <td colspan="9" class="td_3">请选择你要查询的日期 <select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value"> <option value=?Action=<%=Action%>&ViewAdEffect=<%=ViewAdEffect%>&Ad_ID=<%=Ad_ID%>>请选择日期</option> <% Sql="Select AddDate From 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='?Action="&Action&"&ViewAdEffect="&ViewAdEffect&"&Ad_ID="&Ad_ID&"&AddDate="&Rs("AddDate")&"'" If ChkStr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected" Response.Write ">"&Rs("AddDate")&"</option>" Rs.MoveNext Wend %> </select> </td> </tr> <% AddDate=ChkStr(Request("AddDate"),3) If AddDate="" Then AddDate=Date() Sql="Select Sum(Display_Counter),Sum(Click_Counter),Sum(Reg_Counter) From CFWztg_AD_Counter_Hour where Ad_ID="&Ad_ID&" And AddDate=#"&AddDate&"#" Set Rs=Conn.Execute(Sql) DisplayTotal=Rs(0) ClickTotal=Rs(1) RegTotal=Rs(2) Sql="Select AddHour,AddDate From CFWztg_AD_Counter_Hour Where UserName='"&UserName&"' And Ad_ID="&Ad_ID&" Group By AddHour,AddDate Order By AddHour Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 %> <tr class="tr_1"> <td colspan="9"><%=AddDate%> 每小时报表</td> </tr> <tr> <td>小时</td> <td colspan="2">显示数</td> <td colspan="2">点击数</td> <td colspan="2">注册数</td> <td>点击率</td> <td>详细推广记录</td> </tr> <% While Not Rs.Eof I=I+1 Sql="Select Sum(Display_Counter),Sum(Click_Counter),Sum(Reg_Counter) From CFWztg_AD_Counter_Hour where Ad_ID="&Ad_ID&" And AddDate=#"&AddDate&"# And AddHour="&Rs("AddHour") Set Rs1=Conn.Execute(Sql) DisplayNum=Rs1(0) ClickNum=Rs1(1) RegNum=Rs1(2) %> <tr> <td><%=Rs("AddHour")%>-<%=Rs("AddHour")+1%></td> <td><%=DisplayNum%></td> <td><img src=images/bluebar.gif width=<%=DisplayNum/DisplayTotal*100%> height=10><%=MyRate(DisplayNum,DisplayTotal)%>%</td> <td><%=ClickNum%></td> <td><img src=images/greenbar.gif width=<%=ClickNum/ClickTotal*100%> height=10><%=MyRate(ClickNum,ClickTotal)%>%</td> <td><%=RegNum%></td> <td><img src=images/redbar.gif width=<%=RegNum/RegTotal*100%> height=10><%=MyRate(RegNum,RegTotal)%>%</td> <td><%=MyRate(ClickNum,DisplayNum)%>%</td> <td><a href="?Action=lysearch&AddDate=<%=Rs("AddDate")%>">[查看]</a></td> </tr> <% Rs.MoveNext Wend %> <tr> <td colspan="9">统计:广告显示总计<%=DisplayTotal%>次 广告点击总数<%=ClickTotal%>次 推荐注册用户总数<%=RegTotal%>个</td> </tr> </table> <%End If%> <%End If%>