Funkcijos pavyzdys, kaip patikrinti el. Laišką ASP

Ši funkcija naudojama norint patikrinti, ar el. Pašto adresas teisingas ASP.

funkcija revMail (paštas)
'patikrinkite galiojantį adresą
'grąžina 1 neteisingiems adresams
'grąžina 0 galiojančių adresų
blankus atCnt
revMail = 0

'chk ilgis
jei len (Paštas) <5, tada
' [email protected] turėtų būti kuo trumpesnis adresas
revMail = 1

'patikrinti formatą
patikrinkite, ar jis turi @
elseif instr (Mail, "@") = 0 tada
revMail = 1

patikrinkite, ar jis turi.
elseif instr (Paštas, ".") = 0 tada
revMail = 1

"patikrinkite, ar po simbolio yra ne daugiau kaip trys simboliai.
elseif len (Paštas) - instrrev (Paštas, ".")> 4 tada
revMail = 1

„kuris neturi _ po @
'elseif instr (Mail, "_") <> 0 ir _
'instrrev (Mail, "_")> instrrev (Mail, "@") tada
„revMail = 1

Kitas
„kuris turi tik vieną @
atCnt = 0
i = 1 iki len (paštas)
jei viduryje (Mail, i, 1) = "@", tada
atCnt = atCnt + 1
pabaiga jei
Kitas

jei atCnt> 1, tada
revMail = 1
pabaiga jei

'patikrinti simbolį pagal simbolį
i = 1 iki len (paštas)
jei ne isnumeric (mid (Mail, i, 1)) ir _

(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") ir _
vidurys (paštas, i, 1) <> "_" ir _
vidurys (paštas, i, 1) <> "." ir _
vidurys (paštas, i, 1) <> "@" ir _
vidurio (paštas, i, 1) <> "-" tada
revMail = 1
pabaiga jei
Kitas
pabaiga jei
pabaigos funkcija
%>