📄 qqcf_view.asp
字号:
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">今年累计：</div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs2(0)%></div></td>
<td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs2(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 RsUser("TodayLyOpen")=-1 Then%><br>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<%
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")
Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_Ly where User_Name='"&User_Name&"' And Datediff('d',AddDate,Date())=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,Date())=0 Order By Counter Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<tr>
<td colspan="7"><div align="center"><strong><%=Date()%> 来源统计</strong></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>来源数量</strong></div></td>
<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
I=I+1
%>
<tr
<%If I 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
wend%></form>
</table>
<%End If%>
<%If RsUser("OnlineOpen")=-1 Then%><br>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="9"><div align="center"><strong>在线人数统计[可点击标题排序]
<%
Sql="Select Count(*) From WWW_QQCF_COM_CfCount_Online Where User_Name='"&User_Name&"'"
Set Rs=Conn.ExeCute(Sql)
Response.Write "共有人<font color=ff0000>"&Rs(0)&"</font>在线"
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_Online Where User_Name='"&User_Name&"' Order By Online_LastTime Desc"
Rs.Open Sql,Conn,1,1
%>
</strong></div></td>
</tr>
<tr>
<td width="27" bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=ID"><strong>序号</strong></a></div></td>
<td width="54" bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Online_Ip"><strong>IP</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=Ly">来源页面</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Online_AddTime"><strong>进站时间</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=CurrWeb">最后活动页面</a></strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Online_LastTime"><strong>最后活动</strong></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>此次停留</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=ReadTotal"><strong>共浏览几页</strong></a></div></td>
</tr>
<%while not rs.eof%>
<tr
<%
I=I+1
If I Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center">
<%If Ip=Rs("Online_Ip") Then Response.Write "<font color=ff0000>"%>
<%=Rs("Online_Ip")%>
<%If Ip=Rs("Online_Ip") Then Response.Write "</font>"%>
</div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs("VisitTotal")%></div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center">
<%If Rs("Ly")="-" Then%>
直接从浏览器输入
<%Else%>
<a href="http://<%=BreakUrl(Rs("Ly"),1)%>" target='_blank'><%=BreakUrl(Rs("Ly"),1)%></a>[<a href="<%=Rs("Ly")%>" target='_blank'>详细</a>]
<%End If%>
</div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("Online_AddTime")))&":"&GetTurnTime(Minute(Rs("Online_AddTime")))&":"&GetTurnTime(Second(Rs("Online_AddTime")))%></div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center">
<%If Rs("CurrWeb")="-" Then%>
Img调用无法记录当前页
<%Else%>
<a href="<%=Rs("CurrWeb")%>" target='_blank'><%=Left(BreakUrl(Rs("CurrWeb"),2),30)%></a>
<%End if%>
</div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("Online_LastTime")))&":"&GetTurnTime(Minute(Rs("Online_LastTime")))&":"&GetTurnTime(Second(Rs("Online_LastTime")))%></div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=DateDiff("n",Rs("Online_AddTime"),Rs("Online_LastTime"))%>分钟</div></td>
<td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs("ReadTotal")%></div></td>
</tr>
<%rs.movenext
wend%>
</table>
<%End If%>
<%If RsUser("TodayHourOpen")=-1 Then%><br>
<%
AddDate=Date()
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Hour_Count where User_Name='"&user_name&"' And AddDate=#"&AddDate&"#"
Set Rs=Conn.Execute(Sql)
ShowTotal=Rs(0)
IpTotal=Rs(1)
If ShowTotal=0 Then ShowTotal=1
If IpTotal=0 Then IpTotal=1
Sql="Select AddHour,AddDate From WWW_QQCF_COM_CfCount_Hour_Count Where User_Name='"&user_name&"' And AddDate=#"&AddDate&"# Group By AddHour,AddDate Order By AddHour Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td colspan="4"><div align="center"><strong><%=AddDate%> 每小时报表</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="center"><strong>小时</strong></div></td>
<td width="134"><div align="center"><strong>显示数量</strong></div></td>
<td width="135"><div align="center"><strong>IP数量</strong></div></td>
<td><div align="center"><strong>比率</strong></div></td>
</tr>
<%
do while not rs.eof
I=I+1
Sql="Select Counter,IpCounter From WWW_QQCF_COM_CfCount_Hour_Count where User_Name='"&user_name&"' And AddDate=#"&AddDate&"# And AddHour="&Rs("AddHour")
Set Rs1=Conn.Execute(Sql)
%>
<tr
<%if I mod 2=0 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>>
<td><div align="center"><%=Rs("AddHour")%>-<%=Rs("AddHour")+1%></div></td>
<td><div align="center"><%=Rs1(0)%><br>
</div></td>
<td><div align="center"><%=Rs1(1)%></div></td>
<td><img src=qqcf_pic/QQCf_BlueBar.gif width=<%=Rs1(0)/ShowTotal*300%> height=10><%=MyRate(Rs1(0),ShowTotal)%>%<br><img src=qqcf_pic/QQCf_GreenBar.gif width=<%=Rs1(1)/IpTotal*300%> height=10><%=MyRate(Rs1(1),IpTotal)%>%</td>
</tr>
<%
rs.movenext
loop%>
<tr bgcolor="#FFFFFF">
<td colspan="6"><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 bgcolor="D6DFF5">
<td colspan="4"><div align="center"><strong><%=AddDate%>此日期</strong>：总计<%=TotalCount%>次</div></td>
</tr>
</table>
<%End If%>
<%If RsUser("TodayHourOpen")=-1 Then%>
<br>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td bgcolor="#FFFFFF">
<%
Sql="Select Sum(Counter),Sum(IpCounter),Count(ID) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"'"
Set Rs=Conn.ExeCute(Sql)
If TotalRs=0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -