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