📄 aa_count.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Call Page_AdminFlag(16)
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_Count.asp?Action=Main>详细浏览记录</A> | <A HREF=Aa_Count.asp?Action=Hour>24小时统计</A> | <A HREF=Aa_Count.asp?Action=Day>日统计</A> | <A HREF=Aa_Count.asp?Action=Month>月统计</A> | <A HREF=Aa_Count.asp?Action=IeOs>客户端软件</A> | <A HREF=Aa_Count.asp?Action=Form>来路统计</A> | <A HREF=Aa_Count.asp?Action=To>被访页面</A> | <A HREF=Aa_Count.asp?Action=Ip>IP统计</A> | <A HREF=Aa_Count.asp?Action=Ress>访问者地区</A>"
Dim CountvForm
Dim Count_HourNz,Count_HourAf,Count_HourNf,Count_HourAz,lsbf
Dim Count_HourN,Count_HourA,Count_DayA,Count_DayN,Count_MonthN,Count_MonthA,Count_OsAs,Count_IEAs
Dim Count_DayNz,Count_DayAf,Count_DayNf,Count_DayAz
Dim Count_MonthNz,Count_MonthAf,Count_MonthNf,Count_MonthAz
Dim IEx,Osx,Count_IEA,Count_OsA,Count_IEAf,Count_OsAf
Dim tdWih,FormName,FormCount,ToCount,IpCount,RessCount
Select Case Action
Case "Main"
Page_BootmName="详细浏览记录"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Visitors order by Visitors_Date desc"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=18% HEIGHT=23 class=Table6>时间</TD><TD WIDTH=22% class=Table6>来源地区</TD><TD WIDTH=15% class=Table6>IP</TD><TD WIDTH=10% class=Table6>操作系统</TD><TD WIDTH=10% class=Table6>浏览器</TD><TD class=Table6>来源网页</TD></TR>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
IF Rs_Manage("Visitors_Form")="直接输入网址进入的" THEN
CountvForm=Web_Const(1)
Else
CountvForm=Rs_Manage("Visitors_Form")
End IF
strIfa = strIfa & "<TR class=Table8 onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#799ae1'><TD HEIGHT=25>" & Rs_Manage("Visitors_Date") & "</TD><TD>" & Rs_Manage("Visitors_Ress") & "</TD><TD>" & Rs_Manage("Visitors_IP") & "</TD><TD>" & Rs_Manage("Visitors_OS") & "</TD><TD>" & Rs_Manage("Visitors_IE") & "</TD><TD><a title=" & CountvForm & " href=" & CountvForm & " target=_blank>" & gotTopic(Rs_Manage("Visitors_Form"),24,0) & "</a></TD></TR>"
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
"<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
"</TABLE>"
Call Page_aTable(0,1)
Case "Hour"
Page_BootmName="24小时统计"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Count_HourN=Conn.Execute("Select Count_HourN from Tx_Count order by Count_HourN desc")(0)
Count_HourA=Conn.Execute("Select Count_HourA from Tx_Count order by Count_HourA desc")(0)
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select ID,Count_HourS,Count_HourN,Count_HourA,Count_HourD From Tx_Count Where ID<=24"
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Count_HourNz=Rs("Count_HourN")+Count_HourNz
Count_HourNf=Count_HourNf & "," & Rs("Count_HourN")
Count_HourAz=Rs("Count_HourA")+Count_HourAz
Count_HourAf=Count_HourAf & "," & Rs("Count_HourA")
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
Count_HourNf=split(mid(Count_HourNf,2,len(Count_HourNf)),",")
Count_HourAf=split(mid(Count_HourAf,2,len(Count_HourAf)),",")
strIfa = "<TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=23 ALIGN=center class=Table6>最近24小时访问量</TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=75% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100% border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 To 23
IF Count_HourNz=0 THEN
Answer=0
Else
Answer=int((Count_HourNf(i)/Count_HourN)*140)
End IF
x=Count_HourNz
IF x=0 THEN x=1
lsbf=int(Count_HourNf(i)*1000/x)/10
IF lsbf<1 THEN lsbf="0" & lsbf
lsbf=lsbf&"%"
strIfa = strIfa & "<TD WIDTH=4% valign=bottom><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=" & i & "时，访问" & int(Count_HourNf(i)) & "次，" & lsbf & " bgcolor=006699></TD></TR></TABLE></TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=75% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 to 23
strIfa = strIfa & "<TD WIDTH=4% HEIGHT=25>" & i & "</TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=23 ALIGN=center class=Table6> 所有24小时访问量 </TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=75% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100% border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 To 23
IF Count_HourAz=0 THEN
Answer=0
Else
Answer=int((Count_HourAf(i)/Count_HourA)*140)
End IF
x=Count_HourAz
IF x=0 THEN x=1
lsbf=int(Count_HourAf(i)*1000/x)/10
IF lsbf<1 THEN lsbf="0" & lsbf
lsbf=lsbf&"%"
strIfa = strIfa & "<TD WIDTH=4% valign=bottom><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=" & i & "时，访问" & int(Count_HourAf(i)) & "次，" & lsbf & " bgcolor=#B50000></TD></TR></TABLE></TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=75% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 to 23
strIfa = strIfa & "<TD WIDTH=4% HEIGHT=25>" & i & "</TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR></TABLE>"
Call Page_aTable(0,0)
Case "Day"
Page_BootmName="日统计"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Count_DayN=Conn.Execute("Select Count_DayN from Tx_Count order by Count_DayN desc")(0)
Count_DayA=Conn.Execute("Select Count_DayA from Tx_Count order by Count_DayA desc")(0)
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select ID,Count_DayS,Count_DayN,Count_DayA,Count_DayD From Tx_Count"
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Count_DayNz=Rs("Count_DayN")+Count_DayNz
Count_DayNf=Count_DayNf & "," & Rs("Count_DayN")
Count_DayAz=Rs("Count_DayA")+Count_DayAz
Count_DayAf=Count_DayAf & "," & Rs("Count_DayA")
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
Count_DayNf=split(mid(Count_DayNf,2,len(Count_DayNf)),",")
Count_DayAf=split(mid(Count_DayAf,2,len(Count_DayAf)),",")
strIfa = "<TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=23 ALIGN=center class=Table6>最近31天访问量</TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=90% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100% border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 To 30
IF Count_DayNz=0 THEN
Answer=0
Else
Answer=int((Count_DayNf(i)/Count_DayN)*140)
End IF
x=Count_DayNz
IF x=0 THEN x=1
lsbf=int(Count_DayNf(i)*1000/x)/10
IF lsbf<1 THEN lsbf="0" & lsbf
lsbf=lsbf&"%"
strIfa = strIfa & "<TD WIDTH=3% valign=bottom><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=" & i+1 & "日，访问" & int(Count_DayNf(i)) & "次，" & lsbf & " bgcolor=006699></TD></TR></TABLE></TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=90% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=1 to 31
strIfa = strIfa & "<TD WIDTH=3% HEIGHT=25>" & i & "</TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=23 ALIGN=center class=Table6> 所有月份日访问量 </TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=90% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100% border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 To 30
IF Count_DayAz=0 THEN
Answer=0
Else
Answer=int((Count_DayAf(i)/Count_DayA)*140)
End IF
x=Count_DayAz
IF x=0 THEN x=1
lsbf=int(Count_DayAf(i)*1000/x)/10
IF lsbf<1 THEN lsbf="0" & lsbf
lsbf=lsbf&"%"
strIfa = strIfa & "<TD WIDTH=3% valign=bottom><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=" & i+1 & "日，访问" & int(Count_DayAf(i)) & "次，" & lsbf & " bgcolor=#B50000></TD></TR></TABLE></TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=90% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=1 to 31
strIfa = strIfa & "<TD WIDTH=3% HEIGHT=25>" & i & "</TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR></TABLE>"
Call Page_aTable(0,0)
Case "Month"
Page_BootmName="月统计"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Count_MonthN=Conn.Execute("Select Count_MonthN from Tx_Count order by Count_MonthN desc")(0)
Count_MonthA=Conn.Execute("Select Count_MonthA from Tx_Count order by Count_MonthA desc")(0)
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select ID,Count_MonthS,Count_MonthN,Count_MonthA,Count_MonthD From Tx_Count Where Id<=12"
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Count_MonthNz=Rs("Count_MonthN")+Count_MonthNz
Count_MonthNf=Count_MonthNf & "," & Rs("Count_MonthN")
Count_MonthAz=Rs("Count_MonthA")+Count_MonthAz
Count_MonthAf=Count_MonthAf & "," & Rs("Count_MonthA")
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
Count_MonthNf=split(mid(Count_MonthNf,2,len(Count_MonthNf)),",")
Count_MonthAf=split(mid(Count_MonthAf,2,len(Count_MonthAf)),",")
strIfa = "<TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=23 ALIGN=center class=Table6>最近12个月访问量</TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=60% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100% border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 To 11
IF Count_MonthNz=0 THEN
Answer=0
Else
Answer=int((Count_MonthNf(i)/Count_MonthN)*140)
End IF
x=Count_MonthNz
IF x=0 THEN x=1
lsbf=int(Count_MonthNf(i)*1000/x)/10
IF lsbf<1 THEN lsbf="0" & lsbf
lsbf=lsbf&"%"
strIfa = strIfa & "<TD WIDTH=3% valign=bottom><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=" & i+1 & "月，访问" & int(Count_MonthNf(i)) & "次，" & lsbf & " bgcolor=006699></TD></TR></TABLE></TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=60% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=1 to 12
strIfa = strIfa & "<TD WIDTH=3% HEIGHT=25>" & i & "</TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=23 ALIGN=center class=Table6> 所有月访问量 </TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=60% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100% border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=0 To 11
IF Count_MonthAz=0 THEN
Answer=0
Else
Answer=int((Count_MonthAf(i)/Count_MonthA)*140)
End IF
x=Count_MonthAz
IF x=0 THEN x=1
lsbf=int(Count_MonthAf(i)*1000/x)/10
IF lsbf<1 THEN lsbf="0" & lsbf
lsbf=lsbf&"%"
strIfa = strIfa & "<TD WIDTH=3% valign=bottom><TABLE WIDTH=100% border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=" & i+1 & "月，访问" & int(Count_MonthAf(i)) & "次，" & lsbf & " bgcolor=#B50000></TD></TR></TABLE></TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=60% border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
For i=1 to 12
strIfa = strIfa & "<TD WIDTH=3% HEIGHT=25>" & i & "</TD>"
Next
strIfa = strIfa & "</TR></TABLE></TD></TR></TABLE>"
Call Page_aTable(0,0)
Case "IeOs"
Page_BootmName="客户端软件"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -