Exemple de fonction pour valider un e-mail dans ASP

La fonction suivante permet de valider qu'une adresse email est correcte dans ASP.

fonction revMail (Mail)
'vérifier une adresse valide
'retourne 1 pour les adresses invalides
'retourne 0 pour les adresses valides
dim atCnt
revMail = 0

'chk longueur
si len (Mail) <5 alors
' [email protected] doit être l'adresse la plus courte possible
revMail = 1

'vérifier le format
'Vérifiez qu'il a un @
elseif instr (Mail, "@") = 0 alors
revMail = 1

'vérifier qu'il a un.
elseif instr (Mail, ".") = 0 alors
revMail = 1

'Vérifiez qu'il n'a pas plus de trois caractères après le.
elseif len (Mail) - instrrev (Mail, ".")> 4 then
revMail = 1

'qui n'a pas _ après @
'elseif instr (Mail, "_") <> 0 et _
'instrrev (Mail, "_")> instrrev (Mail, "@") puis
'revMail = 1

autre
'qui n'a qu'un @
atCnt = 0
pour i = 1 à len (Mail)
si milieu (Mail, i, 1) = "@" alors
atCnt = atCnt + 1
fin si
suivant

si atCnt> 1 alors
revMail = 1
fin si

'vérifier caractère par caractère
pour i = 1 à len (Mail)
sinon est numérique (mid (Mail, i, 1)) et _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") et _

milieu (Mail, i, 1) <> "_" et _
milieu (Courriel, i, 1) <> "." et _
milieu (Mail, i, 1) <> "@" et _
milieu (Mail, i, 1) <> "-" puis
revMail = 1
fin si
suivant
fin si
fonction de fin
%>