Пример функције за потврду е-поште у АСП-у

Следећа функција се користи за потврду исправности адресе е-поште у АСП-у.

функција ревМаил (Маил)
'проверите важећу адресу
'враћа 1 за неважеће адресе
'враћа 0 за важеће адресе
пригушен атЦнт
ревМаил = 0

'цхк дужина
ако је лен (Маил) <5 онда
' з@к.ц треба да буде најкраћа могућа адреса
ревМаил = 1

'провери формат
'проверите да ли има @
елсеиф инстр (Маил, "@") = 0 тада
ревМаил = 1

'проверите да ли има.
елсеиф инстр (Маил, ".") = 0 тада
ревМаил = 1

'проверите да ли након знака има највише три знака.
елсеиф лен (Маил) - инстррев (Маил, ".")> 4 онда
ревМаил = 1

'који нема _ после @
'елсеиф инстр (Маил, "_") <> 0 и _
'инстррев (Маил, "_")> инстррев (Маил, "@") онда
'ревМаил = 1

иначе
'који има само један @
атЦнт = 0
за и = 1 за посудбу (пошта)
иф мид (Маил, и, 1) = "@" онда
атЦнт = атЦнт + 1
крај ако
следећи

ако је атЦнт> 1 онда
ревМаил = 1
крај ако

'провери знак по знак
за и = 1 за посудбу (пошта)
ако не и бројчани (средина (Маил, и, 1)) и _
(лцасе (мид (Маил, и, 1)) лцасе (мид (Маил, и, 1))> "з") и _

средина (Маил, и, 1) <> "_" и _
средина (Маил, и, 1) <> "." и _
средина (Маил, и, 1) <> "@" и _
мид (Маил, и, 1) <> "-" онда
ревМаил = 1
крај ако
следећи
крај ако
крајња функција
%>