繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp WAP获取手机终端信息的一段代码
- ASP
- ASP 3.0高级编程（十一）
- ASP 3.0高级编程（十三）
- ASP 3.0高级编程（十四）
- ASP 3.0高级编程（十五）
- ASP 3.0高级编程（十六）
- ASP 3.0高级编程（十七）
- ASP 3.0高级编程（十八）
- ASP 3.0高级编程（十九）
- ASP 3.0高级编程（二十）
- ASP 3.0高级编程（二十一）
- ASP 3.0高级编程（二十二）
- ASP 3.0高级编程（二十三）
- ASP+配置 — ASP+配置概念（二）
- ASP+配置 — ASP+配置概念（三）
- ASP+全新接触（1）
- ASP+全新接触（2）
- ASP+全新接触（3）
- ASP+全新接触（4）
- asp+语法教程(一)前言
- asp+语法教程(二)书写我们的第一个asp+文件
ASP 中的 asp WAP获取手机终端信息的一段代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 259 ::
收藏到网摘: n/a
复制代码 代码如下:
<%
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
%>
评论 (0) All
