left

<% Dim conn,connstr on error resume next connstr="DBQ="+server.mappath("#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'数据库连接地址 set conn=server.createobject("ADODB.CONNECTION") conn.open connstr dim mRs,Userip,Oto,Zday,Counter,CountemRs,Today,Daynum,Yesterday,Top,Stats,Browser Userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If Userip = "" Then Userip = Request.ServerVariables("REMOTE_ADDR") Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select * from Counter" mRs.open Sql,conn,1,3 Oto=mRs("Oto") If Oto<>date() then Zday=date()-1 application.lock conn.Execute"Update Counter Set Today=0,Browser=0,Oto=date(),Daynum=Daynum+1,Yesterday="&mRs("Today")&"" conn.Execute"Insert into 5izt_Day(Zday,Stats,Browser) values ('"&Zday&"',"&mRs("Today")&","&mRs("Browser")&")" application.unlock Set mRs=Server.CreateObject("adodb.recordSet") Sql="delete from 5izt_Ip" mRs.open Sql,conn,1,3 mRs.close Set mRs=nothing Else application.lock conn.Execute"Update Counter Set Browser=Browser+1" Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select * from 5izt_Ip where IP='"&Userip&"' order by Id desc" mRs.open Sql,conn,1,3 If mRs.bof and mRs.eof then mRs.addnew mRs("IP")=Userip mRs.update conn.Execute"Update Counter Set Counter=Counter+1,Today=Today+1" End If mRs.close Set mRs=nothing application.unlock End If Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select * from Counter" mRs.open Sql,conn,1,3 If mRs("Top") left

访问统计