邮箱登陆格式判断代码

Usher

<%
'--------------------------------------------------
'-函数名：CheckMail
'-作  用：邮箱登陆格式进行判断
'-参  数：strEmail   ----传入字符串
'-返回值：如果邮箱格式正确true,否则false
'-作  者：小穆
'-时  间：2011-5-17 19：39
'--------------------------------------------------
Function CheckMail(strEmail)
Dim objRegExp , blnValid
Set objRegExp = New RegExp
objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
blnValid = objRegExp.Test(strEmail)
If blnValid Then
  CheckMail = True
Else
  CheckMail = False
End If
End Function
%>
此代码经过改善 直接粘到inc/funtion.asp中  欢迎使用