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 

上一个：asp 实现检测字符串是否为纯字母和数字组合的函数
下一个：asp下实现格式化文件大小以MB显示的函数