在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 =<