domingo, 31 de março de 2002

Verificação de E-mail simples

Este exemplo é uma verificação simples (e lógica) de e-mail. Parto
do princípio que o e-mail sempre tem que ter o símbolo arroba (@) e
o símbolo ponto (.) depois da arroba. Segue os exemplos:


1) jose@email.com - VÁLIDO
2) jose.silva@email.com - VÁLIDO
3) josesilva@email.com - VÁLIDO
4) josesilva@email.com.br - VÁLIDO
5) jose@email - INVÁLIDO, falta o .etc (.com , .com.br , .net , .org , .gov, ...)
6) jose.silva@email - INVÁLIDO, falta o ponto alguma coisa, note que há um ponto antes da arroba
7) joseemail.com - INVÁLIDO, falta a arroba
etc.


O e-mail tem que ter, pelo menos, uma arroba e um ponto depois da arroba. Para isso, fiz esse
verificador de e-mail bastante simples que escrevo abaixo.



<%


' Declaração das variáveis


Dim  v_email
 arroba
 ponto
 check_email



' Atribúi a uma variável (v_email) o valor oriundo do formulário


v_email = request.form("email")



' Conta a posição do símbolo arroba (@) na variável v_email
' por exemplo, se o valor da variável v_email for "
jose@email.com"
' a variável arromba será igual a 4. Se a variável email for
' "joseemail.com.br" o valor da variável arroba será igual a 0.


 arroba = inStr(1,v_email,"@")


' Conta a posição do símbolo ponto (.) na variável v_email. Mesma
' situaçao da linha anterior


If arroba <> 0 Then
   ponto = inStr(arroba,v_email,".")
End If



' A variável check_email recebe o valor da soma das variáveis arroba
' e ponto (óbvio).


 check_email = arroba+ponto


 


if check_email<(arroba+2) then


 Response.write("O e-mail digitado é INVÁLIDO")


else


 Response.write("O e-mail digitado é VÁLIDO")


end if


%>



Esta matéria foi postada originalmente no ASP4Developers por Carlos Campello (site), que na época era "Estudante de informática e, atualmente trabalhando na confecção de sites.". Hoje, vai saber...

0 comentários: