?? counter.asp
字號:
<%
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,User,Oto,Zzday,Counter,CountemRs,Today,Daynum,Yesterday,Top,Stats,Browser
User=Request.QueryString("User")
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
Zzday=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 Zzday(Zzday,Stats,Browser) values ('"&Zzday&"',"&mRs("Today")&","&mRs("Browser")&")"
application.unlock
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="delete from UserandIP"
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 UserandIP 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("User")=User
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")<mRs("Today") then
conn.Execute"Update Counter Set [Top]="&mRs("Today")&""
End If
mRs.close
Set mRs=nothing
conn.close
Set conn=nothing
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -