用vbscript判断email地址的合法性

<%
Function isemail(strng)
    isemail = false
    Dim regEx, Match ‘’ Create variables.
    Set regEx = New RegExp   ‘’ Create a regular expression object (stupid, huh?)
    regEx.Pattern = "^w+((-w+)|(.w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$" ‘’ Sets pattern.
    regEx.IgnoreCase = True   ‘’ Set case insensitivity.
    Set Match = regEx.Execute(strng)   ‘’ Execute search.
if match.count then isemail= true
End Function
%>

原文转自：http://www.ltesting.net