ฉันใช้รหัส JavaScript การตรวจสอบแบบฟอร์มที่สร้างขึ้นแบบไดนามิกบนอินเทอร์เน็ตและขยายตัวด้วยตัวเอง ฉันลืมชื่อผู้แต่ง แต่ฉันจำได้อย่างชัดเจนว่ารหัสจากข้อ 1 ถึงข้อ 9 เป็นงานต้นฉบับทั้งหมดของผู้เขียน สำหรับบทความเก้าถึงสิบห้าฉันเพิ่มมันเอง ยิ่งกว่านั้นเนื่องจากระดับที่ จำกัด ของฉันจากข้อ 9 ถึงข้อ 15 อาจไม่มีผลทั้งหมดของพวกเขา? ฮ่าฮ่าไม่จำเป็นต้องโพสต์ที่นี่เพราะทุกคนสามารถใช้เคล็ดลับเล็ก ๆ น้อย ๆ นี้ได้ ฉันวางตำแหน่งฟังก์ชั่นเป็น: เมื่อคุณไม่พบฟังก์ชั่นในระหว่างการพัฒนาคุณสามารถคัดลอกได้ที่นี่ ฮ่าฮ่าเพราะฉันไม่มีเครื่องเขียนหรือฮาร์ดไดรฟ์มือถือ ไม่มีทางที่จะนำรหัสเหล่านี้ติดตัวไปด้วย แต่โชคดีที่คุณสามารถเข้าถึงอินเทอร์เน็ตได้ทุกที่ในปักกิ่ง ดังนั้นใส่ไว้ที่นี่ใช้ Ctrl+C จากนั้น Ctrl+V
- -
'ชื่อฟังก์ชั่น: checkform_js (frmname, errstr)
'ฟังก์ชั่น: ใช้วิธี ASP เพื่อเขียนฟังก์ชั่นการตรวจสอบแบบฟอร์ม JavaScript แบบไดนามิก () ()
'วิธีการใช้งาน: 1. <!-includefile = url+page ที่ฟังก์ชั่นนี้อยู่>;
'2. <formosubmit = "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 | ข้อมูลพรอมต์ | รายการสมาคม "
'หมายเหตุ: หากมีเมนูเรียงซ้อนโปรดใส่กระบวนการตรวจสอบของเมนู cascading เพื่อตรวจสอบครั้งสุดท้าย! - - -
-
-
-
subcheckform_js (frmname, errstr)
dimtmparr
Dimi
สตริงเอาต์พุตของ dimstrshow ของ js
'รับรายการข้อผิดพลาดสร้างอาร์เรย์
tmparr = split (errstr, ",")
'เขียน JS
fori = 0toubound (tmparr)
ifi <> 0 แล้ว
strshow = strshow & "อื่น" & findjs (frmname, tmparr (i))
อื่น
strshow = strshow & findjs (frmname, tmparr (i))
endif
ต่อไป
'เอาต์พุต
strshow = "<scriptLanguage = JavaScript>" & vbcrlf & _
"<!-" & vbcrlf & _
"// powerbybyguoquanman2004" & 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 & _
"varphoneedetailreg =/[^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 = //. [a-z0-9 _ & =? //]*[a-za-z0-9 /// ~] {2,} $/;" & vbcrlf & _
strshow & _
"อื่น" & vbcrlf & _
"returntrue;" & vbcrlf & _
"}" & vbcrlf & _
"//->" & vbcrlf & _
"</script>"
Response.WritessTrshow
enddub
functionfindjs (frmname, errstr)
dimtmparr
Dimi
'ค่าพารามิเตอร์
i = 0
'รับรายการข้อผิดพลาดสร้างอาร์เรย์
tmparr = split (errstr, "|")
'เงื่อนไขการสอบถามเอาท์พุท
SELECTCASETMPARR (i+1)
ประเภทข้อความที่ต้องการสำหรับกรณี "0" '
findjs = "ถ้า ((เอกสาร." & frmname & "." & tmparr (i) & ". ค่า) ==" "") "& vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
ประเภท listmenu ที่ต้องการสำหรับกรณี "1"
findjs = "ถ้า ((เอกสาร." & frmname & "." & tmparr (i) & ". ค่า) ==" "") "& vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "2" 'ต้องเป็นประเภทข้อความของหมายเลข
findjs = "if (isnan (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "3" 'ต้องเป็นประเภทข้อความของจำนวนตัวเลขที่ระบุ
findjs = "ถ้า (เอกสาร." & frmname & "." & tmparr (i) & ". value.length! =" & tmparr (i+3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "4" 'จะต้องมากกว่าประเภทข้อความของจำนวนตัวเลขที่ระบุ
findjs = "ถ้า (เอกสาร." & frmname & "." & tmparr (i) & ". value.length <" & tmparr (i+3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "5" 'ต้องเป็นประเภทข้อความของอีเมล
findjs = "if ((! emailreg.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) && (เอกสาร" & frmname & "." & tmparr (i) & "ค่า! = '')
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "6" 'ต้องเป็น AZ หรือประเภทข้อความของอักขระ 0-9
findjs = "if ((! pwdreg.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) && (เอกสาร" & frmname & "." & tmparr (i) & "ค่า! = '')
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "7" 'ยืนยันว่ารหัสผ่านและรหัสผ่านจะต้องเท่ากับประเภทข้อความ
findjs = "if ((เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)! = (เอกสาร." & frmname & "." & tmparr (i+3) & "ค่า))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "8" 'ยืนยันประเภทข้อความที่ขึ้นต้นด้วยตัวเลข
findjs = "ถ้า ((uidbeginreg.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) && (เอกสาร" & frmname & "." & tmparr (i) & "ค่า! = '')
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "9" 'ยืนยันหมายเลขโทรศัพท์ในรูปแบบ 10-101212
findjs = "if ((! phonereg.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) && (เอกสาร" & frmname & "." & tmparr (i) & "ค่า! = '')
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "10" 'ยืนยันว่ามีเพียงข้อความรวมถึงตัวอักษรภาษาอังกฤษและ "-", "_" (นั่นคือมันไม่รวมถึงตัวละครจีนและตัวละครพิเศษอื่น ๆ )
findjs = "if ((uidreg.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) && (เอกสาร" & frmname & "." & tmparr (i) & "ค่า! = '')
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "11" 'ยืนยันว่ามีเพียงตัวเลขและ "-" (ใช้กันทั่วไปในหมายเลขโทรศัพท์และแฟกซ์)
findjs = "if ((phineedetailreg.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) && (เอกสาร" & frmname & "." & tmparr (i) & "ค่า! = '')
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "12" 'ยืนยันว่าเป็น URL ที่ถูกต้องหรือไม่!
findjs = "ถ้า (((! re1.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) && (! re2.test (เอกสาร" & frmname & "." & tmparr (i) & "ค่า)"
"&& (เอกสาร" & frmname & "." & tmparr (i) & ". ค่า! = '')) ||"
"(re3.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) || (re4.test (เอกสาร." & frmname & "." & tmparr (i) & ".
"(re5.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) || (re6.test (เอกสาร." & frmname & "." & tmparr (i) & ".
"(re7.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) || (re8.test (เอกสาร." & frmname & "." & tmparr (i) & ".
"(re9.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) || (re10.test (เอกสาร." & frmname & "." & tmparr (i) & ".
"(re11.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) || (re12.test (เอกสาร." & frmname & "." & tmparr (i) & "ค่า))
"(re13.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า)) || (! re14.test (เอกสาร" & frmname & "." & tmparr (i) & "ค่า))
"&& (เอกสาร" & frmname & "." & tmparr (i) & "ค่า! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "13" 'ยืนยันว่าประเภทข้อความไม่มากกว่าจำนวนตัวเลขคงที่
findjs = "if (document." & frmname & "." & tmparr (i) & ". value.length>" & tmparr (i+3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "14" 'ยืนยันประเภทข้อความที่มีแท็ก HTML
findjs = "if (htmlreg.test (เอกสาร." & frmname & "." & tmparr (i) & ". ค่า))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & "select ();" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "15"
-
'ยืนยันว่าประเภทที่เลือกไม่ได้ปิดใช้งานต้องเลือกรูปแบบ: สถานะ | 15 | โปรดเลือกชื่อจังหวัด! | SelCountry | เมือง | กรุณาเลือกข้อมูลเมือง
'หมายเหตุ: เมื่อ SelectedIndex! = 0, รายการ 2 และรายการ 3 ถูกปิดใช้งาน! ไม่จำเป็นต้องตรวจสอบอีกสองรายการ
'เมื่อรายการแรก SelectedIndex == 0 ของเมนู cascading, selectedIndex ของรายการที่สองไม่สามารถเป็น 0 และเมื่อรายการที่สอง SelectedIndex! = 0 ของรายการที่สอง, SelectedIndex ของรายการที่สามไม่สามารถเป็น 0 ได้
'รายการนี้ใช้เพื่อตรวจสอบสามเมนูน้ำตกของประเทศ/จังหวัด/เมือง เมื่อประเทศไม่ใช่จีนจังหวัดและเมืองอาจไม่ได้รับการกรอกข้อมูลเมื่อเป็นจีนจังหวัดและเมืองญาติจะต้องกรอกข้อมูล!
findjs = "ถ้า (เอกสาร." & frmname & "." & tmparr (i+3) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". โฟกัส;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"ELSEIF (เอกสาร." & frmname & "." & tmparr (i) & ". selectedIndex! = 0)" & vbcrlf & _
"{" & vbcrlf & _
"ถ้า (เอกสาร" & frmname & "." & tmparr (i+4) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+5) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i+4) & ". โฟกัส;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
exitfunction
กรณี "16" 'ยืนยันว่าประเภทที่เลือกไม่ได้ปิดใช้งานต้องเลือกรูปแบบ: รายการฟอร์มตรวจสอบ | 16 | ข้อมูลพรอมต์ | รายการสมาคม "หมายเหตุ: เมื่อรายการที่เกี่ยวข้องเป็นรายการแรกการยืนยันเริ่มต้น!
findjs = "ถ้า (เอกสาร." & frmname & "." & tmparr (i+3) & ". selectedIndex! = 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"เอกสาร." & frmname & "." & tmparr (i) & ". โฟกัส;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
exitfunction
endelect
endfunction
-
