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

'
'函数IsValidEmail[str]
'参数str，待处理的字符串
'作者木木
'日期2007/7/12
'描述检测邮箱格式是否为xxxx@xxx.或者xxxx@xxx..等格式
'示例<%=IsValidEmail(ali@alixixi.)%>
'

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