用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