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