複製代碼代碼如下：
<％
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 =沒有
％>