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

关键词：用vbscript判断email地址的合法性