データベースを変更せずに、ファンボシステムのニュースシステムにページング機能を追加し、ファイルを変更するだけで問題ありません。
バックグラウンドWebEditerに挿入ページブレークを追加すると、さらに完璧になります。私はまだこれを追加していません。
この例は、バックグラウンドでニュースを入力するときに、ページブレーク文字を挿入します。
コードは次のとおりで、詳細な説明があります
newshow.asp
<！ - ＃includefile = "siteinfo.asp" - >
<html>
<head>
<title> <％= sitename％> </title>
<metahttp-equiv = "content-type" c>
<linkhref = "images/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 = "left" valign = "top"> <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
それ以外
Response.Write「レコードは見つかりません。一般的なソースエラーが発生しました。管理者に連絡してください！」