%@ LANGUAGE="VBSCRIPT" %> <% ck=request.cookies("wwwxingzhounet") response.buffer=true Response.Expires=0 //id=request.querystring("id") if ck<>"xingzhou" then Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("log.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From view ", conn,3,3 rs.addnew userip = Request.ServerVariables("REMOTE_ADDR") rs("ip")=userip ' rs("os")=Request.ServerVariables("HTTP_UA_OS") ' //rs("pixel")=Request.ServerVariables("HTTP_UA_PIXELS") rs("date")=now() rs.update rs.close conn.close set rs=nothing set conn=nothing end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|