Παράδειγμα λειτουργίας για την επικύρωση ενός μηνύματος ηλεκτρονικού ταχυδρομείου σε ASP

Η ακόλουθη συνάρτηση χρησιμοποιείται για να επιβεβαιώσει ότι μια διεύθυνση email είναι σωστή στο ASP.

συνάρτηση revMail (Mail)
Ελέγξτε έγκυρη διεύθυνση
επιστρέφει 1 για μη έγκυρες διευθύνσεις
«επιστρέφει 0 για έγκυρες διευθύνσεις
αμυδρό atCnt
revMail = 0

"μήκος chk
εάν len (Mail) <5 τότε
' [email protected] πρέπει να είναι η συντομότερη δυνατή διεύθυνση
revMail = 1

μορφή ελέγχου
"Ελέγξτε ότι έχει @
elseif instr (Mail, "@") = 0 τότε
revMail = 1

"Ελέγξτε ότι έχει.
elseif instr (Mail, ".") = 0 τότε
revMail = 1

Ελέγξτε ότι δεν έχει περισσότερους από τρεις χαρακτήρες μετά το.
elseif len (Mail) - instrrev (Mail, ".")> 4 τότε
revMail = 1

"που δεν έχει _ μετά το @
'elseif instr (Mail, "_") <> 0 και _
Στη συνέχεια, 'instrrev (Mail, "_")> instrrev (Mail, "@")
«revMail = 1

αλλού
"που έχει μόνο ένα @
atCnt = 0
για i = 1 έως len (Mail)
εάν τα μέσα (Mail, i, 1) = "@" τότε
atCnt = atCnt + 1
τέλος εαν
Επόμενο

αν atCnt> 1 τότε
revMail = 1
τέλος εαν

«ελέγξτε τον χαρακτήρα ανά χαρακτήρα
για i = 1 έως len (Mail)
εάν δεν είναι αριθμητική (μέσα (Mail, i, 1)) και _

(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") και _
mid (Mail, i, 1) <> "_" και _
mid (Mail, i, 1) <> "." και _
mid (Mail, i, 1) <> "@" και _
mid (Mail, i, 1) <> "-" τότε
revMail = 1
τέλος εαν
Επόμενο
τέλος εαν
τελική λειτουργία
%>