<%call tongji
sub tongji()
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="/shop9/data/yys75432d.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
Dim userip,userip2,reurl,purl,reie,pixe
if session("tongji")="1" then exit sub
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
userip2 = Request.ServerVariables("REMOTE_ADDR")
if userip = "" then
userip = userip2
end if
reurl=Request.ServerVariables("Http_REFERER")'来路
'reie=Request.ServerVariables("HTTP_USER_AGENT")'IE版本，系统
'pixe=Request.SERVERVARIABLES("HTTP_UA_PIXELS") '分辨率
purl=Request.ServerVariables("script_name")&"?"&request.ServerVariables("query_string")&"#deng" '访问的地址
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_tongji where datediff('h',adddate,now())<12 and ip='"&userip&"' order by id",conn,1,3
if not rs.eof then
exit sub
else
rs.addnew
rs("ip")=userip
rs("reurl")=reurl
rs("purl")=purl
if request.cookies("tong")("tongji")="1" then
rs("zaifan")=true
end if
rs.update
response.cookies("tong")("tongji")="1"
Response.Cookies("tong").Expires=Date+30
session("tongji")="1"
end if
rs.close
end sub
%>
