ตัวอย่างฟังก์ชันตรวจสอบอีเมลใน ASP

ฟังก์ชันต่อไปนี้ใช้เพื่อตรวจสอบว่าที่อยู่อีเมลถูกต้องใน ASP

ฟังก์ชัน revMail (จดหมาย)
'ตรวจสอบที่อยู่ที่ถูกต้อง
'ส่งคืน 1 สำหรับที่อยู่ที่ไม่ถูกต้อง
'ส่งคืน 0 สำหรับที่อยู่ที่ถูกต้อง
สลัวที่Cnt
revMail = 0

'chk ยาว
ถ้าเลน (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 (เมล, "_") <> 0 และ _
'instrrev (Mail, "_")> instrrev (Mail, "@") แล้ว
'revMail = 1

อื่น
'ที่มีเพียง@
atCnt = 0
for i = 1 ถึง len (เมล)
ถ้ากลาง (Mail, i, 1) = "@" แล้ว
atCnt = atCnt + 1
สิ้นสุด if
ต่อไป

ถ้า atCnt> 1 แล้ว
revMail = 1
สิ้นสุด if

'ตรวจสอบตัวอักษรทีละตัว
for i = 1 ถึง len (เมล)
ถ้าไม่ใช่ตัวเลข (กลาง (Mail, i, 1)) และ _
(lcase (กลาง (Mail, i, 1)) lcase (กลาง (Mail, i, 1))> "z") และ _
กลาง (Mail, i, 1) <> "_" และ _
กลาง (Mail, i, 1) <> "." และ _

กลาง (Mail, i, 1) <> "@" และ _
กลาง (Mail, i, 1) <> "-" แล้ว
revMail = 1
สิ้นสุด if
ต่อไป
สิ้นสุด if
ฟังก์ชั่นสิ้นสุด
%>