📄 qqcf_admin_manage_3.asp
字号:
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
%>
<tr>
<td colspan="9"><div align="center"><strong><%=AddDate%> 页面来源统计[可点击标题排序]</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=ID"><strong>序号</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=User_Name"><strong>用户名</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ad_ID"><strong>广告编号</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ly"><strong>来源页面</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Counter">点击数量</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Counter"><strong>所占此天的比例</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&AddDate=<%=AddDate%>&Px=AddTime">开始时间</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=LastTime"><strong>最后访问时间</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ip"><strong>最后IP</strong></a></div></td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr
<%
If MyPageSize Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td class="td_1"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
<td class="td_1"><div align="center"><%=Rs("User_Name")%></div></td>
<td class="td_1"><div align="center"><%=Rs("Ad_ID")%></div></td>
<td class="td_1"> <div align="center">
<%
Response.Write "<a href="&Rs("Ly")&" target='_blank'>"&Left(BreakUrl(Rs("Ly"),2),30)&"</a> [<a href="&Rs("Ly")&" target='_blank'>详细</a>]"
%>
</div></td>
<td class="td_1"><div align="center"><%=Rs("Counter")%></div></td>
<td class="td_1"><img src=qqcf_pic/qqcf_redbar.gif width=<%=Rs("Counter")/ThisDayTotal*150%> height=10><%=MyRate(Rs("Counter"),ThisDayTotal)%>%</td>
<td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></div></td>
<td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></div></td>
<td class="td_1"><div align="center"><%=Rs("Ip")%>
<%If IpAreaSwitch=1 Then
Response.write "<br>"&Rs("Area")
End If%></div></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
<tr bgcolor="#FFFFFF">
<td colspan="9" class="td_1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<form name="form6" method="post" action="?Action=todaylydel">
<td width="626"><div align="right">
<input type="submit" name="Submit3322" value="删除今天来源" onClick="{if(confirm('确定要删除今天来源么?')){return true;}return false;};">
</div></td></form>
<form name="form6" method="post" action="?Action=beforelydel">
<td width="150"><div align="right"><input type="submit" name="Submit33222" value="删除今天以前的来源" onClick="{if(confirm('确定要删除今天以前的来源么?')){return true;}return false;};">
</div></td></form>
</tr>
</table></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30"><div align="right"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Ip=<%=Ip%>&Ly=<%=Ly%>&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&"&User_Name="&User_Name&"&Ip="&Ip&"&Ly="&Ly&"&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>
<table border="0" align="center" cellpadding="2" cellspacing="0">
<form name="form2" method="post" action="?Action=lysearch&AddDate=<%=AddDate%>">
<tr>
<td> <div align="left"><strong>搜 索</strong></div></td>
<td>用户名:</td>
<td><input name="User_Name" type="text" id="User_Name" size="10"></td>
<td>广告编号:</td>
<td><input name="Ad_ID" type="text" id="Ad_ID" size="5"></td>
<td>IP:</td>
<td width="1"><input name="IP" type="text" id="IP" size="10"></td>
<td><div align="left">来源:</div></td>
<td><input name="Ly" type="text" id="Ly" size="10"></td>
<td><input type="submit" name="Submit3323" value="搜索"></td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="iplist" Or Action="ipsearch" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<form name="form6" method="post" action="?">
<td colspan="5" bgcolor="#FFFFFF"><div align="right">选择查询的日期
<Select name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
<option>请选择日期</option><%
Sql="Select AddDate From WWW_QQCF_COM_CfWztg_Visit_Ip 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=iplist&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>
<%
Px=Request("Px")
AddDate=Request("AddDate")
Ip=Request("Ip")
IpArea=Int(Request("IpArea"))
If Px="" Then Px="ID"
If AddDate="" Then AddDate=Cstr(Date)
Call PxFilter(Px,"id,User_Name,Ip,Ly,AddTime")
If AddDate<>"" Then
If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if
Sql="Select Sum(Counter) From WWW_QQCF_COM_CfWztg_Visit_Ip where Datediff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.execute(Sql)
ThisDayTotal=Rs(0)
If ThisDayTotal=0 Then ThisDayTotal=1
Sql="Select * From WWW_QQCF_COM_CfWztg_Visit_Ip where Datediff('d',AddDate,'"&AddDate&"')=0"
If Ip<>"" Then Sql=Sql&" And Ip='"&Ip&"'"
If IpArea<>0 Then
If IpArea=1 Then'为国内IP时
Sql=Sql&" And IpArea='-'"
ElseIf IpArea=2 Then'为国外IP时
Sql=Sql&" And IpArea<>'-'"
End If
End If
Sql=Sql&" Order By "&Px&" 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
%>
<tr>
<td colspan="5"><div align="center"><strong><%=AddDate%> Ip记录[可点击标题排序]</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&ID=<%=ID%>&AddDate=<%=AddDate%>&Ip=<%=Ip%>&IpArea=<%=IpArea%>&Px=ID"><strong>序号</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&ID=<%=ID%>&AddDate=<%=AddDate%>&Ip=<%=Ip%>&IpArea=<%=IpArea%>&Px=Ly"><strong>推广用户</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&ID=<%=ID%>&AddDate=<%=AddDate%>&Ip=<%=Ip%>&IpArea=<%=IpArea%>&Px=Counter">Ip</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&ID=<%=ID%>&AddDate=<%=AddDate%>&Ip=<%=Ip%>&IpArea=<%=IpArea%>&Px=LastTime"><strong>来访页面</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&ID=<%=ID%>&AddDate=<%=AddDate%>&Ip=<%=Ip%>&IpArea=<%=IpArea%>&Px=Ip"><strong>来访时间</strong></a></div></td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr
<%
If MyPageSize Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td class="td_1"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
<td class="td_1"> <div align="center"><%=Rs("User_Name")%> </div></td>
<td class="td_1"><div align="center"><%=Rs("Ip")%>
<%
If IpAreaSwitch=1 Then
If Rs("IpArea")="-" Then
Response.write "<br>国内IP"
Else
Response.write "<br>"&Rs("IpArea")
End If
End If
%></div></td>
<td class="td_1"><div align="center">
<%
Response.Write "<a href="&Rs("Ly")&" target='_blank'>"&Left(BreakUrl(Rs("Ly"),2),30)&"</a> [<a href="&Rs("Ly")&" target='_blank'>详细</a>]"
%>
</div></td>
<td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></div></td>
</tr> <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
<tr>
<td colspan="5" bgcolor="#FFFFFF" class="td_1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<form name="form6" method="post" action="?Action=todayipdel">
<td width="626"><div align="right">
<input type="submit" name="Submit3322" value="删除今天IP" onClick="{if(confirm('确定要删除今天IP么?')){return true;}return false;};">
</div></td></form>
<form name="form6" method="post" action="?Action=beforeipdel">
<td width="150"><div align="right"><input type="submit" name="Submit33222" value="删除今天以前的IP" onClick="{if(confirm('确定要删除今天以前的IP么?')){return true;}return false;};">
</div></td></form>
</tr>
</table></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30"><div align="right"><a href="?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&ID=<%=ID%>&AddDate=<%=AddDate%>&Ip=<%=Ip%>&IpArea=<%=IpArea%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&ViewadEffect=<%=ViewadEffect%>&ID=<%=ID%>&AddDate=<%=AddDate%>&Ip=<%=Ip%>&IpArea=<%=IpArea%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -