电子邮件、手机号码有效性验证代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】电子邮件、手机号码有效性验证

作者:woaicss / 发布于2013/2/28/ 2576


	'********************************************
	'函数名：IsValidEmail
	'作 用：检查Email地址合法性
	'参 数：email ----要检查的Email地址
	'返回值：True ----Email地址合法
	' False ----Email地址不合法
	'********************************************
	Function IsValidEmail(Email)
	 Dim names, name, I, c
	 IsValidEmail = True
	 names = Split(Email, "@")
	 If UBound(names) <> 1 Then IsValidEmail = False: Exit Function
	 For Each name In names
	 If Len(name) <= 0 Then IsValidEmail = False:Exit Function
	 For I = 1 To Len(name)
	 c = LCase(Mid(name, I, 1))
	 If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then IsValidEmail = False:Exit Function
	 Next
	 If Left(name, 1) = "." Or Right(name, 1) = "." Then IsValidEmail = False:Exit Function
	 Next
	 If InStr(names(1), ".") <= 0 Then IsValidEmail = False:Exit Function
	 I = Len(names(1)) - InStrRev(names(1), ".")
	 If I <> 2 And I <> 3 Then IsValidEmail = False:Exit Function
	 If InStr(Email, "..") > 0 Then IsValidEmail = False
	End Function

	

	

	'********************************************
	'函数名：ValidMobile
	'作 用：检查手机号码合法性
	'参 数：str ----要检查的手机号码
	'返回值：True ----手机号码合法
	' False ----手机号码不合法
	'********************************************
	Function ValidMobile(ByVal str)
	 Dim reg
	 Set reg = New RegExp
	 reg.Pattern = "^1[358][\d]{9}$"
	 ValidMobile = reg.test(str)
	 Set reg = Nothing
	End Function

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

woaicss贡献的其它代码(2)