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...