'当前请求的手机号码
'使用header 有些是移动 有些是连通
Public ReadOnly Property MyMobileNo() As String
Get
Dim Strtemp As String
Strtemp = IsMobileNo(Me.Request.ServerVariables("HTTP_X_NETWORK_INFO"))
If Strtemp.Length > 0 Then
Return Strtemp
End If
Strtemp = IsMobileNo(Me.Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID"))
If Strtemp.Length > 0 Then
Return Strtemp
End If
Strtemp = IsMobileNo(Me.Request.ServerVariables("HTTP_X_UP_SUBNO"))
If Strtemp.Length > 0 Then
Return Strtemp
End If
Strtemp = IsMobileNo(Me.Request.ServerVariables("DEVICEID"))
If Strtemp.Length > 0 Then
Return Strtemp
End If
Return ""
End Get
End Property
'提取手机号码
'因为有些号码是 +8613554996631的格式,所以要提取出来 13554996631
Public Function IsMobileNo(ByVal StrMobileNo As String) As String
If StrMobileNo Is Nothing Then
StrMobileNo = ""
End If
Dim Str As String = StrMobileNo
Dim SreR As String = "13[0-9]\d{8}"
Dim R As New System.Text.RegularExpressions.Regex(SreR)
Dim m As System.Text.RegularExpressions.Match
m = R.Match(Str)
If m.Success Then
Return m.Value
Else
Return ""
End If
End Function