南强小屋 Design By 杰米
复制代码 代码如下:
<%
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
%>
南强小屋 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
南强小屋 Design By 杰米
暂无asp WAP获取手机终端信息的一段代码的评论...