อีเมลยืนยันจำนวนมากได้รับการตรวจสอบบนไคลเอนต์ js แต่หากเราใช้ asp เพื่อตรวจสอบบนเซิร์ฟเวอร์ ก็ไม่น่าจะมีปัญหา คัดลอกรหัสรหัสดังต่อไปนี้:
-
'ชื่อฟังก์ชัน: IsValidEmail
'ฟังก์ชัน: ตรวจสอบความถูกต้องของที่อยู่อีเมล'
'พารามิเตอร์: อีเมล ---- ที่อยู่อีเมลที่จะตรวจสอบ
'มูลค่าที่ส่งคืน: จริง ---- ที่อยู่อีเมลถูกต้องตามกฎหมาย
' เท็จ ---- ที่อยู่อีเมลไม่ถูกต้อง
-
ฟังก์ชั่นสาธารณะ IsValidEmail(อีเมล)
ชื่อติ่มซำ, ชื่อ, ฉัน, ค
IsValidEmail = จริง
ชื่อ = แยก (อีเมล, @)
ถ้า UBound(names) <> 1 ดังนั้น IsValidEmail = False: ออกจากฟังก์ชัน
สำหรับแต่ละชื่อในชื่อ
ถ้า Len (ชื่อ) <= 0 ดังนั้น IsValidEmail = False: ออกจากฟังก์ชัน
สำหรับฉัน = 1 ถึงเลน (ชื่อ)
c = LCase(กลาง (ชื่อ, I, 1))
ถ้า InStr(abcdefghijklmnopqrstuvwxyz_., c) <= 0 และไม่ใช่ IsNumeric(c) ดังนั้น IsValidEmail = False: ออกจากฟังก์ชัน
ต่อไป
ถ้า Left(name, 1) = . หรือ Right(name, 1) = . จากนั้น IsValidEmail = False:Exit Function
ต่อไป
ถ้า InStr(names(1), .) <= 0 ดังนั้น IsValidEmail = False:Exit Function
I = Len(ชื่อ(1)) - InStrRev(ชื่อ(1), .)
ถ้าฉัน <> 2 และฉัน <> 3 ดังนั้น IsValidEmail = False: ออกจากฟังก์ชัน
ถ้า InStr(Email, ..) > 0 ดังนั้น IsValidEmail = False
ฟังก์ชันสิ้นสุด