يتم التحقق من العديد من رسائل البريد الإلكتروني للتحقق على عميل js، ولكن من السهل كسرها إذا استخدمنا asp للتحقق على الخادم، فلن تكون هناك مشكلة. انسخ رمز الكود كما يلي:
'******************************************************************************************************************************************************************************
'اسم الوظيفة: IsValidEmail
'الوظيفة: التحقق من صحة عنوان البريد الإلكتروني
'المعلمة: البريد الإلكتروني ----عنوان البريد الإلكتروني المراد التحقق منه
'قيمة الإرجاع: صحيح ----عنوان البريد الإلكتروني قانوني
' خطأ ---- عنوان البريد الإلكتروني غير قانوني
'******************************************************************************************************************************************************************************
الوظيفة العامة IsValidEmail (البريد الإلكتروني)
أسماء خافتة، اسم، أنا، ج
IsValidEmail = صحيح
الأسماء = سبليت (البريد الإلكتروني، @)
إذا كان UBound(names) <> 1 ثم IsValidEmail = False: اخرج من الوظيفة
لكل اسم في الأسماء
إذا كان Len(name) <= 0، فإن IsValidEmail = False:Exit Function
لأني = 1 إلى لين (الاسم)
ج = LCase(منتصف(الاسم، أنا، 1))
إذا كان InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 وليس IsNumeric(c) ثم IsValidEmail = False:Exit Function
التالي
إذا كان Left(name, 1) = . أو Right(name, 1) =
التالي
إذا كان InStr(names(1, .) <= 0 ثم IsValidEmail = False:Exit Function
I = Len(names(1)) - InStrRev(names(1), .)
إذا كنت <> 2 وأنا <> 3 فإن IsValidEmail = خطأ: وظيفة الخروج
إذا كان InStr(Email, ..) > 0 فإن IsValidEmail = False
وظيفة النهاية