校园天空

标题: 邮箱登陆格式判断代码 [打印本页]

作者: Usher 时间: 2011-5-17 20:00
标题: 邮箱登陆格式判断代码
<%
'--------------------------------------------------
'-函数名：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中  欢迎使用

欢迎光临校园天空 (https://bbs.xytk.com/)