欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-08-05 23:48:53
复制代码 代码如下:<%  dim ip,number,mobiletype,loca,uri  dim conn,sql,r...

复制代码 代码如下:

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