ต่อไปนี้เป็นส่วนของรหัส: - - 'ชื่อกระบวนการ: showcorrelative 'ฟังก์ชั่น: แสดงบทความที่เกี่ยวข้อง 'พารามิเตอร์: articlenum ---- มีกี่บทความที่แสดงมากที่สุด 'Titlelen ---- จำนวนอักขระในชื่อตัวละครภาษาจีนหนึ่งตัว = สองอักขระภาษาอังกฤษ - Sub Showcorrelave (Articlenum, Titlelen) Dim Rs, SQL สลัว strkey, arrkey, i ถ้า articlenum> 0 และ articlenum <= 100 แล้ว SQL = เลือก Top & Articlenum อื่น SQL = เลือก 5 อันดับแรก สิ้นสุดถ้า 'ใช้สัญลักษณ์เพื่อแบ่งคำหลัก strkey = mid (rs (key), 2, len (rs (key))-2) ถ้าเป็นคำแนะนำ (strkey, |)> 1 แล้ว arrkey = split (strkey, |) strkey = ((คีย์ชอบ '% | & arrkey (0) & |%') สำหรับ i = 1 ถึง Ubound (arrkey) strkey = strkey & หรือ (คีย์ชอบ '% | & arrkey (i) & |%') ต่อไป strkey = strkey &) อื่น strkey = (key like '% | & strkey & |%') สิ้นสุดถ้า sql = & id, ชื่อ, ผู้แต่ง, วันที่, hits, l.layoutfilename จากบทความ A layout เข้าร่วม l. l.layoutid = layoutid ที่ลบ = false และผ่าน = true a nd & strkey & id <> & id & order order โดย id desc ตั้งค่า rs = const.execute (SQL) ถ้า titlelen <0 หรือ titlelen> 255 แล้ว tintlelen = 50 ถ้า Rs.Bof และ Rs.EOF แล้ว Response.write ไม่มีบทความที่เกี่ยวข้อง อื่น ทำในขณะที่ไม่ใช่ RS.EOF Response.write <a href = '& rs (layoutfilename) &? id = & rs (id) &' title = 'ชื่อบทความ: & rs (ชื่อ) เวลา: & rs (วันที่) & vbcrlf & คลิก: & rs (ฮิต) & '> & gottopic (rs (ชื่อ), titlelen) & </a> Rs.Movenext วง สิ้นสุดถ้า Rs.close ตั้งค่า rs = ไม่มีอะไร สิ้นสุดย่อย - |
หลังจากกำหนดกระบวนการนี้แล้วแทนที่เครื่องหมายเทมเพลตในไฟล์ของหน้าคงที่
(เช่น: htmlmake.asp)
| ต่อไปนี้เป็นส่วนของรหัส: Pencat = แทนที่ (Pencat, [Xianghuanlist], Showcorrelative (5,20)) |
สิ่งนี้จะสร้างหน้าคงที่พร้อมรายการบทความที่เกี่ยวข้อง!
ส่วนสีแดงเป็นคำสั่งหลักที่สามารถปลูกถ่ายได้เท่านั้น
ต่อไปนี้เป็นส่วนของรหัส: - - 'ชื่อกระบวนการ: showcorrelative 'ฟังก์ชั่น: แสดงบทความที่เกี่ยวข้อง 'พารามิเตอร์: articlenum ---- มีกี่บทความที่แสดงมากที่สุด 'Titlelen ---- จำนวนอักขระในชื่อตัวละครภาษาจีนหนึ่งตัว = สองอักขระภาษาอังกฤษ - Sub Showcorrelave (Articlenum, Titlelen) Dim Rs, SQL สลัว strkey, arrkey, i ถ้า articlenum> 0 และ articlenum <= 100 แล้ว SQL = เลือก Top & Articlenum อื่น SQL = เลือก 5 อันดับแรก สิ้นสุดถ้า 'ใช้สัญลักษณ์เพื่อแบ่งคำหลัก strkey = mid (rs (key), 2, len (rs (key))-2) ถ้าเป็นคำแนะนำ (strkey, |)> 1 แล้ว arrkey = split (strkey, |) strkey = ((คีย์ชอบ '% | & arrkey (0) & |%') สำหรับ i = 1 ถึง Ubound (arrkey) strkey = strkey & หรือ (คีย์ชอบ '% | & arrkey (i) & |%') ต่อไป strkey = strkey &) อื่น strkey = (key like '% | & strkey & |%') สิ้นสุดถ้า sql = & id, ชื่อ, ผู้แต่ง, วันที่, hits, l.layoutfilename จากบทความ A layout เข้าร่วม l. l.layoutid = layoutid ที่ลบ = false และผ่าน = true a nd & strkey & id <> & id & order order โดย id desc ตั้งค่า rs = const.execute (SQL) ถ้า titlelen <0 หรือ titlelen> 255 แล้ว tintlelen = 50 ถ้า Rs.Bof และ Rs.EOF แล้ว Response.write ไม่มีบทความที่เกี่ยวข้อง อื่น ทำในขณะที่ไม่ใช่ RS.EOF Response.write <a href = '& rs (layoutfilename) &? id = & rs (id) &' title = 'ชื่อบทความ: & rs (ชื่อ) เวลา: & rs (วันที่) & vbcrlf & คลิก: & rs (ฮิต) & '> & gottopic (rs (ชื่อ), titlelen) & </a> Rs.Movenext วง สิ้นสุดถ้า Rs.close ตั้งค่า rs = ไม่มีอะไร สิ้นสุดย่อย - |
หลังจากกำหนดกระบวนการนี้แล้วแทนที่เครื่องหมายเทมเพลตในไฟล์ของหน้าคงที่
(เช่น: htmlmake.asp)
| ต่อไปนี้เป็นส่วนของรหัส: Pencat = แทนที่ (Pencat, [Xianghuanlist], Showcorrelative (5,20)) |
สิ่งนี้จะสร้างหน้าคงที่พร้อมรายการบทความที่เกี่ยวข้อง!
ส่วนสีแดงเป็นคำสั่งหลักที่สามารถปลูกถ่ายได้เท่านั้น