您的位置:首页 > 其它

邮件地址合法验证

2010-02-05 19:43 169 查看
Private Function IsCorrectEmailFormat(ByVal emailStr As String) As Boolean

Dim reg As New System.Text.RegularExpressions.Regex("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$") '-- This is the Single E-mail handling
'Dim reg As New System.text.RegularExpressions.Regex("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+(;)*(( )*(;)+( )*[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+(;)*)*$") '-- This is Mutil-E-mail handling, split by ";".
Return reg.IsMatch(emailStr)

End Function
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: