复制代码代码如下:
<%
Dimip, Número, MobileType, Loca, Uri
Dimconn, SQL, Rs
Ip = request.servervariables ("remote_addr")
URI = Request.Servervariables ("Path_info")
número1 = request.Servervariables ("http_x-up-challing-line-ID")
Mobile1 = Request.Servervariables ("http_user-agent")
número = certo (número1, len (número1) -2)
Mobile2 = Split (Mobile1, "/")
mobileType = Mobile2 (0)
loca = request.cookies ("cui")
SQL = "Selecione*FromVisitorOrderByidDesc"
Rs.opensql, Conn, 1,3
Rs.Addnew
Rs ("sdate") = data
Rs ("stime") = tempo
Rs ("ip") = ip
Rs ("UserNo") = número
Rs ("mobileType") = mobileType
Rs ("cui") = loca
Rs ("uri") = uri
Rs.update
Rs.close
Conn.Close
Setrs = nada
SetConn = nada
%>