当前位置:首页  »  编程知识  »  email输入正确性判断

  • email输入正确性判断

  • 网络教育吧为广大网友收集整理了,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
    全国精品课程资源库
  • 友情链接