Vérifier une adresse email via les regexp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 221 fois - Téléchargée 34 fois

Contenu du snippet

Via ce code vous spécifiez que l'email doit :
- contenir une arobase et un point
- avant la présence de l'arobase nous pouvons trouver, des lettres quelconques
(en minuscule ou majuscule), n'importe quel chiffre, et les caractères "-" ou "_" ou "."
- aprés l'arobase, la vérification reste la même mais on interdit la présence de "_"
et il faut impérativement au moins deux caractères entre l'arobase et le point
- aprés le point, nous devons une succession de 2 ou 3 caractères doivent être
présentes afin de pouvoir valider l'adresse email.
  • /

Source / Exemple :


<%
	Function VerifEmail(email)
   		dim regEx
   		
		Set regEx = New RegExp
   		
		regEx.Global = True
   		regEx.Pattern = "^[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,3}"
   		notag = regEx.test(email)
	end function
	
	Dim ch
	ch = "toto@hotmail.com"
	
	if VerifEmail(ch) = false then
		response.write "L'email " & ch & " est valide"
	else
		response.write "L'email " & ch & " n'est pas valide"
	end if	
	
%>

Conclusion :


Si vous avez des corrections ou autres, n'hésitez pas à m'en faire part...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
12
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
17 mai 2004

Salut, j'ai bien copié cette fonction mais j'ai l'erreur suivante:

Type d'erreur :
Erreur d'exécution Microsoft VBScript (0x800A000D)
Type incompatible: 'regEx.test'
/website2/website/admin/newsletter/newsletter_inscrits.asp, line 13

La ligne 13 est:

notag = regEx.test(email)

Est-ce normal et, si oui, comment y remédier?

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.