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

'函数：IsValidEmail[str]

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

'作者：木木

'日期：2007/7/12

'描述：检测邮箱格式是否为xxxx@xxx.com或者xxxx@xxx.com.cn等格式

'示例：<%=IsValidEmail(ali@alixixi.com)%>

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

FunctionIsValidEmail(str)

DimregEx

SetregEx=NewRegExp

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)

EndFunction