Tambahkan fungsi paging ke sistem berita sistem wanbo, tanpa memodifikasi database, hanya mengubah file, dan tidak apa -apa.
Jika Anda menambahkan break halaman insert di WebEdeDiter latar belakang, itu akan menjadi lebih sempurna. Saya belum menambahkan ini.
Contoh ini adalah untuk memasukkan karakter break halaman: {＄ html_page ＄} Saat memasukkan berita di latar belakang.
Kode ini adalah sebagai berikut, dengan deskripsi terperinci
newshow.asp
<!-#includeFile = "siteInfo.asp"->
<Html>
<head>
<title> <%= Sitename%> </iteme>
<Metahttp-equiv = "tipe konten" c>
<linkhref = "gambar/css.css" type = text/cssrel = stylesheet>
</head>
<bodytopmargin = "0">
<TableWidth = "780" Border = "0" CellPacing = "0" CellPadding = "0">
<tr>
<tdcolspan = "3"> <!-#includeFile = "top.asp"-> </td>
</tr>
<tr>
<tdwidth = "145" align = "left" valign = "top"> <!-#includeFile = "left.asp"-> </td>
<tdalign = "kiri" valign = "atas"> <tableWidth = "625" border = "0" cellPacing = "0" cellpadding = "0">
<tr>
<tdwidth = "17" height = "20"> </td>
<tdwidth = "598"> </td>
<tdwidth = "10"> </td>
</tr>
<tr>
<tdwidth = "17"> <%idd = trim (request.querystring ("id"))
setRsr = server.CreateObject ("adodb.recordset")
sql = "SELECT*fromNewSwherePutout = trueandid =" & idd
rsr.opensql, Conn, 1,3
IFNOTRSR.EOFTHEN
NewContent = rsr ("newcontent")
Newtitle = rsr ("newtitle")
Putman = rsr ("putman")
kig = rsr ("kig")
kig = kig+1
addTime = rsr ("addTime")
rsr ("kig") = kig
rsr.update
kalau tidak
Response.write "Catatan tidak dapat ditemukan, kesalahan sumber umum telah terjadi. Silakan hubungi administrator!"