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