📄 qqcf_manage_2.asp
字号:
<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制 作：乘 风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
' 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
' 2006年9月14日
'===================================
%>
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
<%If Action="" Or Action="lylist" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
Rs.open Sql,Conn,1,1
If Rs("PasswordAsk")="你的默认密码回答答案是1234,请修改成别的!" Then Response.write "<a href='?Action=passanswermodify'><font color=ff0000><b>密码回答答案未设置，点击设置</b></font></a><br>"
If Rs("EMail")="-" Then Response.write "<a href='?Action=modifydata'><font color=ff0000><b>你的安全Email未设置，点击设置</b></font></a>"
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<form name="form6" method="post" action="?">
<td colspan="8" 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_Ly Where User_Name='"&user_name&"' 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=lylist&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")
If Px="" Then Px="Counter"
If AddDate="" Then AddDate=Cstr(Date)
Call PxFilter(Px,"id,AD_ID,Ly,Counter,AddDate,AddTime,LastTime,Ip")
If AddDate<>"" Then
If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if
Sql="Select Sum(Counter) From WWW_QQCF_COM_CfWztg_Visit_Ly where User_Name='"&User_Name&"' And 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_Ly where User_Name='"&User_Name&"' 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 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="8"><div align="center"><strong><%=AddDate%> 页面来源统计[可点击标题排序]</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=ID"><strong>序号</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Ad_ID"><strong>广告编号</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Ly"><strong>来源页面</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Counter">点击数量</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Counter"><strong>所占此天的比例</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=AddTime">开始时间</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=LastTime"><strong>最后访问时间</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&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("Ad_ID")%></div></td>
<td class="td_1"> <div align="center">
<%
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
%>
</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
If Rs("IpArea")="-" Then
Response.write "<br>国内IP"
Else
Response.write "<br>"&Rs("IpArea")
End If
End If
%>
</div></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30"><div align="right"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&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&"&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="iplist" 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 Where User_Name='"&user_name&"' 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=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")
If Px="" Then Px="ID"
If AddDate="" Then AddDate=Cstr(Date)
Call PxFilter(Px,"id,Ip,Ly,AD_ID,AddTime")
If AddDate<>"" Then
If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if
Sql="Select * From WWW_QQCF_COM_CfWztg_Visit_Ip where User_Name='"&User_Name&"' 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 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%>&AddDate=<%=AddDate%>&Px=ID"><strong>序号</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Ip"><strong>IP</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Ly">来源页面</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Ad_ID"><strong>所属广告</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=AddTime">来访时间</a></strong></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("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">
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -