asp WAP获取手机终端信息的一段代码

　　<%

　　Dim Ip,number,mobiletype,loca,uri

　　Dim Conn,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 * From Visitor order By Id DESC"

　　Rs.Open Sql,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

　　Set Rs=Nothing

　　Set Conn=Nothing

　　%>