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