Functievoorbeeld om een ​​e-mail in ASP te valideren

De volgende functie wordt gebruikt om te valideren dat een e-mailadres correct is in ASP.

functie revMail (Mail)
'controleer geldig adres'
'retourneert 1 voor ongeldige adressen'
'retourneert 0 voor geldige adressen'
dim bij Cnt
revMail = 0

'chk lengte'
if len (Mail) <5 then
' [email protected] moet het kortst mogelijke adres zijn
revMail = 1

'controleer formaat'
'controleer of het een @ heeft
elseif instr (Mail, "@") = 0 dan
revMail = 1

'controleer of het een.
elseif instr (Mail, ".") = 0 dan
revMail = 1

'controleer of er niet meer dan drie tekens achter de.
elseif len (Mail) - instrrev (Mail, ".")> 4 then
revMail = 1

'dat heeft geen _ na @
'elseif instr (Mail, "_") <> 0 en _
'instrrev (Mail, "_")> instrrev (Mail, "@") dan
'revMail = 1

anders
'dat heeft maar één @
atCnt = 0
voor i = 1 tot len ​​(Mail)
if mid (Mail, i, 1) = "@" dan
atCnt = atCnt + 1
stop als
De volgende

als bijCnt> ​​1 dan
revMail = 1
stop als

'controleer teken voor teken'
voor i = 1 tot len ​​(Mail)
zo niet isnumeriek (midden (Mail, i, 1)) en _

(lcase (midden (Mail, i, 1)) lcase (midden (Mail, i, 1))> "z") en _
mid (Mail, i, 1) <> "_" en _
mid (Mail, i, 1) <> "." en _
mid (Mail, i, 1) <> "@" en _
mid (Mail, i, 1) <> "-" dan
revMail = 1
stop als
De volgende
stop als
einde functie
%>