مثال على الوظيفة للتحقق من صحة بريد إلكتروني في ASP

تُستخدم الوظيفة التالية للتحقق من صحة عنوان البريد الإلكتروني في ASP.

وظيفة revMail (البريد)
تحقق من العنوان الصحيح
تقوم بإرجاع 1 لعناوين غير صالحة
'يعيد 0 لعناوين صالحة
قاتمة atCnt
revMail = 0

طول الفصل
إذا كان 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)
إذا لم يكن رقمًا (mid (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) <> "@" و _
منتصف (Mail، i، 1) <> "-" ثم
revMail = 1
إنهاء إذا
التالي
إنهاء إذا
وظيفة النهاية
%>