复制代码代码如下：
<％
DIMIP，数字，动物型，Loca，URI
Dimconn，SQL，Rs
ip = request.servervariables（“远程_ADDR”）
uri = request.servervariables（“ path_info”）
number1 = request.servervariables（“ http_x-up-calling-line-id”）
Mobile1 = request.servervariables（“ http_user-agent”）
number = right（number1，len（number1）-2）
Mobile2 = split（Mobile1，“/”）
MobileType = Mobile2（0）
loca = request.cookies（“ cui”）
sql =“ select*fromvisitorOrderByidDesc”
Rs.Opensql，Conn，1,3
Rs.Addnew
rs（“ sdate”）=日期
rs（“ stime”）=时间
RS（“ IP”）= IP
rs（“ userno”）=数字
RS（“ MobileType”）= MobileType
rs（“ cui”）= loca
rs（“ uri”）= uri
Rs.update
Rs.Close
conn.close
setrs =没有
setConn =没有
％>