检测 E-mail 地址的有效性_

Function CheckExp(strng)
dim regEx,Matches
Set regEx = New RegExp
regEx.Pattern = "(\w)+[@]{1}(\w)+[.]{1}(\w)+"
regEx.IgnoreCase = true
regEx.Global = True
Matches = regEx.test(strng)
CheckExp = matches
End Function

成立则返回true

if (!eregi("^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$",$email))

文章作者：未知