La validation des courriels est un des problèmes les plus complexe à mettre en oeuvre lorsqu'on envoie un formulaire. Et pour cause, il faut tenir compte des règles suivantes :
- Un courriel doit contenir exactement un arobas (@),
- Le nom de domaine, situé après l'arobas (@) contient un point (.),
- Seul certains code de caractères sont acceptés.
A l'aide du code source ASP 3.0 suivant, vous trouverez la réponse que vous souhaitez :
- <%
- Function IsEmail(Email)
- If((Email = null) OR (Len(Email) = 0)) Then
- IsEmail = False
- Exit Function
- End If
- For I = 1 to Len(Email)
- Select Case Mid(Email,I,1)
- Case " ", "\t", "\n", "\r", "(", ")", ":", ",", "/", "'", """", _
- "~", "`", "!", "#", "$", "%", "^", "&", "*", "+", "=", "[", "]", "{", _
- "}", "|", "\", "?", "<", ">":
- IsEmail = False
- Exit Function
- End Select
- Next
-
- ArobasFound = 0
- For I = 2 To Len(Email)
- If Mid(Email,I,1) = "@" Then
- ArobasFound = ArobasFound + 1
- If ArobasFound = 1 Then AfterArobas = I
- End If
- Next
- If ArobasFound <> 1 Then
- IsEmail = False
- Exit Function
- End If
- AfterArobas = AfterArobas + 2
- Do While ((AfterArobas < Len(Email)) AND (Mid(Email,AfterArobas,1) <> "."))
- AfterArobas = AfterArobas + 1
- Loop
- If((AfterArobas >= Len(Email) - 1) OR (Mid(Email,AfterArobas,1) <> ".")) Then
- IsEmail = False
- Else
- IsEmail = True
- End If
- End Function
-
- Response.write "Courriel «abc» est valide: " & CStr(IsEmail("abc")) & "<BR>"
- Response.write "Courriel «@» est valide: " & CStr(IsEmail("@")) & "<BR>"
- Response.write "Courriel «@abc.abc» est valide: " & CStr(IsEmail("@abc.abc")) & "<BR>"
- Response.write "Courriel «abc@gladir.com» est valide: " & CStr(IsEmail("abc@gladir.com")) & "<BR>"
- Response.write "Courriel «abc@@gladir.com» est valide: " & CStr(IsEmail("abc@@gladir.com")) & "<BR>"
- Response.write "Courriel «abc@gl][adir.com» est valide: " & CStr(IsEmail("abc@gl][adir.com")) & "<BR>"
- %>
on obtiendra le résultat suivant :
Courriel «abc» est valide: falseCourriel «@» est valide: false
Courriel «@abc.abc» est valide: false
Courriel «abc@gladir.com» est valide: true
Courriel «abc@@gladir.com» est valide: false
Courriel «abc@gl][adir.com» est valide: false
Dernière mise à jour : Mercredi, le 20 août 2014