<%
function isemail(str)
if isnull(str) then
exit function
end if

dim regstr,regex
set regex=New RegExp
regex.pattern="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
isemail=regex.test(str)
set regex=nothing
end function

if not isemail("liahui@163.net") then
response.write "不正确的Email"
else
response.write "正确的Email"
end if
%>