📄 conn.asp
字号:
<!--#Include FILE="config.asp"-->
<!--#INCLUDE FILE="theme/Wbmania.thm" -->
<%
'=========================================================================== 驱动数据库
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 "<tr class=cell><td align=center><table cellspacing=0 border=0 width=""100%"" cellpadding=3><tr><td colspan=""2"">今日: " & 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>"
End Sub
'=========================================================================== 页面底部
Sub footer
Response.Write "<br><table cellspacing=""0"" cellpadding=""3"" width=""100%"" border=""0"">" & _
"<tr><td align=center><font class=footer>ASP Cool Counter v1.0<br><img src=""theme/default/hr_black.gif"" height=2 width=""50%""><br>Copyright ©2000-2001 <A href=""http://harpoon.yeah.net"">Harpoon</A>,All Rights Reserved</font></td></tr>" & _
"<tr><td>" & _
"</td></tr></table></div></body></html>"
End Sub
'===========================================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -