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