لقد استخدمت رمز JavaScript الذي تم إنشاؤه بشكل ديناميكي على الإنترنت وتوسيعه بنفسي. لقد نسيت اسم المؤلف ، لكنني أتذكر بوضوح أن الرموز من المادة 1 إلى المادة 9 كلها أعمال أصلية للمؤلف. أما بالنسبة للمقالات من تسعة إلى خمسة عشر عامًا ، فقد أضفتها بنفسي. علاوة على ذلك ، نظرًا لمستولي المحدود ، من المادة 9 إلى المادة 15 ، قد لا يسري كل منهم؟ هاها ، ليست هناك حاجة في الواقع لنشرها هنا ، لأن الجميع يمكنهم استخدام هذه الخدعة الصغيرة. لقد وضعت وظيفتها على النحو التالي: عندما لا يمكنك العثور على الوظيفة أثناء التطوير ، يمكنك فقط نسخها هنا. هاها ، لأنني لا أملك موقد أو محرك أقراص ثابتة. لا توجد طريقة لحمل هذه الرموز معك ، ولكن لحسن الحظ ، يمكنك الوصول إلى الإنترنت في كل مكان في بكين. لذا ضع هذا هنا ، استخدم Ctrl+C ، ثم Ctrl+V.
<٪ '**********************************************************************
اسم الوظيفة: checkform_js (frmname ، errstr)
"الوظيفة: استخدم طريقة ASP لكتابة وظيفة التحقق من نموذج JavaScript ديناميكيًا
'طريقة الاستخدام: 1. <!-includefile = url+page حيث توجد هذه الوظيفة> ؛
2. <portOsubmit = "javaScript: returnChecksubmit ()"> ؛
لقد تم نسيان المؤلف الأصلي ، مؤلف التطوير الثاني: guo.qm
آخر تحديث: 2004
'**********************************************************************
'يساعد:
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
وصف الجسيمات:
'frmname: اسم حقل النموذج
"errstr: تحقق من القائمة ، مثل:" num | 3 | يجب ألا يقل النموذج من 8 أرقام | 8 ، البريد الإلكتروني | 5 | الرجاء إدخال تنسيق البريد الإلكتروني الصحيح "، هنا
"NUM يمثل اسم حقل النموذج ، 3 يمثل معلمة التحقق ، 8 يمثل عدد الأرقام لا يقل عن (اختياري)
'
'· قائمة معلمات التحقق:
0: نوع النص المطلوب
1: نوع listmenu المطلوب
'2: يجب أن يكون نوعًا من الرقم
3: يجب أن يكون نوع النص للعدد المحدد للأرقام
4: يجب أن يكون نوع النص أكبر من العدد المحدد للأرقام
'5: يجب أن يكون نوع النص للبريد الإلكتروني
6: يجب أن يكون AZ أو أحرف 0-9
7: تأكيد كلمة المرور وكلمة المرور يجب أن تكون مساوية لنوع النص
8: تأكد من أنه ليس نوع نص يبدأ برقم
'9: يجب أن يحتوي على نوع النص في التنسيق 10-888888
'10: أنواع النصوص التي لا يمكن أن تحتوي على صينية ومساحات وغيرها من الأحرف غير القانونية ، أي أنه يمكن أن تحتوي فقط على "_"-""-"" 0-9 "" AZ "AZ"
11: يجب أن تتضمن فقط الرقم و "-"
12: يجب أن يكون نوع نص عنوان URL الصحيح
'13: يجب أن يكون أقل من العدد المحدد لنوع نص الأرقام
14: أنواع النصوص التي يجب ألا تحتوي على علامات HTML
'15: تأكد من أن نوع التحديد غير معاق يجب أن يحدد التنسيق: عنصر النموذج المحدد | 15 | معلومات موجه | عنصر الارتباط "
"ملاحظة: إذا كانت هناك قائمة متتالية ، فيرجى وضع عملية التحقق من القائمة المتتالية إلى الفحص الأخير! ! ! !
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
٪>
<٪
subcheckform_js (frmname ، errstr)
dimtmparr
ديمي
سلسلة إخراج Dimstrshow من JS
احصل على قائمة الأخطاء ، قم بإنشاء صفيف
tmparr = split (errstr ، "،")
'كتابة JS
fori = 0toubound (tmparr)
ifi <> 0then
strshow = strshow & "else" & findjs (frmname ، tmparr (i))
آخر
strshow = strshow & findjs (frmname ، tmparr (i))
Endif
التالي
الإخراج
strshow = "<scriptLanguage = javaScript>" & vbcrlf & _
"<!-" & vbcrlf & _
"// powerbyguoquanman2004" & vbcrlf & _
"FunctionChecksubmit ()" & vbcrlf & _
"{" & vbcrlf & _
"varemailreg =/^[_ a-z0-9]+@([_ A-Z0-9]+/.)+[A-Z0-9] {2،3} $/؛" & vbcrlf & _ _
"varpwDreg =/[A-Z0-9] $/؛" & vbcrlf & _
"varuidbeginreg =/^[0-9]+[_ A-Z0-9]/؛" & vbcrlf & _
"varphonereg = // d {2}-/d {5}/؛" & vbcrlf & _
"varphonedetailreg =/[^0-9/-]/؛" & vbcrlf & _
"varuidreg =/[^a-za-z0-9 _/-]/؛" & vbcrlf & _
"varhtmlreg =/<(.*)>.*</// 1>/؛" & vbcrlf & _
"varre1 =/^http: ////[a-za-z] [a-za-z0-9/-]*[a-za-z]*/./؛" & vbcrlf & _
"varre2 =/^http: //// [0-9] {1،5} [a-za-z]*[0-9]*/./؛" & vbcrlf & _ _
"varre3 = //. {2 ،}/؛" & vbcrlf & _
"varre4 = //: {2 ،}/؛" & vbcrlf & _
"varre5 = /// {3 ،}/؛" & vbcrlf & _
"varre6 = // ،+/؛" & vbcrlf & _
"varre7 = //!+/؛" & vbcrlf & _
"varre8 = //@+/؛" & vbcrlf & _
"varre9 = //#+/؛" & vbcrlf & _
"varre10 = // $+/؛" & vbcrlf & _
"varre11 = //^+/؛" & vbcrlf & _
"varre12 = //*+/؛" & vbcrlf & _
"varre13 = // |+/؛" & vbcrlf & _
"varre14 = //.
strshow & _
"else" & vbcrlf & _
"returntrue ؛" & vbcrlf & _
"}" & vbcrlf & _
"//->" & vbcrlf & _
"</script>"
استجابة. writesstrshow
ينتهي
FunctionFindjs (frmname ، errstr)
dimtmparr
ديمي
'قيمة المعلمة
أنا = 0
احصل على قائمة الأخطاء ، قم بإنشاء صفيف
tmparr = انقسام (errstr ، "|")
شروط الاستعلام الإخراج
SelectCasetMparr (I+1)
نوع النص المطلوب للحالة "0"
findJS = "if ((document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
نوع listmenu المطلوب للحالة "1"
findJS = "if ((document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
يجب أن تكون الحالة "2" نوع النص للرقم
findJS = "if (isnan (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
يجب أن تكون الحالة "3" نوع النص للعدد المحدد للأرقام
findJS = "if (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
يجب أن تكون الحالة "4" أكبر من نوع النص للعدد المحدد للأرقام
findJS = "if (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
يجب أن تكون الحالة "5" هي نوع النص للبريد الإلكتروني
findJS = "if ((! eLaMreg.test (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
يجب أن تكون الحالة "6" من AZ أو نوع نص من أحرف 0-9
findJS = "if ((! pwdreg.test (وثيقة." & frmname & "." & tmparr (i) & "
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
تؤكد الحالة "7" أن كلمة المرور وكلمة المرور يجب أن تكون مساوية لنوع النص
findJS = "if ((document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
الحالة "8" "تؤكد نوع النص الذي يبدأ برقم
findJS = "if ((uidbeginreg.test (وثيقة." & frmname & "." & tmparr (i) & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
الحالة "9" "تؤكد رقم الهاتف بالتنسيق 10-101212
findJS = "if ((! phonereg.test (وثيقة." & frmname & "." & tmparr (i) & "
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
تؤكد الحالة "10" أن النص فقط بما في ذلك الحروف الإنجليزية و "-" ، "_". (أي أنه لا يشمل الشخصيات الصينية وغيرها من الشخصيات الخاصة)
findJS = "if ((uidreg.test (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
تؤكد الحالة "11" أن تحتوي فقط على أرقام و "-" (شائعة الاستخدام في أرقام الهواتف والفاكسات)
FindJS = "if ((fonedetailreg.test (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
الحالة "12" "تؤكد ما إذا كان عنوان URL صالح!
findJS = "if (((! re1.test (document." & frmname & ".
"&& (وثيقة." & frmname & "." & tmparr (i) & ". value! = ''))
"(re3test (وثيقة." & frmname & ".
"(RE5.Test (وثيقة." & frmname & ".
"(re7.test (وثيقة." & frmname & ".
"(re9test (وثيقة." & frmname & ".
"(re11.test (وثيقة." & frmname & ".
"(re13.test (وثيقة." & frmname & ".
"&& (وثيقة." & frmname & "." & tmparr (i) & ". value! = ''))
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
تؤكد الحالة "13" أن نوع النص ليس أكبر من عدد الأرقام الثابتة
findJS = "if (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
الحالة "14" "تؤكد نوع النص الذي يحتوي على علامة HTML
findJS = "if (htmlreg.test (وثيقة." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"المستند." & frmname & "." & tmparr (i) & ".
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf
exitfunction
الحالة "15"
'===========================================================================
"تأكد من أن نوع التحديد غير معقول يجب أن يحدد التنسيق: الحالة | 15 | الرجاء تحديد اسم المقاطعة! | Selcountry | City | الرجاء تحديد معلومات المدينة
"ملاحظة: عند تحديد محدد! = 0 ، يتم تعطيل البند 2 والبند 3! لا حاجة للتحقق من العنصرين الآخرين
"عندما يتم تحديد العنصر الأول == 0 من القائمة المتتالية ، لا يمكن أن يكون المحدد للعنصر الثاني 0 ، وعندما تم تحديد العنصر الثاني! = 0 من العنصر الثاني ، لا يمكن أن يكون المحدد للعنصر الثالث 0 أيضًا.
"يتم استخدام هذا العنصر للتحقق من قوائم التتالي الثلاث في البلاد/المقاطعة/المدينة. عندما لا تكون البلاد في الصين ، لا يجوز ملء المقاطعة والمدينة. عندما تكون الصين ، يجب ملء المقاطعة والمدينة النسبية!
findJS = "if (document." & frmname & ".
"{" & vbcrlf & _
"if (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf & _
"elseif (وثيقة." & frmname & ".
"{" & vbcrlf & _
"if (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+5) & "') ؛" & vbcrlf & _
"وثيقة." & frmname & "." & tmparr (i+4) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
exitfunction
تؤكد الحالة "16" أن نوع التحديد غير معاقف يجب أن يحدد التنسيق: نموذج النموذج المحدد | 16 | معلومات موجه | عنصر الارتباط "ملاحظة: عندما يكون العنصر المرتبط هو العنصر الأول ، يبدأ التأكيد!
FindJS = "if (document." & frmname & ".
"{" & vbcrlf & _
"if (document." & frmname & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "') ؛" & vbcrlf & _
"وثيقة." & frmname & "." & tmparr (i) & ".
"returnfalse ؛" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
exitfunction
endselect
الوظيفية
٪>
