Quero uma Validacao de Email, de preferencia em ASP.. Vlew
Validação de E-Mail
Started By Morphman, 23/01/2003, 11:18
5 replies to this topic
#1
Posted 23/01/2003, 11:18
Valew!!
Viva o Tarkan !
Viva o Tarkan !
#2
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.
Comple mente o FORM com esse código
Tudo vai ficar assim
Boa Sorte!
<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!
.
#3
Posted 24/01/2003, 16:32
VLEW, ERA ISSO MESMO !
Valew!!
Viva o Tarkan !
Viva o Tarkan !
#4
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:
para fazer a verificação
<% '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)
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
Posted 25/01/2003, 00:25
hehe... posso me meter?
Segue um código legal também:
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 %>
' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil
#6
Posted 25/01/2003, 00:30
Esse seu é legal mesmo, já que verifica se o endereço tem outros caracteres inválidos também, tipo * / \ e outros, legal!!!!hehe... posso me meter?
Segue um código legal também:
"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)
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)
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)