📄 admin_counter.asp
字号:
Else
AveDayNum = CInt(AllNum / StatDayNum)
End If
End If
rs.Close
sql = "Select * From PE_StatVisit"
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
For i = 1 To 10
CountNum = CountNum + rs("" & i & "")
Next
Else
CountNum = 0
End If
rs.Close
sql = "Select Top 1 * From PE_StatBrowser Order By TBrwNum DESC"
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
MaxBrw = rs("TBrowser")
MaxBrwNum = rs("TBrwNum")
End If
rs.Close
sql = "Select Top 1 * From PE_StatSystem Order By TSysNum DESC"
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
MaxSys = rs("TSystem")
MaxSysNum = rs("TSysNum")
End If
rs.Close
sql = "Select Top 1 * From PE_StatScreen Order By TScrNum DESC"
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
MaxScr = rs("TScreen")
MaxScrNum = rs("TScrNum")
End If
rs.Close
sql = "Select Top 1 * From PE_StatColor Order By TColNum DESC"
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
MaxColor = rs("TColor")
MaxColorNum = rs("TColNum")
End If
rs.Close
sql = "Select Top 1 * From PE_StatAddress Order By TAddNum DESC"
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
MaxAre = rs("TAddress")
MaxAreNum = rs("TAddNum")
End If
rs.Close
sql = "Select Top 1 * From PE_StatWeburl Order By TWebNum DESC"
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
MaxWeb = rs("TWeburl")
MaxWebNum = rs("TWebNum")
End If
rs.Close
TitleRight = "开始统计日期：<font color=blue>" & StartDate & "</font>"
Response.Write "<table width='100%'><tr><td align='left'>您现在的位置：网站统计管理 >> " & Search & strGuide & "</td><td align='right'>" & TitleRight & "</td></tr></table>"
Response.Write "<table border=0 cellpadding=2 cellspacing=1 width='100%' bgcolor='#FFFFFF' class='border'>"
Response.Write " <tr class='title' align='center'>"
Response.Write " <td align=center width='20%' height='22'>统计项</td>"
Response.Write " <td align=center width='30%'>统计数据</td>"
Response.Write " <td width='20%'>统计项</td>"
Response.Write " <td align='center' width='30%'>统计数据</td>"
Response.Write " </tr>"
Response.Write " <tbody>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align=center width='20%'>总统计天数</td>"
Response.Write " <td align=center width='30%'>" & StatDayNum & "</td>"
Response.Write " <td align=center width='20%'>最高月访量</td>"
Response.Write " <td align=center width='30%'>" & MonthMaxNum & "</td>"
Response.Write " </tr>"
Response.Write " <tr class=tdbg>"
Response.Write " <td align=center width='20%'>总访问量</td>"
Response.Write " <td align=center width='30%'>" & AllNum & "</td>"
Response.Write " <td align=center width='20%'>最高月访量月份</td>"
Response.Write " <td align=center width='30%'>" & MonthMaxDate & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align=center width='20%'>总访问人数</td>"
Response.Write " <td align=center width='30%'>" & CountNum & "</td>"
Response.Write " <td align=center width='20%'>最高日访量</td>"
Response.Write " <td align=center width='30%'>" & DayMaxNum & "</td>"
Response.Write " </tr>"
Response.Write " <tr class=tdbg>"
Response.Write " <td align=center width='20%'>总浏览量</td>"
Response.Write " <td align=center width='30%'>" & TotalView & "</td>"
Response.Write " <td align=center width='20%'>最高日访量日期</td>"
Response.Write " <td align=center width='30%'>" & DayMaxDate & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align=center width='20%'>平均日访量</td>"
Response.Write " <td align=center width='30%'>" & AveDayNum & "</td>"
Response.Write " <td align=center width='20%'>最高时访量</td>"
Response.Write " <td align=center width='30%'>" & HourMaxNum & "</td>"
Response.Write " </tr>"
Response.Write " <tr class=tdbg>"
Response.Write " <td align=center width='20%'>今日访问量</td>"
Response.Write " <td align=center width='30%'>" & DayNum & "</td>"
Response.Write " <td align=center width='20%'>最高时访量时间</td>"
Response.Write " <td align=center width='30%'>" & HourMaxTime & "</td>"
Response.Write " </tr>"
Response.Write " <tr class=tdbg>"
Response.Write " <td align=center width='20%'>预计今日访问量</td>"
Response.Write " <td align=center width='30%'>" & Int(DayNum * (24 * 60) / (Hour(Now) * 60 + Minute(Now))) & "</td>"
Response.Write " <td align=center width='20%'></td>"
Response.Write " <td align=center width='30%'></td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor='#39867B'>"
Response.Write " <td align=center width='20%' height='1'></td>"
Response.Write " <td align=center width='30%' height='1'></td>"
Response.Write " <td align=center width='20%' height='1'></td>"
Response.Write " <td align=center width='30%' height='1'></td>"
Response.Write " </tr>"
Response.Write " <tr class=tdbg>"
Response.Write " <td align=center width='20%'>国内访问人数</td>"
Response.Write " <td align=center width='30%'>" & ChinaNum & "</td>"
Response.Write " <td align=center width='20%'>国外访问人数</td>"
Response.Write " <td align=center width='30%'>" & OtherNum & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align=center width='20%'>常用操作系统</td>"
If FoundInArr(RegCount_Fill, "FSystem", ",") = True Then
Response.Write " <td align=center width='30%'>" & MaxSys & " (" & MaxSysNum & ")</td>"
Else
Response.Write " <td align=center width='30%'>无须分析</td>"
End If
Response.Write " <td align=center width='20%'>常用浏览器</td>"
If FoundInArr(RegCount_Fill, "FBrowser", ",") = True Then
Response.Write " <td align=center width='30%'>" & MaxBrw & " (" & MaxBrwNum & ")</td>"
Else
Response.Write " <td align=center width='30%'>无须分析</td>"
End If
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align=center width='20%'>访问最多的地址</td>"
If FoundInArr(RegCount_Fill, "FAddress", ",") = True Then
Response.Write " <td align=center width='30%'>" & MaxAre & " (" & MaxAreNum & ")</td>"
Else
Response.Write " <td align=center width='30%'>无须分析</td>"
End If
Response.Write " <td align=center width='20%'>访问最多的网站</td>"
If FoundInArr(RegCount_Fill, "FWeburl", ",") = True Then
Response.Write " <td align=center width='30%'>"
If MaxWeb = "直接输入或书签导入" Then
Response.Write " " & Left(MaxWeb, 40) & " (" & MaxWebNum & ")"
Else
Response.Write " <a href='" & MaxWeb & "' target='_blank'>" & Left(MaxWeb, 40) & "</a> (" & MaxWebNum & ")"
End If
Response.Write " </td>"
Else
Response.Write " <td align=center width='30%'>无须分析</td>"
End If
Response.Write " </tr>"
Response.Write " <tr class=tdbg>"
Response.Write " <td align=center width='20%'>常用屏幕分辨率</td>"
If FoundInArr(RegCount_Fill, "FScreen", ",") = True Then
Response.Write " <td align=center width='30%'>" & MaxScr & " (" & MaxScrNum & ")</td>"
Else
Response.Write " <td align=center width='30%'>无须分析</td>"
End If
Response.Write " <td align=center width='20%'>常用屏幕显示颜色</td>"
If FoundInArr(RegCount_Fill, "FColor", ",") = True Then
Response.Write " <td align=center width='30%'>" & MaxColor & " (" & MaxColorNum & ")</td>"
Else
Response.Write " <td align=center width='30%'>无须分析</td>"
End If
Response.Write " </tr>"
Response.Write " </tbody>"
Response.Write "</table>"
Set rs = Nothing
End Sub
Sub FVisitor()
strGuide = "最近访问记录"
sql = "Select * From PE_StatVisitor Order By VTime DESC"
Set rs = Server.CreateObject("adodb.recordset")
rs.Open sql, Conn_Counter, 1, 1
If rs.BOF And rs.EOF Then
Response.Write "<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
Response.Write "<table width='100%'><tr><td align='left'>您现在的位置：网站统计管理 >> " & Search & strGuide & "</td><td align='right'>" & TitleRight & "</td></tr></table>"
Response.Write "<table width='100%' border='0' cellspacing='1' cellpadding='0' class='border'>"
Response.Write " <tr class=title height='22'>"
Response.Write " <td align=center height='22'>访问时间(服务器端)</td>"
Response.Write " <td align=center height='22'>访问时间(客户端)</td>"
Response.Write " <td align=center height='22'>访问者IP</td>"
Response.Write " <td align=center height='22'>地址</td>"
Response.Write " <td align=center height='22'>链接页面</td>"
Response.Write " <td align=center height='22'>操作</td>"
Response.Write " </tr>"
Do While Not rs.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td align=left width='120' height='22'>" & rs("VTime") & "</td>"
Response.Write " <td align=left width='120' height='22'>" & DateAdd("h", -rs("Timezone") - MasterTimeZone, rs("VTime")) & "</td>"
Response.Write " <td align=left width='80' height='22'>" & rs("IP") & "</td>"
Response.Write " <td align=left width='100' height='22'>" & rs("Address") & "</td>"
Response.Write " <td align=left height='22'><a href='" & rs("Referer") & "' title='" & rs("Referer") & "' target='_blank'>" & Left(rs("Referer"), 40) & "</a></td>"
Response.Write " <td align=left width='60' height='22'><a href='Admin_Counter.asp?Action=ClientDetail&id=" & rs("Id") & "'>查看明细</a></td>"
Response.Write " </tr>"
VisitorNum = VisitorNum + 1
If VisitorNum >= MaxPerPage Then Exit Do
rs.MoveNext
Loop
Response.Write "</table>"
If TotalPut > 0 Then
Response.Write ShowPage(strFileName, TotalPut, MaxPerPage, CurrentPage, True, True, "个访问记录", True)
End If
End If
rs.Close
Set rs = Nothing
End Sub
Sub FCounter()
Item = Array("首次", "二次", "三次", "四次", "五次", "六次", "七次", "八次", "九次", "十次以上")
ItemNum = 10
strGuide = "访问次数统计分析"
StatItem = "次数分析"
sql = "Select * From PE_StatVisit"
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 PE_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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -