asp WAPは携帯電話の端末の情報の1段のコードを取得します

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