5 replies to this topic

[Morphman]

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

[FoxCrazy]

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!

[Morphman]

VLEW, ERA ISSO MESMO !

[cinraq]

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

[Tarkan]

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

[cinraq]

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