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

网学网为广大网友收集整理了，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