USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Scripts    (Validações)

Título da Dica:  Validar e-mail
Postada em 19/10/2001 por K@ÐØ ®      Clique aqui para enviar email para o autor  ricardolerma@uol.com.br
<SCRIPT language=JavaScript>

function isEmail(pEmail) {
        
    var Conta, Flag, cValido;
    
    if (pEmail.length < 5) {
        return false;
    }

    
    //Verifica se existe caracter inválido
    
     for (Conta = 0; Conta <= (pEmail.length-1); Conta++) {
        cValido = pEmail.substr(Conta, 1);
        if (! ((cValido.toUpperCase() >= "A" && cValido.toUpperCase() <= "Z") ||
               (cValido >= "0" && cValido <= "9") ||
               cValido == "@" || cValido == "." || cValido == "-" || cValido == "_")) {
               return false;
        }
    }
  

    //Verifica a existência de (@)
    
    if (pEmail.indexOf("@") == -1) {
        return false;
     }
    else {
        Flag = 0;
        
        for (Conta = 0; Conta <= (pEmail.length - 1); Conta++) {
               if (pEmail.substr(Conta, 1) == "@") {
                Flag++;
            }
        }
        
        if (Flag > 1) return false;
    }
  
     if (pEmail.substring(0, 1) == "@") return false;
     if (pEmail.substring(1, 0) == "@") return false;
    if (pEmail.indexOf(".@") > 0) return false;
    if (pEmail.indexOf("@.") > 0) return false;

  
    //Verifica a existência de (.)
    
    if (pEmail.indexOf(".") == -1) return false;
     if (pEmail.substr(0, 1) == ".") return false;
     if (pEmail.substr(pEmail.length-1, 1) == ".") return false;
    if (pEmail.indexOf("..") > 0) return false;
  
    return true;

}

</SCRIPT>
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página