Valider une adresse email avec regexp (expressions régulières)

Commenter

Contenu du snippet

dautre modèles existent sur ce site, mais malheureusement , il ne sont pas fiables ou bogués, voici celui que j'emploie et qui fonctionne parfaitement.
Ce script vérifie très précisément l'adresse email : position des "." de l' "@" des extensions simples ou multiples.

Source / Exemple : 


<%
patrn="^([a-zA-Z0-9]+(([\.\-\_]?[a-zA-Z0-9]+)+)?)\@(([a-zA-Z0-9]+[\.\-\_])+[a-zA-Z]{2,4})$"

strng=request.Form("mail")				
if test(patrn,strng) = False Then
message="<font class=averto>Erreur : L'adresse email " & strng & " n'est pas valide !</font>" 

function test(patrn, strng) 

Dim regEx                                  ' Crée la variable.
Set regEx = New RegExp   	' Crée une expression régulière.
      regEx.Pattern = patrn   	' Définit les critères.
      regEx.IgnoreCase = False   	' Teste la casse
      regEx.Global = True   	' Définit le champ d'application.
 test = regEx.test(strng)              ' Contrôle de la chaîne
	
End Function
%>

Conclusion :


2 variables
patrn = contient l'expression régulière
strng = la chaîne à tester
ici c'est un champ de formulaire : request.Form("mail")

Puis on appelle la fonction test(patrn, strng) avec les 2 variables
cette fonction renvoie true (vrai) si la chaîne "strng" est correcte et false (faux) si elle ne l'est pas

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.