<%
Dim Connstr,db
db="linzi.mdb"
Connstr = "DBQ=" + Server.MapPath(db) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connstr
On Error Resume Next
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from [计数器]"
Rs.open Sql,Conn,1,3
if rs(3)=date() then
rs(0)=rs(0)+1
rs(2)=rs(2)+1
else
rs(1)=rs(0)
rs(0)=1
rs(2)=rs(2)+1
rs(3)=date()
End if
Caday=date-rs(4) '统计天数
Avday=int(rs(2)/CAday) '平均每天访问次数
today=rs(0) '今天访问次数
yeday=rs(1) '昨天访问次数
Alday=rs(2) '所有访问次数
rs.update
rs.close
set rs=Nothing
Conn.close
Set Conn=Nothing
Select Case Request("Linzi")
Case 1
Call DocClick()
Case 2
Call DocAll()
Case 3
Call ShowInfo()
End Select
Sub DocAll()
Response.Write("document.write("& chr(34) &"今日访问量 "&today&" 昨日访问量 "&yeday&" 总访问量 "&Alday&""& chr(34) &");")
End Sub
Sub DocClick()
Response.Write("document.write("& chr(34) &"您是第 "&Alday&" 位客人"& chr(34) &");")
End Sub
Sub ShowInfo()
%>
万网科技10000M.CN站点计数器