在WAP中得到访问者的手机号码

<%
function getPhoneNumber()
  dim mobile
  mobile = ""

  if Request.ServerVariables("DEVICEID")<>"" then
    mobile = Request.ServerVariables("DEVICEID")
  end if

  if request.ServerVariables("HTTP_X_UP_subno")<>"" then
    Mobile = request.ServerVariables("HTTP_X_UP_subno")
    Mobile =mid(Mobile,3,11)
  end if

  if Request.ServerVariables("HTTP_X_NETWORK_INFO")<>"" then
    mobile=Request.ServerVariables("HTTP_X_NETWORK_INFO")
    mobile = right(mobile,len(mobile)-instr(mobile,","))
    mobile = left(mobile,instr(mobile,",")-1)
  end if

  if Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID")<>"" then
    mobile = Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID")
  end if


  if mobile="" then 
    getPhoneNumber = "无法获取手机号"
  else
    getPhoneNumber = "您的手机号:"&mobile
  end if

end function
%>
<%=getPhoneNumber()%>

String phone=request.getHeader("x-up-calling-line-id");

Enumeration typestr=request.getHeaderNames();
while(typestr.hasMoreElements())
...{
System.out.println(typestr.nextElement());
System.out.println(request.getHeader(typestr.nextElement()));
} 

<%
t1=timer()
usephones=Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID")
webdl=usephones
if usephones<>"" then
if len(usephones)>11 then usephones=right(usephones,11)
end if
Server.ScriptTimeout=999
If usephones=13800138000 or usephones=113800138000 or usephones=13800138000 or usephones=13800138000 or usephones=13800138000 or usephones=13800138000 then
Session("Counter")="pass_numbers_56431290"
End if
if Session("ltfsid")="ksjrh_jae56_hge654dgdd" then
response.redirect "/index.asp"
response.end
End if
'------------------------------------------------------------------------------------
if usephones="" then
if Session("useid")="" then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="fetc" or browsers="r380" or browsers="mozi" or browsers="mozi" then
if Session("Counter")<>"pass_numbers_56431290" then
response.redirect "/index.asp"
response.end
End if
end if
response.redirect "/lt/reg/ltdl.asp"
response.end
end if
end if
'----------------------------------------------------------------------------------
if Session("Counter")="pass_numbers_56431290" and usephones<>"" and Session("useid")="" then
sql="select * from usereg where CStr(usephone)='" & usephones & "'"
set rs=conn.execute(sql)
if Not rs.eof then
Session("ltname")=rs("usename")
Session("useid")=rs("id")
Session("showjd")=rs("jdshow")
if CStr(rs("ftsdbz"))="t" then
Session("ltfsbz")="sdfghdfg_dfg45fg45_6554"
else
Session("ltfsbz")=""
End if
if CStr(rs("lysdbz"))="t" then
Session("ltlybz")="dfg34fdf_dfg554ghy_3452"
else
Session("ltlybz")=""
End if
if CStr(rs("ftsdbz"))="x" then
Session("ltfsid")="ksjrh_jae56_hge654dgdd"
response.redirect "/index.asp"
else
Session("ltfsid")=""
End if
if CStr(rs("bzbz"))<>"0" then
Session("ltglzdl")=rs("bzbz")
else
Session("ltglzdl")=""
End if
Session.Timeout=10
set rs=nothing
end if
end if
'----------------------------------------------------------------------------------
if Session("Counter")<>"pass_numbers_56431290" and usephones<>"" then
'----------------------------------------------------------------------------------
sql="select * from usereg where CStr(usephone)='" & usephones & "'"
set rs=conn.execute(sql)
if Not rs.eof then
Session("ltname")=rs("usename")
Session("useid")=rs("id")
Session("showjd")=rs("jdshow")
if CStr(rs("ftsdbz"))="t" and Session("Counter")<>"pass_numbers_56431290" then
Session("ltfsbz")="sdfghdfg_dfg45fg45_6554"
else
Session("ltfsbz")=""
End if
if CStr(rs("lysdbz"))="t" and Session("Counter")<>"pass_numbers_56431290" then
Session("ltlybz")="dfg34fdf_dfg554ghy_3452"
else
Session("ltlybz")=""
End if
if CStr(rs("ftsdbz"))="x" and Session("Counter")<>"pass_numbers_56431290" then
Session("ltfsid")="ksjrh_jae56_hge654dgdd"
response.redirect "/index.asp"
else
Session("ltfsid")=""
End if
if CStr(rs("bzbz"))<>"0" then
Session("ltglzdl")=rs("bzbz")
else
Session("ltglzdl")=""
End if
Session.Timeout=10
set rs=nothing
else
sql="insert into usereg(usephone) values (" & usephones &")"
conn.execute(sql)
set rs=nothing
sql="select * from usereg where CStr(usephone)='" & usephones & "'"
set rs=conn.execute(sql)
Session("ltname")=rs("usename")
Session("useid")=rs("id")
Session("showjd")=rs("jdshow")
if CStr(rs("ftsdbz"))="t" and Session("Counter")<>"pass_numbers_56431290" then
Session("ltfsbz")="sdfghdfg_dfg45fg45_6554"
End if
if CStr(rs("lysdbz"))="t" and Session("Counter")<>"pass_numbers_56431290" then
Session("ltlybz")="dfg34fdf_dfg554ghy_3452"
else
Session("ltlybz")=""
End if
if CStr(rs("ftsdbz"))="x" and Session("Counter")<>"pass_numbers_56431290" then
Session("ltfsid")="ksjrh_jae56_hge654dgdd"
response.redirect "/index.asp"
else
Session("ltfsid")=""
End if
if CStr(rs("bzbz"))<>"0" then
Session("ltglzdl")=rs("bzbz")
else
Session("ltglzdl")=""
End if
Session.Timeout=10
response.redirect "/lt/reg/new.asp"
set rs=nothing
End if
End if
%>