'*********************************************************
'函数:IsValidEmail[str]
'参数:str,待处理的字符串
'作者:木木
'日期:2007/7/12
'描述:检测邮箱格式是否为[email protected]或者[email protected]等格式
'示例:<%=IsValidEmail([email protected])%>
'*********************************************************
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