作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:33:14 阅读 我要评论

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

  推荐阅读

  asp身份证验证代码函数

身份证验证代码函数 Function CheckCardId(e) arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",") Wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",") Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",") If>>>详细阅读


本文标题:asp WAP获取手机终端信息的一段代码

地址:http://www.17bianji.com/kaifa2/ASP/32362.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)