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

1. '*********************************************************  
2. '函数：IsValidEmail[str]  
3. '参数：str，待处理的字符串  
4. '作者：木木  
5. '日期：2007/7/12  
6. '描述：检测邮箱格式是否为xxxx@xxx.com或者xxxx@xxx.com.cn等格式  
7. '示例：<%=IsValidEmail(ali@alixixi.com)%>  
8. '*********************************************************  
9.  
10. Function IsValidEmail(str)  
11. Dim regEx  
12. Set regEx = New RegExp  
13. regEx.Pattern = "[\w\-\.]+@[A-Za-z0-9]+\.(([A-Za-z0-9]{2,4})|([A-Za-z0-9]{2,4}\.[A-Za-z]{2,4}))$"  
14. IsValidEmail = regEx.Test(str)  
15. End Function