Příklad funkce k ověření e-mailu v ASP

Následující funkce se používá k ověření správnosti e-mailové adresy v ASP.

funkce revMail (Mail)
'zkontrolovat platnou adresu
'vrátí 1 pro neplatné adresy
'vrátí 0 pro platné adresy
tlumit atCnt
revMail = 0

'délka chk
if len (Mail) <5 then
' [email protected] by měla být nejkratší možná adresa
revMail = 1

'zkontrolovat formát
'zkontrolujte, zda má @
elseif instr (Mail, "@") = 0 potom
revMail = 1

'zkontrolujte, zda má.
elseif instr (Mail, ".") = 0 potom
revMail = 1

'zkontrolovat, zda nemá více než tři znaky za.
elseif len (Mail) - instrrev (Mail, ".")> 4 potom
revMail = 1

'to nemá _ po @
'elseif instr (Mail, "_") <> 0 a _
'instrrev (Mail, "_")> instrrev (Mail, "@") poté
'revMail = 1

jiný
‚který má pouze jeden @
atCnt = 0
pro i = 1 až len (Mail)
if mid (Mail, i, 1) = "@" then
atCnt = atCnt + 1
skončit, pokud
další

pokud atCnt> 1 pak
revMail = 1
skončit, pokud

'zkontrolovat znak po znaku
pro i = 1 až len (Mail)
pokud není isnumeric (mid (Mail, i, 1)) and _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") a _

mid (Mail, i, 1) <> "_" a _
mid (Mail, i, 1) <> "." a _
mid (Mail, i, 1) <> "@" a _
mid (Mail, i, 1) <> "-" potom
revMail = 1
skončit, pokud
další
skončit, pokud
koncová funkce
%>