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))
