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