Jump to content


Photo

Validação de E-Mail


  • Faça o login para participar
5 replies to this topic

#1 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 23/01/2003, 11:18

Quero uma Validacao de Email, de preferencia em ASP.. Vlew
Valew!!


Viva o Tarkan !

#2 FoxCrazy

FoxCrazy

    Bill Medley - He Ain't Heavy, He's My Brother

  • Usuários
  • 187 posts
  • Sexo:Não informado
  • Interesses:ASP Maníaco!

Posted 23/01/2003, 11:40

Use uma em Java Script pq ai não precisa carregar a tela para ver se o e-mail é valido ou não, esse aqui avisa na hora de enviar.

  <script>
    function submitit()
    {
     var email=document.NOME_DO_FORM.email.value;
     if (email==""){
     alert("Por favor digite seu e-mail")
     document.NOME_DO_FORM.email.focus()
     return false
	}
     if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){ alert("Este e-mail não é válido!");
  document.NOME_DO_FORM.email.focus()
  return false
	}
    }
  </script>

Comple mente o FORM com esse código
onsubmit="return submitit()"


Tudo vai ficar assim
<FORM name="NOME_DO_FORM" action="envia.asp" method="POST" onsubmit="return submitit()">


Boa Sorte! :D

.


#3 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 24/01/2003, 16:32

VLEW, ERA ISSO MESMO ! :P
Valew!!


Viva o Tarkan !

#4 cinraq

cinraq

    cinrASP

  • Usuários
  • 77 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro

Posted 25/01/2003, 00:09

Bom como você queria um que fosse em ASP, tem um aki também, vou postar só como referência, já que você já conseguiu utilizar este outro:

<%
'FUNÇÃO QUE VALIDA O EMAIL
Function Valida_Email(strEmail)

Dim bIsValid

bIsValid = True

If Len(strEmail) < 5 Then

bIsValid = False

Else

If Instr(1, strEmail, " ") <> 0 Then

bIsValid = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

bIsValid = False

Else

If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then

bIsValid = False

End If

End If

End If

End If

Valida_Email = bIsValid

End Function

para fazer a verificação

if Valida_Email(nomedastrigdeemail) = true then
response.write "email válido"
else
response.write "e-mail inválido"
end if

"Moro no Brasil.
Não sei se moro muito bem ou muito mal.
Só sei que agora faço parte do país.
A inteligência é fundamental."
(Farofa Carioca)

#5 Tarkan

Tarkan

    Powered by Linux - Que inglês! ;)

  • Ex-Admins
  • 651 posts
  • Sexo:Masculino
  • Localidade:Copacabana - RJ

Posted 25/01/2003, 00:25

hehe... posso me meter?
Segue um código legal também:

<%
Sub chkmail(variavel)
Dim VAcha, XAcha

VAcha = 0
variavel = trim(variavel)

'***** Verifica se encontrou o valor
VAcha = InStr(1, variavel, "X") 
VAcha = VAcha + InStr(1, variavel, "/")
VAcha = VAcha + InStr(1, variavel, "\")
VAcha = VAcha + InStr(1, variavel, ",", 0)
VAcha = (VAcha + InStr(variavel, "@."))
VAcha = (VAcha + InStr(variavel, ".@"))
VAcha = (VAcha + InStr(variavel, ".."))
VAcha = (VAcha + InStr(variavel, " "))
VAcha = (VAcha + InStr(variavel, "*"))
VAcha = (VAcha + InStr(variavel, CHR(34)))
VAcha = (VAcha + InStr(variavel, CHR(60)))
VAcha = (VAcha + InStr(variavel, CHR(62)))
VAcha = (VAcha + InStr(variavel, ";"))
VAcha = (VAcha + InStr(variavel, ")"))
VAcha = (VAcha + InStr(variavel, "("))
VAcha = (VAcha + InStr(variavel, ":")) 

'***** Encontra na última posição 
XAcha = InStr(Len(variavel),variavel, "@")
If XAcha = Len(variavel) Then 
VAcha = VAcha + XAcha
End If

'***** Encontra na primeira posição 
XAcha = InStr(variavel, "@")
If XAcha = 1 Then
VAcha = VAcha + XAcha
End If

'***** Verifica se existe @ 
XAcha = InStr(variavel, "@")
If XAcha = 0 Then
VAcha = VAcha + 1
End If

'***** Verifica se existe . 
XAcha = InStr(variavel, ".")
If XAcha = 0 Then
VAcha = VAcha + 1
End If

'***** Resultado 
If vAcha = 0 Then
variavel="0" 'valido
Else
variavel="1" 'inválido
End If
End Sub
%>

:D
' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil

#6 cinraq

cinraq

    cinrASP

  • Usuários
  • 77 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro

Posted 25/01/2003, 00:30

hehe... posso me meter?
Segue um código legal também:

Esse seu é legal mesmo, já que verifica se o endereço tem outros caracteres inválidos também, tipo * / \ e outros, legal!!!!
"Moro no Brasil.
Não sei se moro muito bem ou muito mal.
Só sei que agora faço parte do país.
A inteligência é fundamental."
(Farofa Carioca)




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq