📄 qqcf_view.asp
字号:
AvgVisit=0
AvgIp=0
Else
AvgVisit=Int(Rs(0)/TotalRs)
AvgIp=Int(Rs(1)/TotalRs)
End If
%>
共有<%=Rs(3)%>天记录，共<%=Rs(0)%>次浏览，<%=Rs(1)%>个IP，平均每天<%=AvgVisit%>次访问，平均每天IP<%=AvgIp%>个</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <%
Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By IpCounter Desc"
Set Rs1=Conn.ExeCute(Sql)
BestHightIp=Rs1("IpCounter")
BestHightIpDate=Rs1("AddDate")
Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By IpCounter"
Set Rs1=Conn.ExeCute(Sql)
BestLowIp=Rs1("IpCounter")
BestLowIpDate=Rs1("AddDate")
Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())>0 Order By Counter Desc"
Set Rs1=Conn.ExeCute(Sql)
BestHightVisit=Rs1("Counter")
BestHightVisitDate=Rs1("AddDate")
Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())>0 Order By Counter"
Set Rs1=Conn.ExeCute(Sql)
BestLowVisit=Rs1("Counter")
BestLowVisitDate=Rs1("AddDate")
%> </td>
</tr>
</table>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="4"><div align="center"><strong>日访问统计</strong>
<%
Action=Request("Action")
Px=request("Px")
If Px="" Then Px="ID"
Call PxFilter(Px,"id,counter,ipcounter,adddate")
Sql="Select * From WWW_QQCF_COM_CfCount_Day_Count 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=10
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If
%>
<br>
</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><strong>日期</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>显示数量</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>IP数量</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>在十天内的比率</strong></div></td>
</tr>
<%While Not Rs.Eof And MyPageSize>0%>
<%
ShowTotal=0
IpTotal=0
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,'"&Rs("AddDate")&"')<10"
Set Rs1=Conn.Execute(Sql)
ShowTotal=Rs1(0)
IpTotal=Rs1(1)
If ShowTotal=0 Then ShowTotal=1
If IpTotal=0 Then IpTotal=1
%>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("AddDate")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("Counter")%><br>
</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("IpCounter")%></div></td>
<td bgcolor="#FFFFFF"><img src=qqcf_pic/QQCf_BlueBar.gif width=<%=Rs("Counter")/ShowTotal*300%> height=10><%=MyRate(Rs("Counter"),ShowTotal)%>%<br>
<img src=qqcf_pic/QQCf_GreenBar.gif width=<%=Rs("IpCounter")/IpTotal*300%> height=10><%=MyRate(Rs("IpCounter"),IpTotal)%>%</td>
</tr>
<%Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
<tr bgcolor="#FFFFFF">
<td colspan="4"><div align="center">图例： <img src=qqcf_pic/QQCf_BlueBar.gif width=30 height=10>显示数，<img src=qqcf_pic/QQCf_GreenBar.gif width=30 height=10>IP数</div></td>
</tr>
<tr>
<td colspan="4" bgcolor="D6DFF5"> <%
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"'"
Set Rs1=Conn.ExeCute(Sql)
If TotalRs=0 Then
AvgVisit=0
AvgIp=0
Else
AvgVisit=Int(Rs1(0)/TotalRs)
AvgIp=Int(Rs1(1)/TotalRs)
End If
%>
共有<%=TotalRs%>天记录，共<%=Rs1(0)%>次浏览，<%=Rs1(1)%>个IP，平均每天<%=AvgVisit%>次访问，平均每天IP<%=AvgIp%>个</td>
</tr>
<tr>
<td colspan="4" bgcolor="D6DFF5">
<%
Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By IpCounter Desc"
Set Rs1=Conn.ExeCute(Sql)
BestHightIp=Rs1("IpCounter")
BestHightIpDate=Rs1("AddDate")
Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By IpCounter"
Set Rs1=Conn.ExeCute(Sql)
BestLowIp=Rs1("IpCounter")
BestLowIpDate=Rs1("AddDate")
Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())>0 Order By Counter Desc"
Set Rs1=Conn.ExeCute(Sql)
BestHightVisit=Rs1("Counter")
BestHightVisitDate=Rs1("AddDate")
Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())>0 Order By Counter"
Set Rs1=Conn.ExeCute(Sql)
BestLowVisit=Rs1("Counter")
BestLowVisitDate=Rs1("AddDate")
%></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td valign="top"><div align="right"><a href="?User_Name=<%=User_Name%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?User_Name=<%=User_Name%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?User_Name=<%=User_Name%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?User_Name=<%=User_Name%>&Page=<%=TotalPage%>">最后一页</a>
页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页</div></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form name="form1" method="post" action="jczx.asp">
<div align="left">
<Select name="page" size="1" class=smallselsect id="select3" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
response.write "<option value="&filename&"?User_Name="&User_Name&"&page="&i
if page=i then
response.write " selected"
end if
response.write ">转到第"& i &"页</option>"
next
%>
</select>
</div>
</form></td>
</tr>
</table></td>
</tr>
</table>
<%End If%>
</TD>
<TD width=10 bgColor=#ce3000><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD>
<TD width=1 bgColor=#000000><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#000000 height=12><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD>
<TD width=200 bgColor=#ce3000><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD>
<TD width=41><IMG height=14 src="QQCF_Pic/ok3-3_r15_c12.gif"
width=41></TD>
<TD vAlign=top width=373>
<P align=center></P></TD>
<TD vAlign=top width=133>
<P align=center> </P></TD>
<TD width=10 bgColor=#ce3000><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD>
<TD width=1 bgColor=#000000><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#000000 rowSpan=2><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD>
<TD bgColor=#ce3300 height=5><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD>
<TD width=1 bgColor=#000000 rowSpan=2><IMG height=1
src="QQCF_Pic\spacer(1).gif"
width=1></TD></TR>
<TR>
<TD bgColor=#ce3300 height=5>
<P align=center> <A href="http://www.qqcf.com" target=_blank><FONT
color=#ffffff>乘风原创程序开发 [ <%=RsSet("Title")%> ]提供计数服务</FONT></A></P>
</TD></TR>
<TD bgColor=#000000 colSpan=3><IMG height=1
src="QQCF_Pic/spacer.gif" width=1></TD></TR></TBODY></TABLE>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -