复制代码 代码如下:

<%

DimIp,number,mobiletype,loca,uri

DimConn,Sql,Rs

Ip=Request.ServerVariables("REMOTE_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")=date

Rs("STime")=time

Rs("IP")=Ip

Rs("UserNo")=number

Rs("MobileType")=mobiletype

Rs("CUI")=loca

Rs("URI")=uri

Rs.Update

Rs.Close

Conn.Close

SetRs=Nothing

SetConn=Nothing

%>