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 "&nbsp;&nbsp;[此广告主已经绑定在"&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%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条
<%
Response.write "&nbsp;&nbsp;转到第<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%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条
<%
Response.write "&nbsp;&nbsp;转到第<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>&nbsp;[<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%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条
<%
Response.write "&nbsp;&nbsp;转到第<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>&nbsp;[<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%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条
<%
Response.write "&nbsp;&nbsp;转到第<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%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条
<%
Response.write "&nbsp;&nbsp;转到第<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%>