email验证

最新推荐文章于 2022-01-10 16:18:43 发布

原创最新推荐文章于 2022-01-10 16:18:43 发布 · 2.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#email #function #javascript #each #c

asp 专栏收录该内容

11 篇文章

订阅专栏

博客给出了一段代码，使用JavaScript实现邮箱有效性验证。定义了IsValidEmail函数，通过分割邮箱地址、检查字符合法性、点的位置等判断邮箱是否有效，若验证不通过会弹出提示并刷新页面。

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

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

email = trim(request("email"))
   if IsValidEmail(email)=false then
   Response.Write"<script Language='javascript'>alert('请输入正确的邮箱!');window.location.reload('reg.asp')</script>"
   response.end
   end if