'验证手机
Dim pattern As String = "^[1][345789][0-9]{9}$"
Dim txt_shouJi = e.Form.Controls("text_shouJi").Value '定义,手机
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If txt_shouJi = "" Then
Messagebox.Show("手机不能为空")
Return
End If
If rgx.isMatch(txt_shouJi) = False Then
Messagebox.Show("请输入正确的手机号")
Return
End If