Copyright 2009 扬州市飞鹰电子科技有限公司 All Rights Reserved
地址：江苏省宝应县夏集工业区安大公路郭夏路交汇处 电话：0514-80895111 传真：0514-80895222
免费热线：400-6017-808 邮编：225824 网址：www.finetc.com E-Mail:finetc@finetc.com 沪ICP备05002063号
<%
mode = LCASE(Request("mode"))
gif = Request("gif")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("count/counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
LASTIP = RS("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")
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 "×ü·??êá?￡o"
GCounter( RS("TOTAL") )
response.write " "
response.write " | "
response.write ""
N = Now
D2 = DateValue(N)
D1 = #1/9/2002# ' ?aê?í3??è??ú(??/è?/?ê)
CONN.CLOSE
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "![](./count/gif/") "
Next
response.write G
End Function
%>
|
