Ver Mensaje Individual
  #84 (permalink)  
Antiguo 04/05/2004, 07:55
Avatar de ElAprendiz
ElAprendiz
 
Fecha de Ingreso: enero-2002
Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 22 años, 9 meses
Puntos: 2
Validacion Avanzada de E-mail


Código PHP:
<%
'Funcion que comprueba si un e-mail es valido. Devuelve:
-> si es nulo o esta vacio
' 1 -> Si el e-mail es incorrecto
-> Si el e-mail es valido

Function Validar_EMail(EMail)

Dim Con

If EMail "" Then
    Validar_EMail 
0
    
Exit Function
End If

EMail LCase(EMail)

If (
Left(EMail1) = "." Or Left(EMail1) = "@"Then
    Validar_EMail 
1
    
Exit Function
End If

If (
Right(EMail1) = "." Or Right(EMail1) = "_" Or _
    Right
(EMail1) = "@"Then
    Validar_EMail 
1
    
Exit Function
End If

Con 0

For 1 To Len(EMail)
    If (
Mid(EMaili1)) = "@" Then
       Con 
Con 1
    End 
If
Next

If Con Or Con 0 Then
    Validar_EMail 
1
    
Exit Function
End If

Con 0

For 1 To Len(EMail)
    If (
Mid(EMaili1)) = "@" Then
       
For i To Len(EMail)
          If (
Mid(EMailj1)) = "." Then
             Con 
Con 1
          End 
If
       
Next
    End 
If
Next

If Con 1 Then
    Validar_EMail 
1
    
Exit Function
End If

Con 0

For 1 To Len(EMail)
    If (
Mid(EMaili1) = ".") Or (Mid(EMaili1) = "@"Then
       
If (Mid(EMail11) = ".") Or (Mid(EMail11) = "@"Then
          Validar_EMail 
1
          
Exit Function
       
End If
    
End If
Next

For 1 To Len(EMail)
    If (
Mid(EMaili1) < "a" Or Mid(EMaili1) > "z") And _
       
(Mid(EMaili1) < "0" Or Mid(EMaili1) > "9") And _
       Mid
(EMaili1) <> "." And Mid(EMaili1) <> "_" And _
       Mid
(EMaili1) <> "@" Then
          Validar_EMail 
1
          
Exit Function
    
End If
Next

Validar_EMail 
2

End 
Function
%> 
formulario:

Código PHP:
<!-- #Include File="ValidarEmail.asp"-->
<%
if 
request.form("envio") = "envio" then
   
if Validar_EMail(Request.form("correo")) = 0 then response.write "Nulo o Vacio"
   
if Validar_EMail(Request.form("correo")) = 1 then response.write "Email inválido"
   
if Validar_EMail(Request.form("correo")) = 2 then response.write "Email válido"
end if
%>
<
BR>
<
FORM METHOD="post" ACTION="verificar.asp">
<
INPUT NAME="correo">
<
INPUT TYPE="Submit">
<
INPUT TYPE="Hidden" NAME="envio" VALUE="envio">
</
FORM
__________________
Manual de ASP Avanzado ;-)