|
<%dim info
dim infofile
dim Ipinfo
dim Browserinfo
IpInfo=request.servervariables("remote_addr")
Browserinfo=request.servervariables("HTTP_USER_AGENT")
Referer=request.servervariables("HTTP_REFERER")
on error resume next
dbtab="DBQ="+server.mappath("b/tj/db/info.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set dbconnection=server.createobject("adodb.connection")
dbconnection.open dbtab
set dbrecordset=server.createobject("adodb.recordset")
dbrecordset.open "info",dbconnection,3,3
if dbrecordset.eof=true then
dbrecordset.movelast
end if
dbrecordset.addnew
dbrecordset("IP")=ipinfo
dbrecordset("Browser")=Browserinfo
dbrecordset("Datec")=Date()
dbrecordset("Time")=Time()
dbrecordset("Referer")=Referer
dbrecordset.update
dbrecordset.close%>
|
|
 |
