แนะนำ: ต้องมีสำหรับการเรียนรู้หน้าเว็บแบบไดนามิก ASP: 38 ฟังก์ชั่นที่ใช้กันทั่วไป 1. ฟังก์ชันอาร์เรย์ () ฟังก์ชั่น: สร้างรูปแบบตัวแปรอาร์เรย์: พารามิเตอร์อาร์เรย์ (รายการ): รายการคือแต่ละคอลัมน์ตัวเลขในตัวแปรอาร์เรย์โดยมีตัวอย่างการเว้นวรรคของเครื่องหมายจุลภาค: <% i = อาร์เรย์ (1,2,3 & Quo
เนื่องจากพื้นที่ของฉันมี จำกัด ฉันจึงไม่สามารถสร้างหน้าคงที่ทั้งหมดในแบทช์ในครั้งเดียวดังนั้นฉันจึงเขียนโปรแกรมเล็ก ๆ เพื่อแบ่งปันกับคุณ โปรแกรมค่อนข้างง่ายดังนั้นอย่าหัวเราะกับผู้เชี่ยวชาญ! รหัสนี้เสียเวลา รหัสมีดังนี้
<!-#รวมไฟล์ = conn.asp-> <Html> <head> <title> สร้างหน้า </title> <meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312> <link href = style.css type = text/css rel = stylesheet> <Meta Content = MSHTML 6.00.2900.3020 NAME = Generator> </head> <body bottommargin = 0 leftmargin = 0 topmargin = 0 Rightmargin = 0> <br style = overflow: ซ่อน; ความสูงของสาย: 3px> - DIMID id = cint (request.querystring (id)) ถ้า id = จากนั้น id = 1 อื่น id = cint (request.querystring (id)) สิ้นสุดถ้า สลัวจำนวนทั้งหมด SQL = เลือก ID จากคำสั่งซื้อตารางโดย ID DESC ตั้งค่า rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1,1 Rs.movefirst ถ้าไม่ใช่ rs.eof แล้ว TotalNumber = Rs.RecordCount สิ้นสุดถ้า ในการรับหมายเลขทั้งหมดคุณสามารถใช้รหัสแทน ฉันเชื่อว่าเพื่อนสามารถแก้ปัญหานี้ได้ด้วยตัวเอง Rs.close ตั้งค่า rs = ไม่มีอะไร Response.write <br> <br> & vbnewline Response.write <width table = '400' border = '0' align = 'center' cellpadding = '0' cellpacing = '0'> & vbNewline response.write <tr> & vbNewline response.write <td height = '50 '> total color =' blue '> <b> & totalNumber & </b> </font> Response.write </tr> & vbNewline Response.write </brenewline Response.flush ถ้า id> totalNumber แล้ว Response.write ขอแสดงความยินดีกับการดำเนินการที่ประสบความสำเร็จของคุณ! Response.flush สิ้นสุดถ้า creat (id) id = id 1 Response.write <meta http-equiv = refresh content = 1; url =? id = & id &> - </body> </html> - ฟังก์ชั่น creat (id) sql = select * จากตารางที่ id = & id ตั้งค่า rs = conn.execute (SQL) ชื่อหรี่ ชื่อ = rs (ชื่อ) conn.execute (SQL) Rs.close ตั้งค่า rs = ไม่มีอะไร สลัว fso หรี่แสง znwl งานศิลปะสลัว DIM FW ตั้งค่า fso = createObject (scripting.filesystemobject) ตั้งค่า znwl = fso.opentextfile (server.mappath (หน้าแม่แบบ)) art = znwl.readall znwl.close art = แทนที่ (art, {$ name $}, ชื่อ) ตั้งค่า fw = fso.createtextfile (server.mappath (ตำแหน่งที่เก็บหน้าและชื่อหน้าและชื่อหน้า) จริง) fw.writeline ศิลปะ fw.close ตั้งค่า fso = ไม่มีอะไร ฟังก์ชันสิ้นสุด - |
มีวิธีอื่นที่เร็วกว่าวิธีการข้างต้น แต่มันใช้ซีพียูจำนวนมาก ฉันมีปัญหากับพื้นที่ของฉันโดยใช้วิธีการต่อไปนี้
<!-#รวมไฟล์ = conn.asp-> <Html> <head> <title> สร้างหน้า </title> <meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312> <link href = style.css type = text/css rel = stylesheet> <Meta Content = MSHTML 6.00.2900.3020 NAME = Generator> </head> <body bottommargin = 0 leftmargin = 0 topmargin = 0 Rightmargin = 0> <br style = overflow: ซ่อน; ความสูงของสาย: 3px> <table border = 1 width = 100% id = table1> <tr> <td> - Dim allid, ppp, id, totalnum SQL = เลือก * จากคำสั่งซื้อตารางโดย ID DESC ตั้งค่า rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1,1 ถ้าไม่ใช่ rs.eof แล้ว ทำในขณะที่ไม่ใช่ RS.EOF ถ้า allid = จากนั้น allid = rs (id) ellid = allid &; & rs (id) Rs.Movenext วง อื่น ถ้า Rs.Bof และ Rs.EOF แล้ว Response.TOND ยังไม่พบบทความ! สิ้นสุดถ้า สิ้นสุดถ้า Rs.close ตั้งค่า rs = ไม่มีอะไร allid =; allid PPP = แยก (allid ,;) TotalNum = Ubund (PPP) สำหรับ id = 1 ถึง TotalNum เซสชัน (id) = เซสชัน (ID) 1 creat (id) Response.write กำลังสร้าง znwl_ & id & .htm ... <br> ต่อไป - </td> </tr> </table> </body> </html> - ฟังก์ชั่น creat (id) sql = select * จากตารางที่ id = & id ตั้งค่า rs = conn.execute (SQL) ชื่อหรี่ ชื่อ = rs (ชื่อ) conn.execute (SQL) Rs.close ตั้งค่า rs = ไม่มีอะไร สลัว fso หรี่แสง znwl งานศิลปะสลัว DIM FW ตั้งค่า fso = createObject (scripting.filesystemobject) ตั้งค่า znwl = fso.opentextfile (server.mappath (หน้าแม่แบบ)) art = znwl.readall znwl.close - art = แทนที่ (art, {$ name $}, ชื่อ) ตั้งค่า fw = fso.createtextfile (server.mappath (ตำแหน่งที่เก็บหน้าและชื่อหน้าและชื่อหน้า) จริง) fw.writeline ศิลปะ fw.close ตั้งค่า fso = ไม่มีอะไร ฟังก์ชันสิ้นสุด |
วิธีนี้เร็ว แต่พื้นที่ของคุณจะต้องไม่ จำกัด !-เครือข่ายอัจฉริยะ
วิธีการข้างต้นมีไว้สำหรับการอ้างอิงเท่านั้นและไม่ใช่เวอร์ชันล่าสุดที่ฉันแก้ไข แต่มันใช้งานง่ายอย่างแน่นอน
แชร์: ตัวอย่างเคล็ดลับ ASP: รหัสหลายบรรทัดแก้ปัญหาการป้องกันการส่งแบบฟอร์มซ้ำ ๆ ซ้ำ ๆ ในหลายกรณีมีความจำเป็นต้องป้องกันไม่ให้ฟอร์มเดียวกันถูกส่งหลายครั้ง วิธีการใช้งานของคนจำนวนมากนั้นค่อนข้างซับซ้อน (จำนวนรหัสเกินหลายสิบบรรทัด !!) ต่อไปนี้มีวิธีการที่ต้องใช้รหัสเพียงไม่กี่บรรทัดซึ่งช่วยป้องกันไม่ให้ผู้ใช้สามารถรีเฟรชการส่งหลายครั้งและใช้ปุ่มย้อนกลับเพื่อตรวจสอบแบบฟอร์มอีกครั้ง