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
%＞