データベースを変更せずに、ファンボシステムのニュースシステムにページング機能を追加し、ファイルを変更するだけで問題ありません。
バックグラウンド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「レコードは見つかりません。一般的なソースエラーが発生しました。管理者に連絡してください!」