ก่อนอื่นฉันขอขอบคุณ V37 Banzhu ที่ช่วยฉัน โซลูชันนี้แก้ปัญหาการแสดง "บทความก่อนหน้าบทความถัดไป" และบทความที่เกี่ยวข้องและโพสต์ไว้เพื่อให้ทุกคนแบ่งปัน
ฉันเห็นโพสต์ที่ฉันใช้ ID+1 และ ID-1 เพื่อตัดสิน "บทความก่อนหน้าและบทความถัดไป" ในระหว่างการใช้งานฉันพบปัญหา: เมื่อลบบทความในฐานข้อมูล ID จะไม่ต่อเนื่อง หากใช้ ID+1 และ ID-1 เพื่อตัดสินบันทึกจะไม่พบ ในโปรแกรมนี้ ID ของบทความถัดไปพบได้โดยการสอบถามบันทึกแรกที่ใหญ่กว่า ID ปัจจุบันและบันทึกแรกที่เล็กกว่า ID ปัจจุบันเพื่อค้นหา ID ของบทความก่อนหน้า ด้วยวิธีนี้แม้ว่า ID จะไม่ต่อเนื่อง แต่ก็สามารถแสดงได้ตามปกติ
สำหรับการแสดงบทความที่เกี่ยวข้องให้เพิ่มฟิลด์ BoardID ในตารางข้อมูลเพื่อแยกความแตกต่างของคอลัมน์บทความที่แตกต่างกัน เพิ่มหมายเลข BoardID ทุกครั้งที่คุณเพิ่มบทความใหม่ เมื่อแสดงบทความให้สอบถามฐานข้อมูลตาม BoardID เพื่อแสดงบทความที่เกี่ยวข้อง
ฟิลด์ในบทความตารางข้อมูลประกอบด้วย ID, BoardID, ชื่อ, เนื้อหา, ผู้แต่ง, AddTime
การคัดลอกรหัสมีดังนี้:
<!-เริ่มโปรแกรม->
'กำหนดฟังก์ชัน THENEXT เพื่อค้นหา ID ของบทความถัดไป หากระเบียนปัจจุบันเป็นระเบียนสุดท้ายข้อความเอาต์พุต "ไม่" คือ
-
functionthenext
newRs = server.createObject ("adodb.recordset"))
sql = "selecttop1*fromarticlesid>" & a1 & "orderbyid"
setNewrs = conn.execute (SQL)
ifnewrs.eofthen
Response.write ("ไม่ใช่")
อื่น
a2 = newRs ("id")
Response.write ("<ahref = 'view.asp? id =" & a2 & "'> บทความถัดไป </a>")
endif
endfunction
-
'กำหนดฟังก์ชัน Thehead เพื่อค้นหา ID ของบทความถัดไป หากระเบียนปัจจุบันเป็นระเบียนแรกข้อความเอาต์พุต "ไม่" คือ
-
ฟังก์ชั่นเฮด
headrs = server.createObject ("adodb.recordset"))
sql = "selecttop1*fromarticlesid <" & a1 & "orderbyiddesc"
setheadrs = conn.execute (SQL)
ifheadrs.eofthen
Response.write ("ไม่ใช่")
อื่น
a0 = headrs ("id")
Response.write ("<ahref = 'view.asp? id =" & a0 & "'> บทความก่อนหน้า </a>")
endif
endfunction
-
'ไฟล์การเชื่อมต่อฐานข้อมูล
<!-#includefile = "conn.asp"->
'รับรหัสผ่านเพื่อแสดงชื่อผู้เขียนและเนื้อหาของบทความ
-
id = คำขอ ("id")
sql = "เลือก*fromarticlesid =" & id
setRs = conn.execute (SQL)
-
<%beardId = RS ("BoardID")%>
<tite> ระบบบทความ-<%= rs ("title")%> </title> <bodyleftmargin = "0" topmargin = "0">
<!-#includit file = "top.asp"->
-
dowhilenotrs.eof
-
<TableWidth = "773" border = "0" cellpacing = "0" cellpadding = "0" allign = "center">
<tr>
<tdwidth = "576" Align = "left">
<TableWidth = "557" border = "0" cellpacing = "5" cellpadding = "4" align = "ซ้าย">