📄 test.asp
字号:
</tr>
<%
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('yyyy',AddDate,Date())=0"
Set Rs=Conn.Execute(Sql)
%>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">今年累计：</div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs(0)%></div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs(1)%></div></td>
<td align="left" bgcolor="#FFFFFF">最低访问量： <%=RsLowIp("IpCounter")%> IP (发生在: <%=RsLowIp("AddDate")%>)</td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">平均每日：</div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center"><%=Int(RsUser("RealIpTotal")/DateDiff("d",RsUser("AddTime"),Now())+1)%></div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center"><%=Int(RsUser("RealShowTotal")/DateDiff("d",RsUser("AddTime"),Now())+1)%></div></td>
<td align="left" bgcolor="#FFFFFF">最低访问量： <%=RsLowShow("Counter")%> Pv (发生在: <%=RsLowShow("AddDate")%>)</td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">预计今日：</div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center">
<%
MyTime=DateDiff("n",Date(),Now())
If MyTime=0 Then MyTime=1
Response.write Int(TodayShow*1440/MyTime)
%>
</div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center"><%Response.write Int(TodayIp*1440/MyTime)%></div></td>
<td align="left" bgcolor="#FFFFFF"> </td>
</tr>
</table>
<%End If%>
<%If Request("Action")="lylist" Then%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form6" method="post" action="?Action=lydel"> <tr>
<td colspan="7" bgcolor="#FFFFFF">选择查询的日期
<Select name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
<%Sql="Select AddDate From WWW_QQCF_COM_CfCount_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='"&filename&"?Action=lylist&AddDate="&Rs("AddDate")&"'"
If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select></td>
</tr>
<%
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")
Action=Request("Action")
Px=Request("Px")
AddDate=Request("AddDate")
If Px="" Then Px="Counter"
If AddDate="" Then AddDate=Cstr(Date)
Call PxFilter(Px,"id,ip,lyhead,addtime,counter,lasttime")
If AddDate<>"" Then
If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if
Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_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_CfCount_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=15
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If
%>
<tr>
<td colspan="7"><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=LyHead"><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"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=AddTime"><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"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=LastTime"><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">
<%If Rs("LyHead")="-" Then
Response.Write "直接从浏览器输入"
Else
Response.Write "<a href=http://"&Rs("LyHead")&" target='_blank'>"&Rs("LyHead")&"</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">
<%If Ip=Rs("Ip") Then Response.Write "<font color=ff0000>"%>
<%=Rs("Ip")%>
<%If Ip=Rs("Ip") Then Response.Write "</font>"%>
</div></td>
<td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></div></td>
</tr>
<%rs.movenext
mypagesize=mypagesize-1
wend%>
<tr bgcolor="#FFFFFF">
<td colspan="7"><div align="right">(注：红色IP为你自己的IP)
<input type="submit" name="Submit332" value="删除所有来源明细" onClick="{if(confirm('确定要删除么?')){return true;}return false;};">
</div></td>
</tr>
</form>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top"><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="jczx.asp">
<td>
<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="&filename&"?Action="&Action&"&AddDate="&AddDate&"&Px="&Px&"&Page="&i
if page=i then
response.write " selected"
end if
response.write ">转到第"&i&"页</option>"
next
%>
</select>
</td>
</form>
</tr>
</table>
<%End If%>
<%If Request("Action")="lytj" Then%>
<%
Action=Request("Action")
Px=Request("Px")
If Px="" Then Px="Counter"
Call PxFilter(Px,"id,site,counter,ly,lasttime")
Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_Site where User_Name='"&User_Name&"'"
Set Rs=Conn.Execute(Sql)
AllDayTotal=Rs(0)
If AllDayTotal=0 Then AllDayTotal=1
Sql="Select * From WWW_QQCF_COM_CfCount_Site where User_Name='"&User_Name&"' 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=15
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If
%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="6"><div align="center"><strong>站点所有时间统计[可点击标题排序]</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=ID"><strong>序号</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Site"><strong>来源网站</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=Counter">来源数量</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Counter"><strong>所占比例</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=Ly">最后来源页面</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=LastTime">最后来源访问时间</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">
<%If Rs("Site")="-" Then
Response.Write "直接从浏览器输入"
Else
Response.Write "<a href=http://"&Rs("Site")&" target='_blank'>"&Rs("Site")&"</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")/AllDayTotal*150%> height=10><%=MyRate(Rs("Counter"),AllDayTotal)%>%
</td>
<td class="td_1"><div align="center">
<%If Rs("Ly")="-" Then%>
直接从浏览器输入
<%Else%>
<a href="<%=Rs("Ly")%>" target='_blank'><%=Left(BreakUrl(Rs("Ly"),2),30)%></a>
<%End If%>
</div></td>
<td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></div></td>
</tr>
<%rs.movenext
mypagesize=mypagesize-1
wend%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&Px=<%=Px%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -