📄 conn.asp
字号:
<%@ Language=VBScript %>
<!--#INCLUDE FILE="theme/Wbmania.asp" -->
<%
'==========================================================================
CountSize = 8 '计数不足在前面加零
CountView = True '计数是否显示在页面上,False/True
CountType = True '统计是记时间还是不记.True记，False不记
CountMode = True '在页面上显示不计时的计数结果，还是显示计时的结果，默认为不计时（计时为：20分钟内不加数)
'==========================================================================
CountLink = "/news/admin/js/ViewInfo.asp" '查看统计结果的连接。
ImageLink = "/news/admin/js" '图片地址
'==========================================================================
%>
<%
'=========================================================================== 驱动数据库
On error resume next
ConnCountStr="DBQ="+Server.Mappath("Counter.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open ConnCountStr
'===========================================================================
Server.ScriptTimeOut=150
'=========================================================================== 准确的时间
If len(Year(Now()))<=2 Then : NewYear="20" & Year(Now()) : Else : NewYear=Year(Now()) : End If
If len(Month(Now()))<=1 Then : NewMonth="0" & Month(Now()) : Else : NewMonth=Month(Now()) : End If
If len(Day(Now()))<=1 Then : NewDay="0" & Day(Now()) : Else : NewDay=Day(Now()) : End If
'=========================================================================== 基本统计数据
Set rs=server.createobject("adodb.recordset")
rs.open "Select * from DayCount",conn,1,1
DayTotal = rs.RecordCount '获得统计总天数
rs.Close
rs.open "Select * from Count",conn,1,1
'Avera = rs("AllCount")\DayTotal
StartDate = rs("StartDate") '开始统计日期
DayMax = rs("DayMax") '最高一天流量
AllCount = rs("AllCount") '统计访问总数(使用的天数)
ToDay = rs("ToDayCount") '今天访问流量
LogDate = rs("LogDate") '统计截止日期
TotalDays = DateDiff("d",DateValue(StartDate),date())+1 '统计访问总数(不管有没有使用，从开始统计算起.)
Avera = rs("AllCount")\TotalDays '日均访问流量
If (DateDiff("d",LogDate,Date()))>=1 Then ToDay = 0
'=========================================================================== 预计一天访问量
If Minute(time)=0 Then MinuteTime = 01 Else MinuteTime = Minute(time)
NowTime = (Right("0" & Hour(Time),2) & ":" & Right("0" & MinuteTime,2))
intending=Clng((ToDay/(Datediff("n","00:00",NowTime)))*(Datediff("n",NowTime,"23:59")+1)+ToDay)
'===========================================================================
rs.Close
set rs=nothing
'=========================================================================== 页面顶部
Sub Header
Response.Write "<HTML>" & _
"<HEAD>" & _
"<META content=""text/html; charset=gb2312"" http-equiv=Content-Type>" & _
"<META content=""Microsoft FrontPage 4.0"" name=GENERATOR>" & _
"<TITLE>统计信息</TITLE>"
Call header_theme
Response.Write"<table width=100% border=0 align=center cellspacing=1 bgcolor=#999999 >" & _
"<tr>" & _
"<td height=25 bgcolor=#eeeeee>当前位置：<a href=main.asp>管理首页</a> >> <a href=index.asp>最近40位访问网站者记录</a> 与 <a href=viewinfo.asp>详细统计</a></td>" & _
"<tr>" & _
"<tr><td bgcolor=#eeeeee>今日: " & ToDay & " (<img src=""" & ImageLink & "/theme/default/vstatb.gif"">) 全部: " & AllCount & " (<img src=""" & ImageLink & "/theme/default/hstatt.gif"">) 最高: " & DayMax & " (<img src=""" & ImageLink & "/theme/default/vstatg.gif"">) 日均: " & Avera & "</td></tr>" & _
"<table>"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -