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

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