- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求验证邮箱地址的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70194)
-- 发布时间：2015/6/17 10:16:00
-- 求验证邮箱地址的代码
各位老师好，
本人愚钝，不知道怎么去验证一个邮箱地址是否正确的地址，求高手帮忙给一段验证邮箱地址的是否正确的代码，非常感谢。
-- 发布时间：2015/6/17 10:20:00
--
Dim mail As String = "123@13.com"
If System.Text.RegularExpressions.Regex.Ismatch(mail,"^(\\w)+(\\.\\w+)*@(\\w)+((\\.\\w+)+)$") Then
Messagebox.SHOW("符合")
Else
MessageBox.SHOW("不符合")
End If
-- 发布时间：2015/6/17 10:20:00
--
Dim str As String = "123456,erer@qq.com"
Dim reg As new System.Text.RegularExpressions.Regex("^[a-z0-9]+([._\\\\-]*[a-z0-9])*@([a-z0-9]+[-a-z0-9]*[a-z0-9]+.){1,63}[a-z0-9]+$")
msgbox(reg.IsMatch(str))
-- 发布时间：2015/6/17 10:31:00
--
谢谢二位老师，
二楼跟三楼的区别在于：二楼允许下面这些特殊字符出现在邮箱地址中：”~/<>?~中文“
三楼则限制比较严格，我选哪个呢
，纠结了，哈哈
，纠结了，哈哈-- 发布时间：2015/6/17 10:33:00
--
根据自身需求实际情况选择.
-- 发布时间：2015/6/17 10:37:00
--
以下是引用Bin在2015/6/17 10:33:00的发言：
根据自身需求实际情况选择.
根据自身需求实际情况选择.
好的，谢谢Bin
-- 发布时间：2017/3/11 11:30:00
--
mark