📄 admin_counter.asp
字号:
end sub
sub FWeburl()
Sql="Select * From FWeburl Order By TWebNum DESC"
strGuide="访问者来访网站分析"
StatItem="来访网站"
call Ftable()
end sub
sub FReferer()
Sql="Select * From FRefer Order By TRefNum DESC"
strGuide="访问者链接页面分析"
StatItem="链接页面"
call Ftable()
end sub
sub FSystem()
Sql="Select * From FSystem Order By TSysNum DESC"
strGuide="访问者所用操作系统分析"
StatItem="操作系统"
call Ftable()
end sub
sub FBrowser()
Sql="Select * From FBrowser Order By TBrwNum DESC"
strGuide="访问者所用浏览器分析"
StatItem="浏览器"
call Ftable()
end sub
sub FMozilla()
Sql="Select * From FMozilla Order By TMozNum DESC"
strGuide="访问者HTTP_USER_AGENT字符串分析"
StatItem="USER_AGENT"
call Ftable()
end sub
sub FScreen()
Sql="Select * From FScreen Order By TScrNum DESC"
strGuide="访问者屏幕大小分析"
StatItem="屏幕大小"
call Ftable()
end sub
sub FColor()
Sql="Select * From FColor Order By TColNum DESC"
strGuide="访问者屏幕显示颜色分析"
StatItem="屏幕显示颜色"
call Ftable()
end sub
sub Stable()
Rs.Open Sql,conn_counter,1,1
if Not Rs.Bof and Not Rs.Eof then
Assay=Rs.GetRows
Rows=ItemNum-1
Else
Rows=-1
end if
Rs.Close
for i=0 to Rows
TotalNum=TotalNum+Assay(i,0)
Next
ReDim Percent(Rows)
ReDim BarWidth(Rows)
for i=0 to Rows
if TotalNum>0 then
Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)&"%"
BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth
end if
Next
TitleRight="有效统计：<font color=red>"&TotalNum&"</font>"
if Rows<0 then
strHTML="<li>系统中无数据！"
else
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 width='30%' nowrap height='22'>" & StatItem & "</td>"
strHTML=strHTML & " <td align=left width='20%' nowrap>访问人数</td>"
strHTML=strHTML & " <td align=left width='20%' nowrap>百分比</td>"
strHTML=strHTML & " <td align=left width='30%' nowrap>图示</td>"
strHTML=strHTML & " </tr>"
for i=0 to Rows
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td align=left>" & Item(i) & "</td>"
strHTML=strHTML & " <td align=left> " & Assay(i,0) & "</td>"
strHTML=strHTML & " <td align=left>" & Percent(i) & "</td>"
strHTML=strHTML & " <td align=left><img src='../Images/bar.gif' width='" & Barwidth(i) & "' height='10'></td>"
strHTML=strHTML & " </tr>"
next
strHTML=strHTML & "</table>"
end if
response.write strHTML
end sub
sub Ftable()
Rs.Open Sql,conn_counter,1,1
do while not rs.eof
TotalNum=TotalNum+rs(1)
rs.movenext
loop
Rs.Close
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>"&TotalNum&"</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 StatItemNum
StatItemNum=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 width='30%' nowrap height='22'>" & StatItem & "</td>"
strHTML=strHTML & " <td align=left width='20%' nowrap>访问人数</td>"
strHTML=strHTML & " <td align=left width='20%' nowrap>百分比</td>"
strHTML=strHTML & " <td align=left width='30%' nowrap>图示</td>"
strHTML=strHTML & " </tr>"
do while not rs.eof
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td align=left nowrap>"
if (Action="FWeburl" or Action="FReferer") and rs(0)<>"直接输入或书签导入" then
strHTML=strHTML & "<a href='"&rs(0)&"' title='"&rs(0)&"' target='_blank'>"&Left(rs(0),40)&"</a>"
elseif Action="FMozilla" then
strHTML=strHTML & "<a title='"&rs(0)&"'>"&Left(rs(0),40)&"</a>"
else
strHTML=strHTML & rs(0)
end if
strHTML=strHTML & " </td>"
strHTML=strHTML & " <td align=left > " & rs(1) & "</td>"
strHTML=strHTML & " <td align=left >" & FormatNumber(Int(rs(1)/TotalNum*10000)/100,2,-1) & "%</td>"
strHTML=strHTML & " <td align=left ><img src='../Images/bar.gif' width='" & rs(1)/TotalNum*MaxWidth & "' height='12'></td>"
strHTML=strHTML & " </tr>"
StatItemNum=StatItemNum+1
if StatItemNum>=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 HistoryList()
strHTML="<form name='form1' method='post' action='Admin_Counter.asp'>"
strHTML=strHTML & " <table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td width='120'><strong>网站统计查询：</strong></td>"
strHTML=strHTML & " <td>报表类型： "
strHTML=strHTML & " <select name='type' size='1' class='Select' onChange=change_type()>"
strHTML=strHTML & " <option value='1' selected>日报表</option>"
strHTML=strHTML & " <option value='2'>月报表</option>"
strHTML=strHTML & " <option value='3'>年报表</option>"
strHTML=strHTML & " </select>"
strHTML=strHTML & " <select name='qyear' size='1' class='Select' onChange=change_it()>"
for i=2003 to 2010
if i=year(date) then
strHTML=strHTML & "<option value='" & i & "' selected>" & i & "</option>"
else
strHTML=strHTML & "<option value='" & i & "'>" & i & "</option>"
end if
next
strHTML=strHTML & " </select>"
strHTML=strHTML & " 年"
strHTML=strHTML & " <select name='qmonth' size='1' onChange=change_it()>"
for i=1 to 12
if i=month(date) then
strHTML=strHTML & "<option value='" & i & "' selected>" & i & "</option>"
else
strHTML=strHTML & "<option value='" & i & "'>" & i & "</option>"
end if
next
strHTML=strHTML & " </select>"
strHTML=strHTML & " 月"
strHTML=strHTML & " <select name='qday' size='1' >"
dim year29,monthdays
year29=Year(date) Mod 4
Select Case Month(date)
Case 2:If year29=0 then monthdays=29 Else monthdays=28 end if
Case 4:monthdays=30
Case 6:monthdays=30
Case 9:monthdays=30
Case 11:monthdays=30
Case Else:monthdays=31
end Select
for i=1 to monthdays
if i=day(date) then
strHTML=strHTML & "<option value='" & i & "' selected>" & i & "</option>"
else
strHTML=strHTML & "<option value='" & i & "'>" & i & "</option>"
end if
next
strHTML=strHTML & " </select>"
strHTML=strHTML & " 日"
strHTML=strHTML & " <input type='submit' name='Search' value='查询'>"
strHTML=strHTML & " </td>"
strHTML=strHTML & " <td width='120' align='center'><a href='Admin_Counter.asp?Action=Init'>统计数据初始化</a></td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " </table>"
strHTML=strHTML & "</form>"
response.write strHTML
end sub
Sub Init()
strHTML = "<script language = 'JavaScript'>" & vbCrLf
strHTML = strHTML & "function CheckForm(){" & vbCrLf
strHTML = strHTML & " if(confirm('确实要进行初始化吗？一旦清除将无法恢复！'))" & vbCrLf
strHTML = strHTML & " {" & vbCrLf
strHTML = strHTML & " return true;" & vbCrLf
strHTML = strHTML & " }" & vbCrLf
strHTML = strHTML & " else" & vbCrLf
strHTML = strHTML & " {" & vbCrLf
strHTML = strHTML & " return false;" & vbCrLf
strHTML = strHTML & " }" & vbCrLf
strHTML = strHTML & "}" & vbCrLf
strHTML = strHTML & "</script>" & vbCrLf
strHTML = strHTML & "<br><table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
strHTML = strHTML & " <tr class='title'>"
strHTML = strHTML & " <td height='22' align='center'><strong> 数 据 初 始 化 </strong></td>"
strHTML = strHTML & " </tr>"
strHTML = strHTML & " <tr class='tdbg'>"
strHTML = strHTML & " <td height='150'>"
strHTML = strHTML & "<form name='myform' method='post' action='Admin_Counter.asp' onSubmit='return CheckForm();'>"
strHTML = strHTML & "<p align='center'><font color='#FF0000'><b>请慎用此功能，因为一旦清除将无法恢复！</b></font><br>此操作将清除数据库中的所有统计数据，用于系统初始化时及需要对网站的访问统计数据进行重新统计时使用。</p>"
strHTML = strHTML & "<p align='center'><input name='Action' type='hidden' id='Action' value='DoInit'>"
strHTML = strHTML & "<input type='submit' name='Submit' value=' 统计数据初始化 '></p>"
strHTML = strHTML & "</form>"
strHTML = strHTML & " </td>"
strHTML = strHTML & " </tr>"
strHTML = strHTML & "</table>"
Response.Write strHTML
End Sub
Sub DoInit()
conn_counter.Execute ("delete from FAddress")
conn_counter.Execute ("delete from FArea")
conn_counter.Execute ("delete from FBrowser")
conn_counter.Execute ("delete from FColor")
conn_counter.Execute ("delete from FIp")
conn_counter.Execute ("delete from FMozilla")
conn_counter.Execute ("delete from FRefer")
conn_counter.Execute ("delete from FScreen")
conn_counter.Execute ("delete from FSystem")
conn_counter.Execute ("delete from FTimezone")
conn_counter.Execute ("delete from FVisit")
conn_counter.Execute ("delete from FWeburl")
conn_counter.Execute ("delete from InfoList")
conn_counter.Execute ("delete from StatDay")
conn_counter.Execute ("delete from StatMonth")
conn_counter.Execute ("delete from StatWeek")
conn_counter.Execute ("delete from StatYear")
conn_counter.Execute ("delete from Visitor")
conn_counter.Execute ("delete from InfoList")
conn_counter.Execute ("delete from InfoList")
conn_counter.Execute ("insert into InfoList (StartDate,OldDay) values ('" & Cstr(Year(Date)&"-"&Month(Date)&"-"&Day(date)) & "','" & Cstr(Year(Date)&"-"&Month(Date)&"-"&Day(date)) & "')")
Call WriteSuccessMsg("统计数据初始化成功！")
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -