'*********************************************************
'函數: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