هناك بعض الوظائف الجيدة للتحقق من صحة النموذج، يمكنك الرجوع إلى "****************************************** *****
"تحقق مما إذا كان يحتوي على اللغة الإنجليزية والأرقام فقط."
'***************************************
الدالة IsvalidValue(ArrayN, Str)
IsvalidValue = خطأ
اسم خافت
لكل GName في ArrayN
إذا كان Str = GName إذن
IsvalidValue = صحيح
الخروج ل
نهاية إذا
التالي
وظيفة النهاية
'***************************************
'تحقق مما إذا كان الرقم صالحًا
'***************************************
الدالة عدد صحيح (الفقرة)
IsInteger = خطأ
إذا لم يكن (IsNull(Para) أو Trim(Para) = أو ليس IsNumeric(Para)) إذن
IsInteger = صحيح
نهاية إذا
وظيفة النهاية
'***************************************
"الكشف عن اسم المستخدم."
'***************************************
الدالة IsValidUserName(byVal UserName)
خافت ط، ج
DimVUserName
IsValidUserName = صحيح
لأني = 1 إلى لين (اسم المستخدم)
ج = LCase(منتصف(اسم المستخدم، ط، 1))
إذا كان InStr($!<>?#^%@~`&*();:+=' , c) > 0 إذن
IsValidUserName = خطأ
وظيفة الخروج
نهاية إذا
التالي
لكل VUserName في Register_UserName
إذا كان اسم المستخدم = VUserName ثم
IsValidUserName = خطأ
الخروج ل
نهاية إذا
التالي
وظيفة النهاية
'***************************************
'تحقق مما إذا كان هناك عنوان بريد إلكتروني صالح
'***************************************
الوظيفة IsValidEmail(البريد الإلكتروني)
الأسماء الخافتة، الاسم، ط، ج
IsValidEmail = صحيح
الأسماء = سبليت (البريد الإلكتروني، @)
إذا كان UBound(names) <> 1 ثم
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
لكل اسم في الأسماء
إذا لين (الاسم) <= 0 ثم
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
لأني = 1 إلى لين (الاسم)
ج = LCase(منتصف(الاسم، ط، 1))
إذا كان InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 وليس IsNumeric(c) إذن
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
التالي
إذا كان اليسار (الاسم، 1) = أو اليمين (الاسم، 1) =
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
التالي
إذا كان InStr(names(1, .) <= 0 إذن
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
i = Len(names(1)) - InStrRev(names(1), .)
إذا كنت <> 2 وأنا <> 3 ثم
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
إذا InStr(email, ..)> 0 ثم
IsValidEmail = خطأ
نهاية إذا
وظيفة النهاية