复制代码代码如下::
<%
Dimip, Nummer, Mobiletyp, Loca, Uri
Dimconn, SQL, Rs
IP = Request.Servervariables ("remote_addr")
URI = Request.Servervariables ("path_info")
Nummer1 = Request.Servervariables ("http_x-up-Calling-line-id")
Mobile1 = Request.Servervariables ("http_user-Agent")
Nummer = rechts (Nummer1, Len (Nummer1) -2)
Mobile2 = Split (Mobile1, "/")
MobileType = Mobile2 (0)
loca = request.cookies ("cui")
SQL = "SELECT*VONVISITORSITORSBYIDDESC"
Rs.opensql, Conn, 1,3
Rs.addnew
Rs ("sdate") = Datum
RS ("Stime") = Zeit
RS ("IP") = IP
RS ("usererno") = Zahl
RS ("Mobiletyp") = Mobiletyp
Rs ("cui") = loca
Rs ("uri") = uri
Rs.Update
Rs.close
Conn.close
Setrs = nichts
SetConn = nichts
%>