Vérifier la validité d'un email en ASP VB
Bonjour à tous,
Ce post est mon premier message et sans doute pas le dernier, malheureusement :cry:
Voilà ce qui m'amène :
Depuis 2 ans, je tente de créer avec un ami informaticien un site de e-commerce . Je m'occupe du contenu et des fonctionalités à mettre en place, lui du développement du code en asp.vb
Fortement pris par son travail, il m'a récemment indiqué qu'il ne pouvait plus m'aider, alors même que nous étions dans les dernières lignes droites...
Je reprends donc seul les commandes de ce site mais je n'y connais quasiment rien (sauf du HTML et autre CSS). J'apprends donc mais je suis loin de tout comprendre et de développer comme lui.
Je bloque pour le moment sur la vérification de la forme d'une adresse email dans un formulaire :
Dans ma page formulaire.aspx, j'ai mis une textbox "tb_email" que je contrôle sur ma VB comme ceci :
Code:
1
2
3
4
5
6
7
| If tbemail.Text = "" Then
pnlErr.Visible = True
lblErrMess.Text = "Veuillez renseigner votre adresse email"
tbemail.Focus()
tbemail.BackColor = Color.LightGray
Exit Sub
End If |
Je souhaiterai mettre un contrôle plus poussé comme celui que je viens de découvrir ci-dessous :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| VB.NET 1.x , VB 2005
Date ajout : 25/03/2006
Posté par Willi [Liste]
DateMAJ : 12/09/2006
Utilisation:
If EmailValide("toto@fai.fr") Then
MessageBox.Show("Adresse valide")
Else
MessageBox.Show("Adresse invalide")
End if
--------------------------------------------------------------------------------
Private function EmailValide(ByVal mail_address As String) As Boolean
Dim rexp as new Regex("^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$", RegexOptions.IgnoreCase)
Return rexp.IsMatch(mail_address)
End Function |
Malheureusement je ne sais pas comment l'insérer sur mes pages.
Merci pour votre aide et vos remarques
