<<< voltar

:: ASP :: 

Validar um e-mail colocado em um formulário usando InStr() e Len()

Com este script podemos verificar se o usuário colocou um endereço de e-mail valido.  Caso ele coloque um e-mail errado, ou mesmo em branco, o script vai mostrar uma mensagem de erro. Este script tem um certo alcance de verificação. A partir dele você poderá  programar um melhor.

Abaixo você poderá verificar um exemplo, você pode testar com todos os e-mails que quiser:

Clique aqui e veja o exemplo.

Código da verificação de e-mail:


<FORM METHOD="post" ACTION="">
<p style="margin-left: 20; margin-right: 20">
<font face="Arial" size="2"><br>
Coloque seu e-mail:</font> <INPUT NAME="correio"><INPUT TYPE="Submit" VALUE="Validar">
</FORM>
<%
If request.form("correio") <> "" then 
correio = Trim(request.Form("correio"))
Response.Write "Seu e-mail: <B>"& correio &"</B><BR><BR>"
''''não pode ter menos de 5 caracteres 
If Len(correio) < 5 then novalido = "Seu e-mail não pode ter menos de <B>5</B> caracteres.<BR>"
''''é obrigatório o uso de "@"
If InStr(correio, "@") = 0 then novalido = novalido + "Seu e-mail não contém <B>""@""</B><BR>"
''''é obrigatório o uso do " . "
If InStr(correio, ".") = 0 then novalido = novalido + "Seu e-mail não contém <B>"".""</B><BR>"
''''cuidado com os e-mail deste estilo algo.algo@hotmail.com
''''para isto colocamos como começo da busca o caracter "@"
ubicacion_arroba = InStr(correio, "@")
If (ubicacion_arroba <> 0) and (InStr(correio, ".") <> 0) then
If InStr(correio, "@") > InStr(ubicacion_arroba, correio, ".") then
novalido = novalido + "Não existe um <B>"".""</B> depois da <B>""@""</B>"
End If
End If
If novalido = "" then 
novalido = "<B>E-mail valido!</B>"
Response.Write novalido
Else
Response.Write "<B>E-mail invalido!</B>. Os motivos são os seguintes: <BR>"
response.Write novalido
End If
End If
%>

Bannerlandia