Vérifier une adresse email via les regexp

Commenter

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

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.

Du même auteur (cs_Skyride)