国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp WAP獲取手機終端信息的一段代碼

2024-05-04 10:57:45
字體：大 中 小
來源：轉載
供稿：網友

復制代碼 代碼如下:

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 亳州市| 五家渠市| 若羌县| 苏尼特左旗| 渭南市| 铁岭市| 宜兰县| 准格尔旗| 宜都市| 桃源县| 永康市| 秦皇岛市| 兰西县| 宝清县| 无为县| 柏乡县| 剑河县| 抚宁县| 垣曲县| 莲花县| 邻水| 东丽区| 瑞金市| 九台市| 绥棱县| 长治市| 文昌市| 遂溪县| 贞丰县| 利辛县| 什邡市| 新民市| 塔城市| 临颍县| 浮山县| 抚远县| 金阳县| 连州市| 柳江县| 宣化县| 伊宁县|