📄 admin_counter.asp
字号:
strHTML=strHTML & " <td align=center width='30%'>" & DayMaxNum & "</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class=tdbg>"
strHTML=strHTML & " <td align=center width='20%'>平均日访量</td>"
strHTML=strHTML & " <td align=center width='30%'>" & AveDayNum & "</td>"
strHTML=strHTML & " <td align=center width='20%'>最高日访量日期</td>"
strHTML=strHTML & " <td align=center width='30%'>" & DayMaxDate & "</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td align=center width='20%'>今日访问量</td>"
strHTML=strHTML & " <td align=center width='30%'>" & DayNum & "</td>"
strHTML=strHTML & " <td align=center width='20%'>最高时访量</td>"
strHTML=strHTML & " <td align=center width='30%'>" & HourMaxNum & "</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class=tdbg>"
strHTML=strHTML & " <td align=center width='20%'>预计今日访问量</td>"
strHTML=strHTML & " <td align=center width='30%'>" & Int(DayNum*(24*60)/(hour(now)*60+minute(now))) & "</td>"
strHTML=strHTML & " <td align=center width='20%'>最高时访量时间</td>"
strHTML=strHTML & " <td align=center width='30%'>" & HourMaxTime & "</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr bgcolor='#39867B'>"
strHTML=strHTML & " <td align=center width='20%' height='1'></td>"
strHTML=strHTML & " <td align=center width='30%' height='1'></td>"
strHTML=strHTML & " <td align=center width='20%' height='1'></td>"
strHTML=strHTML & " <td align=center width='30%' height='1'></td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class=tdbg>"
strHTML=strHTML & " <td align=center width='20%'>国内访问人数</td>"
strHTML=strHTML & " <td align=center width='30%'>" & ChinaNum & "</td>"
strHTML=strHTML & " <td align=center width='20%'>国外访问人数</td>"
strHTML=strHTML & " <td align=center width='30%'>" & OtherNum & "</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td align=center width='20%'>常用操作系统</td>"
strHTML=strHTML & " <td align=center width='30%'>" & MaxSys & " (" & MaxSysNum & ")</td>"
strHTML=strHTML & " <td align=center width='20%'>常用浏览器</td>"
strHTML=strHTML & " <td align=center width='30%'>" & MaxBrw & " (" & MaxBrwNum & ")</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class=tdbg>"
strHTML=strHTML & " <td align=center width='20%'>常用屏幕分辨率</td>"
strHTML=strHTML & " <td align=center width='30%'>" & MaxScr & " (" & MaxScrNum & ")</td>"
strHTML=strHTML & " <td align=center width='20%'>常用屏幕显示颜色</td>"
strHTML=strHTML & " <td align=center width='30%'>" & MaxColor & " (" & MaxColorNum & ")</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td align=center width='20%'>访问最多的地区</td>"
strHTML=strHTML & " <td align=center width='30%'>" & MaxAre & " (" & MaxAreNum & ")</td>"
strHTML=strHTML & " <td align=center width='20%'>访问最多的网站</td>"
strHTML=strHTML & " <td align=center width='30%'>"
if MaxWeb="直接输入或书签导入" then
strHTML=strHTML & " " & Left(MaxWeb,40) & " (" & MaxWebNum & ")"
else
strHTML=strHTML & " <a href='" & MaxWeb & "' target='_blank'>" & Left(MaxWeb,40) & "</a> (" & MaxWebNum & ")"
end if
strHTML=strHTML & " </td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " </tbody>"
strHTML=strHTML & "</table>"
response.write strHTML
end sub
Sub FVisitor()
strGuide="最近访问记录"
Sql="Select * From Visitor Order By Id DESC"
Rs.Open Sql,conn_counter,1,1
if Rs.Bof and Rs.Eof then
strHTML="<li>系统中无数据！"
else
totalPut=rs.recordcount
TitleRight=TitleRight & "共 <font color=red>" & totalPut & "</font> 个访问记录"
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage>1 then
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
else
currentPage=1
end if
end if
dim VisitorNum
VisitorNum=0
strHTML="<table width='100%'><tr><td align='left'>您现在的位置：网站统计管理 >> " & Search & strGuide & "</td><td align='right'>" & TitleRight & "</td></tr></table>"
strHTML=strHTML & "<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
strHTML=strHTML & " <tr class=title>"
strHTML=strHTML & " <td align=left nowrap height='22'>访问时间</td>"
strHTML=strHTML & " <td align=left nowrap>操作系统及浏览器</td>"
strHTML=strHTML & " <td align=left nowrap>屏幕大小</td>"
strHTML=strHTML & " <td align=left nowrap>地址</td>"
strHTML=strHTML & " <td align=left nowrap>链接页面</td>"
strHTML=strHTML & " </tr>"
do while not rs.eof
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td align=left width='15%' nowrap>" & rs("VTime") & "</td>"
strHTML=strHTML & " <td align=left width='20%' nowrap>" & rs("System") & " " & rs("Browser") & "</td>"
strHTML=strHTML & " <td align=left width='10%' nowrap>" & rs("Screen") & "</td>"
strHTML=strHTML & " <td align=left width='25%' nowrap>" & rs("Address") & "</td>"
strHTML=strHTML & " <td align=left width='30%' nowrap>"
if rs("Referer")="直接输入或书签导入" then
strHTML=strHTML & Left(rs("Referer"),40)
else
strHTML=strHTML & "<a href='" & rs("Referer") & "' title='" & rs("Referer") & "' target='_blank'>" & Left(rs("Referer"),40) & "</a>"
end if
strHTML=strHTML & " </td>"
strHTML=strHTML & " </tr>"
VisitorNum=VisitorNum+1
if VisitorNum>=MaxPerPage then exit do
rs.movenext
loop
strHTML=strHTML & "</table>"
if totalput>0 then
strHTML=strHTML & showpage(strFileName,totalput,MaxPerPage,true,true,"个访问记录")
end if
end if
rs.close
set rs=nothing
response.write strHTML
end sub
sub FCounter()
Item=array("首次","二次","三次","四次","五次","六次","七次","八次","九次","十次以上")
ItemNum=10
strGuide="访问次数统计分析"
StatItem="次数分析"
Sql="Select * From FVisit"
call Stable()
end sub
sub StatYear()
if Request("Type")="" then
QYear=Cstr(Year(Date))
Else
Search="查询结果："
end if
ItemNum=12
ReDim Item(11)
for I=0 to 11
Item(i)=QYear&"年"&i+1&"月"
Next
strGuide=QYear&"年访问统计分析"
StatItem="月份"
Sql="Select * From StatYear Where TYear='"&QYear&"'"
call Stable()
end sub
sub StatAllYear()
ItemNum=12
ReDim Item(ItemNum)
for I=0 to ItemNum-1
Item(i)=i+1&"月"
Next
strGuide="全部年访问统计分析"
StatItem="月份"
Sql="Select * From StatYear Where TYear='Total'"
call Stable()
end sub
sub StatMonth()
if Request("Type")="" then
QMonth=Cstr(Year(Date)&"-"&Month(Date))
Else
Search="查询结果："
end if
SYear=Mid(QMonth,1,Instr(QMonth,"-")-1)
SMonth=Mid(QMonth,Instr(QMonth,"-")+1)
Select Case Smonth
Case "2"
if (SYear mod 4)=0 then
ItemNum=29
Else
ItemNum=28
end if
Case "4" ItemNum=30
Case "6" ItemNum=30
Case "9" ItemNum=30
Case "11" ItemNum=30
Case Else ItemNum=31
end Select
ReDim Item(ItemNum-1)
for I=0 to ItemNum-1
Item(i)=SYear&"年"&SMonth&"月"&i+1&"日"
Next
strGuide=QMonth&"月访问统计分析"
StatItem="日期"
Sql="Select * From StatMonth Where TMonth='"&QMonth&"'"
call Stable()
end sub
sub StatAllMonth()
ItemNum=31
ReDim Item(ItemNum)
for I=0 to ItemNum-1
Item(i)=i+1&"日"
Next
strGuide="全部月访问统计分析"
StatItem="日期"
Sql="Select * From StatMonth Where TMonth='Total'"
call Stable()
end sub
sub StatWeek()
Item=array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")
ItemNum=7
strGuide="本周访问统计分析"
StatItem="星期"
Sql="Select * From StatWeek Where Tweek='Current'"
call Stable()
end sub
sub StatAllWeek()
Item=array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")
ItemNum=7
strGuide="全部周访问统计分析"
StatItem="星期"
Sql="Select * From StatWeek Where Tweek='Total'"
call Stable()
end sub
sub StatDay()
if Request("Type")="" then
QDay=Cstr(Year(Date)&"-"&Month(Date)&"-"&Day(date))
Else
Search="查询结果："
end if
ItemNum=24
ReDim Item(23)
for I=0 to ItemNum-1
Item(i)=mid(i+100,2)&":00-"&mid(i+101,2)&":00"
Next
strGuide=QDay&"日访问统计分析"
StatItem="小时"
Sql="Select * From StatDay Where TDay='"&QDay&"'"
call Stable()
end sub
sub StatAllDay()
ItemNum=24
ReDim Item(ItemNum)
for I=0 to ItemNum-1
Item(i)=mid(i+100,2)&":00-"&mid(i+101,2)&":00"
Next
strGuide="全部日访问统计分析"
StatItem="小时"
Sql="Select * From StatDay Where TDay='Total'"
call Stable()
end sub
sub FIp()
Sql="Select * From FIp Order By TIpNum DESC"
strGuide="访问者IP地址分析"
StatItem="IP地址"
call Ftable()
end sub
sub FArea()
Sql="Select * From FArea Order By TAreNum DESC"
strGuide="访问者所处地区分析"
StatItem="地区"
call Ftable()
end sub
sub FAddress()
Sql="Select * From FAddress Order By TAddNum DESC"
strGuide="访问者所在地址分析"
StatItem="地址"
call Ftable()
end sub
sub FTimezone()
Sql="Select * From FTimezone Order By TtimNum DESC"
strGuide="访问者所处时区分析"
StatItem="时区"
call Ftable()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -