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