% @language="vbscript" %>
<%
'response.buffer=true
'Response.Expires=0
%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("jishu.mdb")
%>
<% if session("denglu")="" then %>
<%
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From jishu" , 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
N = Now
D2 = DateValue(N)
D1 = #1/4/2003#
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "
"
Next
response.write G
End Function
set rs=nothing
dim ipaddress
ipaddress=request.ServerVariables("remote_addr")
datas="'" & ipaddress & "','" & now() & "'"
sql="insert into ip(ip_add,ip_date)"
sql=sql & "values(" & datas & ")"
on error resume next
set rs=conn.execute(sql)
set rs=nothing
set conn=nothing
session("denglu")="yes"
%>
<% end if %>
世界顶级健身器(健身器材)、跑步机、按摩椅、体育用品、运动器材由瑞龙公司提供!