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

2018-09-06 11:46

阅读:368

  复制代码 代码如下:
<%
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)

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
%>


评论


亲,登录后才可以留言!