ทุกครั้งที่ฉันเขียนระบบฉันต้องเข้าสู่โปรแกรมซึ่งทำให้ลำบากมาก ในความเป็นจริงเราสามารถสร้างโมดูลการทำงานที่ใช้กันทั่วไปหลายรายการในฟังก์ชั่นการตรวจสอบเข้าสู่ระบบ ดังนั้นโมดูลการทำงานที่ใช้กันทั่วไปหลายอย่างใน ASP คืออะไร? ตอนนี้ลองมาดูการแนะนำโมดูลการทำงานที่ใช้กันทั่วไปของ ASP
[รหัส]
-
ฟังก์ชั่น chk_regist (requestname, requestpwd, tablename, namefield, pwdfield, reurl) dim cn_name, cn_pwdcn_name = trim (request.form ("" & คำขอ & "") cn_pwd = trim (request.form (" thenResponse.write ("<ภาษาสคริปต์ = JavaScript> การแจ้งเตือน (" "กรุณากรอกรหัสผ่านบัญชีเต็มจำนวนขอบคุณสำหรับความร่วมมือของคุณ" "); history.go (-1) </script>") สิ้นสุด ifset rs = server.createObject "& namefield &" = '' "& cn_name &" '' "rs.open sql, conn, 1,1if rs.eof thenResponse.write (" <ภาษาสคริปต์ = javascript> การแจ้งเตือน ("" ไม่มีสมาชิกนี้โปรดยืนยันว่า เซสชัน ("cn_name") = rs ("" & namefield & "") response.redirect (reurl) elseresponse.write ("<ภาษาสคริปต์ = javascript> การแจ้งเตือน (" "การเตือนความจำและรหัสผ่านของคุณไม่ตรงกับความสนใจ
[รหัส]
คำอธิบายพารามิเตอร์:
chk_regist (requestName, requestpwd, tablename, namefield, pwdfield, reurl)
RequestName คือชื่อควบคุมอินพุตที่ยอมรับชื่อที่ป้อนในหน้า HTML
RequestPwd เป็นชื่อของการควบคุมอินพุตที่ยอมรับรหัสผ่านที่ป้อนในหน้า HTML
Tablename เป็นชื่อของตารางที่บันทึกข้อมูลการลงทะเบียนในฐานข้อมูล
NameField เป็นชื่อฟิลด์ที่เก็บชื่อผู้ใช้ในตารางข้อมูลนี้
PWDField เป็นชื่อฟิลด์ของรหัสผ่านของผู้ใช้ในตารางข้อมูลนี้
reurl เป็นหน้าเว็บที่กระโดดหลังจากเข้าสู่ระบบอย่างถูกต้อง
ตัวอย่างการอ้างอิงมีดังนี้:
<%โทร chk_regist ("b_name", "b_pwd", "cn_admin", "cn_name", "cn_pwd", "admin.asp")%>
2. มักจะเป็นไปได้ที่จะตัดสินสถานะปัจจุบันของบางสิ่งมักจะเป็นฟิลด์ (ประเภทตัวเลขค่าเริ่มต้นคือ 0)
ผลกระทบของการสลับสถานะทำได้โดยการปรับเปลี่ยนค่าของฟิลด์นี้ ดังนั้นฉันจึงทำฟังก์ชั่นอื่นเพื่อทำให้มันง่ายสำหรับตัวเอง
<%ฟังก์ชั่น pvouch (tablename, fildname, autoidname, indexid) Dim FilterValueset rs = server.createObject ("adodb.recordset") sql = "เลือก * จาก" & tablename & "โดย AutidName &" = "& indexidrs.open sql FilterValue = 0 THEFILDVALUE = 1ELSEFILDVALUE = 0END IFRS ("" & fildName & "") = fildValuers.UpDaters.close Set RS = ฟังก์ชันไม่มีอะไร
คำอธิบายพารามิเตอร์:
pvouch (tablename, fildname, autoidname, indexid)
ชื่อตาราง Tablename ในฐานข้อมูลที่อยู่
FilmName สิ่งนี้ใช้เพื่อระบุชื่อฟิลด์ของสถานะ (ประเภทฟิลด์เป็นตัวเลข)
ชื่อการกำหนดหมายเลขอัตโนมัติของ AutoidName ในตารางนี้
indexid ใช้เพื่อแก้ไขค่าหมายเลขอัตโนมัติที่สอดคล้องกันของสถานะ
ตัวอย่างการอ้างอิงมีดังนี้:
<%dowhat = request.querystring ("dowhat") p_id = cint (request.querystring ("p_id")) ถ้า dowhat = "tj" และ p_id <> "" thencall pvouch ("cn_products", "p_vouch" จากนั้น%>> แนะนำ <%อื่น%>> ยกเลิกคำแนะนำ <%end ถ้า%>
3. เขียนเว็บไซต์สำหรับองค์กรขนาดเล็กและขนาดกลางจำนวนมาก โดยทั่วไปการแสดงผลผลิตภัณฑ์เป็นโครงการขนาดใหญ่ดังนั้นหน้าเว็บที่ทำแตกต่างกัน
ไม่กี่คนที่ถูกจัดเรียงในแนวนอนหรือมีบางคนจัดเรียงในแนวตั้งหรือแม้แต่สถานีทั้งหมดก็ต้องโยนและหมุนหลายครั้งซึ่งเป็นปัญหาและเหนื่อยมาก
เพียงแค่เขียนฟังก์ชั่นเพื่อบรรเทามันดังนั้นมันจึงกลายเป็นสิ่งต่อไปนี้
<%ฟังก์ชั่น showpros (tablename, topnum, fildname, loopnum, typepenum) set rs = server.createObject ("adodb.recordset") sql = "select top" & topnum & "จาก" & tablenames.open sql, conn, 1,1if Moment ") elseresponse.write (" ") สำหรับ i = 1 ถึง rs.recordcountif (i mod loopnum = 1) thenResponse.write" "end ifselect case typenumcase" 1 "response.write (" ") response.write (rs (" "& fildname &" ")) การตอบสนอง (" """"งคำตอบ - - - - - - ") response.write (" ") end selectif (i mod loopnum = 0) thenResponse.write" "สิ้นสุด ifrs.movenextnextresponse.write (" ") สิ้นสุด ifrs.close set rs = ฟังก์ชันไม่มีอะไร
พารามิเตอร์คำอธิบาย: showpros (tablename, topnum, filmname, loopnum, typepenum)
PRO ซึ่งเลือกประเภทของผลิตภัณฑ์
topnum หมายถึงจำนวนเร็กคอร์ดที่สกัด
Fildname แสดงถึงฟิลด์ที่แสดงโดยการดีบัก พารามิเตอร์นี้สามารถละเว้นได้เมื่อใช้ในรายละเอียดและใช้โดยตรงภายในฟังก์ชัน
loopnum แสดงจำนวนระเบียนต่อแถวของลูปที่แสดง
Typenum แสดงถึงวิธีการแสดงวงกลม: ปัจจุบันมีสองหมวดหมู่คือการแสดงผลแบบขนานในแนวนอนและแนวตั้งที่แตกต่างกันในแนวตั้งของแถวบันทึกข้อมูลเดียวกัน
ตัวอย่างการอ้างอิงมีดังนี้:
<%ถ้า request.form ("ส่ง") <> "" thentopnum = request.form ("topnum") loopnum = request.form ("loopnum") typenum = request.form ("typenum") elsetopnum = 8loopnum = 2TyPenUM = 1 showpros ("cn_products", topnum, "p_name", loopnum, typenum)%>
ข้างต้นเป็นเนื้อหาทั้งหมดของบทความนี้ ฉันหวังว่าเนื้อหาของบทความนี้จะช่วยในการศึกษาหรือทำงานของคุณ หากคุณมีคำถามใด ๆ คุณสามารถฝากข้อความไว้เพื่อสื่อสาร ขอบคุณสำหรับการสนับสนุนจากช่องเทคโนโลยีใหม่ที่ถูกหรือผิด!