|
起始统计：
2004年03月01日
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("kdf0qwejf.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = RS("TODAY")
Rs("BMONTH") = Rs("MONTH")
Rs("MONTH") = 1
Rs("TODAY") = 1
Rs.Update
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = Rs("TODAY")
Rs("TODAY") = 1
Rs.Update
END IF
END IF
Rs("TOTAL")=Rs("TOTAL") + 1
Rs("TODAY") =Rs("TODAY") + 1
Rs("MONTH")=Rs("MONTH") + 1
Rs.Update
Response.write "
"
Response.write"总访问人次："
MyCounter( Rs("TOTAL") )
Response.write "
"
Response.write"今日来访："
MyCounter( Rs("TODAY") )
Response.write "
"
Response.write"昨日来访："
MyCounter( Rs("YESTERDAY") )
Response.write "
"
%>
<%
Response.write"本月来访人次："
MyCounter( Rs("MONTH") )
Response.write "
"
Response.write"上月来访人次："
MyCounter( Rs("BMONTH") )
Response.write "
"
N=now
D2 = DateValue(N)
D1 =#03/01/2004# ' 开始统计日期(月/日/年)
'Response.write"开始统计日至今天："
'MyCounter( DateDiff("d", D1, D2) )
'Response.write "
"
D3 = DateDiff("d", D1, D2)
Response.write"平均每日人次："
MyCounter( Rs("TOTAL")\D3 )
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "![](./main/") "
Next
Response.write G
End Function
%>
|
工作动态
