Pertama -tama, saya ingin mengucapkan terima kasih kepada V37 Banzhu karena telah membantu saya. Solusi ini memecahkan masalah menampilkan "artikel sebelumnya artikel berikutnya" dan artikel terkait, dan mempostingnya untuk semua orang untuk dibagikan.
Saya melihat posting yang saya gunakan ID+1 dan ID-1 untuk menilai "artikel sebelumnya dan artikel berikutnya". Selama penggunaan, saya menemukan masalah: Saat menghapus artikel dalam database, ID akan terputus. Jika ID+1 dan ID-1 digunakan untuk menilai, catatan tidak akan ditemukan. Dalam program ini, ID artikel berikutnya ditemukan dengan menanyakan catatan pertama lebih besar dari ID saat ini, dan catatan pertama lebih kecil dari ID saat ini untuk menemukan ID dari artikel sebelumnya. Dengan cara ini, bahkan jika ID tidak kontinu, itu dapat ditampilkan secara normal.
Sedangkan untuk tampilan artikel terkait, tambahkan bidang boardid di tabel data untuk membedakan kolom artikel yang berbeda. Tambahkan nomor boardid setiap kali Anda menambahkan artikel baru. Saat menampilkan artikel, query database sesuai dengan boardID untuk menampilkan artikel yang relevan.
Bidang dalam artikel tabel data termasuk ID, boardID, judul, konten, penulis, addtime
Salinan kode adalah sebagai berikut:
<!-Program Mulai->
'Tentukan fungsi kemudian untuk menemukan ID dari artikel berikutnya. Jika catatan saat ini sudah menjadi catatan terakhir, teks output "tidak" adalah
<%
functionThenext
newrs = server.createObject ("adodb.recordset")
sql = "selecttop1*fromArticleswhereid>" & a1 & "orderbyid"
setNewrs = conn.execute (sql)
ifnewrs.eofthen
response.write ("not")
kalau tidak
a2 = newrs ("id")
response.write ("<ahref = 'view.asp? id =" & a2 & "'> artikel berikutnya </a>")
endif
fungsi endfungsi
%>
'Tentukan fungsi thead untuk menemukan ID artikel berikutnya. Jika catatan saat ini sudah menjadi catatan pertama, teks output "tidak" adalah
<%
functionThead
headrs = server.createObject ("adodb.recordset")
sql = "selecttop1*fromarticleswhereid <" & a1 & "orderyiddesc"
setheadrs = conn.execute (sql)
ifheadrs.eofthen
response.write ("not")
kalau tidak
A0 = headrs ("id")
response.write ("<ahref = 'view.asp? id =" & a0 & "'> artikel sebelumnya </a>")
endif
fungsi endfungsi
%>
'File Koneksi Basis Data
<!-#includeFile = "conn.asp"->
'Dapatkan ID yang disahkan untuk menampilkan penulis judul dan konten artikel
<%
id = request ("id")
sql = "SELECT*fromArticleswhereid =" & id
setRs = conn.execute (sql)
%>
<%boardid = rs ("boardid")%>
<title> Sistem Artikel-<%= rs ("title")%> </itement> <bodyleftmargin = "0" topmargin = "0">
<!-#includeFile = "top.asp"->
<%
Dowhilenotrs.eof
%>
<TableWidth = "773" Border = "0" CellPacing = "0" CellPadding = "0" Align = "Center">
<tr>
<tdwidth = "576" align = "left">
<TableWidth = "557" Border = "0" CellPacing = "5" CellPadding = "4" Align = "Left">