begin process at 2012 02 05 00:48:06
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Chaînes de caratères

 > TEST DE VALIDITÉ D'EMAIL

TEST DE VALIDITÉ D'EMAIL


 Information sur la source

Note :
5 / 10 - par 3 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Chaînes de caratères Niveau :Débutant Date de création :15/02/2002 Date de mise à jour :17/02/2002 02:23:32 Vu :8 631
Auteur : pacman

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Test la validité d'un email avec la function ValidEmail.  

Source

  • Function ValidEmail(sEMail)
  • Dim sInvalidChars
  • Dim bTemp
  • Dim i
  • Dim sTemp
  • ' Caratères interdits
  • sInvalidChars = Chr(33) & Chr(34) & Chr(35) & Chr(36) & Chr(37) & Chr(38) & Chr(39) & Chr(40) & Chr(41) & Chr(42) & Chr(43) & Chr(44) & Chr(47) & Chr(58) & Chr(59) & Chr(60) & Chr(61) & Chr(62) & Chr(63) & Chr(91) & Chr(92) & Chr(93) & Chr(94) & Chr(96) & Chr(123) & Chr(124) & Chr(125) & Chr(126) & Chr(127)
  • sInvalidChars = sInvalidChars & Chr(128) & Chr(129) & Chr(130) & Chr(131) & Chr(132) & Chr(133) & Chr(134) & Chr(135) & Chr(136) & Chr(137) & Chr(138) & Chr(139) & Chr(140) & Chr(141) & Chr(142) & Chr(143) & Chr(144) & Chr(145) & Chr(146) & Chr(147) & Chr(148) & Chr(149) & Chr(150) & Chr(151) & Chr(152) & Chr(153) & Chr(154) & Chr(155)
  • sInvalidChars = sInvalidChars & Chr(156) & Chr(157) & Chr(158) & Chr(159) & Chr(160) & Chr(161) & Chr(162) & Chr(163) & Chr(164) & Chr(165) & Chr(166) & Chr(167) & Chr(168) & Chr(169) & Chr(170) & Chr(171) & Chr(172) & Chr(173) & Chr(174) & Chr(175) & Chr(176) & Chr(177) & Chr(178) & Chr(179) & Chr(180) & Chr(181) & Chr(182) & Chr(183)
  • sInvalidChars = sInvalidChars & Chr(184) & Chr(185) & Chr(186) & Chr(187) & Chr(188) & Chr(189) & Chr(190) & Chr(191) & Chr(192) & Chr(193) & Chr(194) & Chr(195) & Chr(196) & Chr(197) & Chr(198) & Chr(199) & Chr(200) & Chr(201) & Chr(202) & Chr(203) & Chr(204) & Chr(205) & Chr(206) & Chr(207) & Chr(208) & Chr(209) & Chr(210) & Chr(211)
  • sInvalidChars = sInvalidChars & Chr(212) & Chr(213) & Chr(214) & Chr(215) & Chr(216) & Chr(217) & Chr(218) & Chr(219) & Chr(220) & Chr(221) & Chr(222) & Chr(223) & Chr(224) & Chr(225) & Chr(226) & Chr(227) & Chr(228) & Chr(229) & Chr(230) & Chr(231) & Chr(232) & Chr(233) & Chr(234) & Chr(235) & Chr(236) & Chr(237) & Chr(238) & Chr(239)
  • sInvalidChars = sInvalidChars & Chr(240) & Chr(241) & Chr(242) & Chr(243) & Chr(244) & Chr(245) & Chr(246) & Chr(247) & Chr(248) & Chr(249) & Chr(250) & Chr(251) & Chr(252) & Chr(253) & Chr(254) & Chr(255)
  • 'Rechercher qu'il y a au moins un '@'
  • bTemp = InStr(sEMail, "@") <= 0
  • 'Rechercher qu'il y a au moins un '.'
  • bTemp = bTemp Or InStr(sEMail, ".") <= 0
  • 'Vérifions que la taille est plus grande que 6 caractères (a@a.ca)
  • bTemp = bTemp Or Len(sEMail) < 6
  • 'Vérifier qu'il y a qu'n seul '@'
  • i = InStr(sEMail, "@")
  • sTemp = Mid(sEMail, i + 1)
  • bTemp = bTemp Or InStr(sTemp, "@") > 0
  • 'Vérifier qu'il y un '.' après le '@'
  • bTemp = bTemp Or InStr(sTemp, ".") = 0
  • 'Vérifier la présence de (")
  • bTemp = bTemp Or InStr(sEMail, Chr(34)) > 0
  • 'Vérifier la présence de (.@)
  • bTemp = bTemp Or InStr(sEMail, ".@") > 0
  • 'Vérifier la présence de (@.)
  • bTemp = bTemp Or InStr(sEMail, "@.") > 0
  • 'Vérifier la présence de (..)
  • bTemp = bTemp Or InStr(sEMail, "..") > 0
  • 'Vérifié s'il y a des caractères interdits
  • For i = 1 To Len(sEMail)
  • If InStr(sInvalidChars, Mid(sEMail, i, 1)) > 0 Then
  • bTemp = True
  • End If
  • Next
  • ' S'il y a une seule des conditions ci-dessus qui repond true alors l'e-mail est invalide
  • ValidEmail = Not bTemp
  • End Function
  • if ValidEmail("Votre email")= true then
  • response.write "Le mail est valide"
  • else
  • response.write "Le mail est invalide"
  • end if 
Function ValidEmail(sEMail)
    
    Dim sInvalidChars
    Dim bTemp
    Dim i
    Dim sTemp
    
    ' Caratères interdits
    sInvalidChars = Chr(33) & Chr(34) & Chr(35) & Chr(36) & Chr(37) & Chr(38) & Chr(39) & Chr(40) & Chr(41) & Chr(42) & Chr(43) & Chr(44) & Chr(47) & Chr(58) & Chr(59) & Chr(60) & Chr(61) & Chr(62) & Chr(63) & Chr(91) & Chr(92) & Chr(93) & Chr(94) & Chr(96) & Chr(123) & Chr(124) & Chr(125) & Chr(126) & Chr(127)
    sInvalidChars = sInvalidChars & Chr(128) & Chr(129) & Chr(130) & Chr(131) & Chr(132) & Chr(133) & Chr(134) & Chr(135) & Chr(136) & Chr(137) & Chr(138) & Chr(139) & Chr(140) & Chr(141) & Chr(142) & Chr(143) & Chr(144) & Chr(145) & Chr(146) & Chr(147) & Chr(148) & Chr(149) & Chr(150) & Chr(151) & Chr(152) & Chr(153) & Chr(154) & Chr(155)
    sInvalidChars = sInvalidChars & Chr(156) & Chr(157) & Chr(158) & Chr(159) & Chr(160) & Chr(161) & Chr(162) & Chr(163) & Chr(164) & Chr(165) & Chr(166) & Chr(167) & Chr(168) & Chr(169) & Chr(170) & Chr(171) & Chr(172) & Chr(173) & Chr(174) & Chr(175) & Chr(176) & Chr(177) & Chr(178) & Chr(179) & Chr(180) & Chr(181) & Chr(182) & Chr(183)
    sInvalidChars = sInvalidChars & Chr(184) & Chr(185) & Chr(186) & Chr(187) & Chr(188) & Chr(189) & Chr(190) & Chr(191) & Chr(192) & Chr(193) & Chr(194) & Chr(195) & Chr(196) & Chr(197) & Chr(198) & Chr(199) & Chr(200) & Chr(201) & Chr(202) & Chr(203) & Chr(204) & Chr(205) & Chr(206) & Chr(207) & Chr(208) & Chr(209) & Chr(210) & Chr(211)
    sInvalidChars = sInvalidChars & Chr(212) & Chr(213) & Chr(214) & Chr(215) & Chr(216) & Chr(217) & Chr(218) & Chr(219) & Chr(220) & Chr(221) & Chr(222) & Chr(223) & Chr(224) & Chr(225) & Chr(226) & Chr(227) & Chr(228) & Chr(229) & Chr(230) & Chr(231) & Chr(232) & Chr(233) & Chr(234) & Chr(235) & Chr(236) & Chr(237) & Chr(238) & Chr(239)
    sInvalidChars = sInvalidChars & Chr(240) & Chr(241) & Chr(242) & Chr(243) & Chr(244) & Chr(245) & Chr(246) & Chr(247) & Chr(248) & Chr(249) & Chr(250) & Chr(251) & Chr(252) & Chr(253) & Chr(254) & Chr(255)
    
    'Rechercher qu'il y a au moins un '@'
    bTemp = InStr(sEMail, "@") <= 0
    
    'Rechercher qu'il y a au moins un '.'
    bTemp = bTemp Or InStr(sEMail, ".") <= 0
    
    'Vérifions que la taille est plus grande que 6 caractères (a@a.ca)
    bTemp = bTemp Or Len(sEMail) < 6
    
    'Vérifier qu'il y a qu'n seul '@'
     i = InStr(sEMail, "@")
    
     sTemp = Mid(sEMail, i + 1)
    
    bTemp = bTemp Or InStr(sTemp, "@") > 0
    
    'Vérifier qu'il y un '.' après le '@'
    bTemp = bTemp Or InStr(sTemp, ".") = 0
    
    'Vérifier la présence de (")
    bTemp = bTemp Or InStr(sEMail, Chr(34)) > 0
    
    'Vérifier la présence de (.@)
    bTemp = bTemp Or InStr(sEMail, ".@") > 0
    
    'Vérifier la présence de (@.)
    bTemp = bTemp Or InStr(sEMail, "@.") > 0
    
    'Vérifier la présence de (..)
    bTemp = bTemp Or InStr(sEMail, "..") > 0
    
    'Vérifié s'il y a des caractères interdits
    For i = 1 To Len(sEMail)
        If InStr(sInvalidChars, Mid(sEMail, i, 1)) > 0 Then
        bTemp = True
        End If
    Next
    
    ' S'il y a une seule des conditions ci-dessus qui repond true alors l'e-mail est invalide
    ValidEmail = Not bTemp

End Function


if ValidEmail("Votre email")= true then

response.write "Le mail est valide"

else

response.write "Le mail est invalide"

end if



 Sources du même auteur

MOTEUR DE RECHERCHE
Toutes les sources de pacman

 Sources de la même categorie

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey
CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS par EricDD
FONCTION UCFIRST EN ASP par DesignerCreator
Source .NET (Dotnet) FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam
Toutes les sources de la catégorie Chaînes de caratères

Commentaires et avis

Commentaire de vbtom le 15/02/2002 13:48:05

Ouais ca a l'air bien ms sur la fin tu devrais utiliser les expression regulieres.

Commentaire de gedeef le 15/02/2002 14:39:58

La construction de ta chaine (en haut) laisse rêveur !!
Tu t'es tapé 132 caractères (123..255) à la main alors qu'il suffisait de faire un simple boucle for !!!
D'autre part tu as une ligne :
    'Vérifier la présence de (..)
    bTemp = bTemp Or InStr(sEMail, "..") &gt; 0
Rien que pour toi, j'ai créé une adresse manu..gedeef@schtroumphs.net
Tu peux m'yécrire si tu veux, ça marche.

Commentaire de Jos le 15/02/2002 23:05:37

Plusieurs failles, dans cette validation!

Permet de mettre plusieurs @.
Permet de débuter ou terminer par un . ou un @
...et j'en passe sûrement!

Une fois de plus, je réaffirme que rien ne vaut un regexp, pour valider une chaîne de caractère... dont une adresse email!!!  ;-)

Commentaire de Jos le 22/02/2002 23:53:13

D'ailleurs, pour la validation avec RegExp, va voir là :
http://www.aspfr.com/article.asp?Val=110

Je vais faire un peu de pub à ma source!!  héhé  ;-)

Commentaire de cyril722 le 13/03/2002 22:18:47

tu connais RegExp visiblement non!!!

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Underwater View of the Ocean With LIght Shining Through the Wave
Photo Paramoteur au dessus de la Loire 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,139 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)