asp 下用正则表达式检测邮箱格式的函数

'*********************************************************
'函数：isvalidemail[str]
'参数：str，待处理的字符串
'作者：木木
'日期：2007/7/12
'描述：检测邮箱格式是否为[e-mail]或者[e-mail]等格式
'示例：<%=isvalidemail([e-mail])%>
'*********************************************************

function isvalidemail(str)
dim regex
set regex = new regexp
regex.pattern = "[\w\-\.]+@[a-za-z0-9]+\.(([a-za-z0-9]{2,4})|([a-za-z0-9]{2,4}\.[a-za-z]{2,4}))$"
isvalidemail = regex.test(str)
end function