WAP获取手机号的方法

众所周知移动是无法直接获取手机号码的，

但是下面的代码针对联通还有电信手机还是挺有用的！

这是针对VB.NET的其他语言需要小小修改一下

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