使用ASP验证email邮箱地址

最新推荐文章于 2022-03-23 19:40:26 发布

原创最新推荐文章于 2022-03-23 19:40:26 发布 · 4.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#email #asp #function #each #c

ASP 专栏收录该内容

10 篇文章

订阅专栏

本文提供了两种用于验证电子邮件地址是否符合标准格式的方法。一种是使用正则表达式进行快速匹配，另一种则是通过详细解析邮箱各部分来确保其合法性和合理性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<% 'true=是邮件;false=不是; Function validate(ByVal str) Dim temp,reg Set reg = new regexp reg.ignorecase=true reg.global=true reg.pattern = "^/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*$" validate = reg.test(Trim(str)) Set reg = Nothing End Function '******************************************** '函数名：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 end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if 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 end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end function response.write validate("3663965@qq.com")&"<br>" response.write IsValidEmail("18639192607@qq.com")&"<br>" %>