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

'*********************************************************

'函数：IsValidEmail[str]

'参数：str，待处理的字符串

'作者：木木

'日期：2007/7/12

'描述：检测邮箱格式是否为xxxx@xxx.com或者xxxx@xxx.com.cn等格式

'示例：<%=IsValidEmail(ali@alixixi.com)%>

'*********************************************************

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