用vbscript判断email地址的合法性_asp技巧

这里是一断正则表达式的例子
<%
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
%＞