דוגמה לפונקציה לאימות דוא"ל ב- ASP

הפונקציה הבאה משמשת לאימות שכתובת דוא"ל נכונה ב- ASP.

פונקציה revMail (דואר)
'בדוק כתובת חוקית
'מחזיר 1 לכתובות לא חוקיות
'מחזיר 0 לכתובות חוקיות
עמום atCnt
revMail = 0

אורך chk
אם len (דואר) <5 אז
' [email protected] צריכה להיות הכתובת הקצרה ביותר האפשרית
revMail = 1

פורמט בדיקה
'בדוק שיש לו @
elseif instr (Mail, "@") = 0 אז
revMail = 1

'בדוק שיש לו.
elseif instr (דואר, ".") = 0 אז
revMail = 1

'בדוק שיש בו לא יותר משלוש תווים אחרי.
elseif len (Mail) - instrrev (Mail, ".")> 4 אז
revMail = 1

'שאין לזה _ אחרי @
instr של אחרים (דואר, "_") <> 0 ו- _
'instrrev (Mail, "_")> instrrev (Mail, "@") ואז
'revMail = 1

אַחֵר
'שיש רק @ אחד
atCnt = 0
עבור i = 1 ל- len (דואר)
אם באמצע (Mail, i, 1) = "@" אז
atCnt = atCnt + 1
לסיים אם
הַבָּא

אם atCnt> 1 אז
revMail = 1
לסיים אם

'בדוק תו אחר דמות
עבור i = 1 ל- len (דואר)
אם לא הוא מספר (אמצע (דואר, i, 1)) ו- _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") ו- _
באמצע (Mail, i, 1) <> "_" ו- _
באמצע (דואר, i, 1) <> "." ו _
באמצע (Mail, i, 1) <> "@" ו- _
באמצע (Mail, i, 1) <> "-" ואז
revMail = 1
לסיים אם
הַבָּא
לסיים אם
פונקציית סיום
%>