检查Email正确性
Function isemail(strng)
isemail=false
Dim regEx,Match
Set regEx=New RegExp
regEx.Pattern="^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
regEx.IgnoreCase=True
Set Match=regEx.Execute(strng)
if match.count then isemail=True
End Function
Function isemail(strng)
isemail=false
Dim regEx,Match
Set regEx=New RegExp
regEx.Pattern="^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
regEx.IgnoreCase=True
Set Match=regEx.Execute(strng)
if match.count then isemail=True
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货