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

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

　　'函数：IsValidEmail[str]

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

　　'作者：木木

　　'日期：2007/7/12

　　'描述：检测邮箱格式是否为[email protected]或者[email protected]等格式

　　'示例：<%=IsValidEmail([email protected])%>

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

　　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