万博システムのニュースシステムに改ページ機能を追加します。


万博システムのニュースシステムに改ページ機能を追加します。データベースを変更する必要はなく、ファイルを変更すればいいです。バックグラウンドのWebediterを改ページ符を追加すれば、より完璧です。私はまだこれを追加していません。本例はバックグラウンドでニュースを入力する時、改ページが必要な位置に改ページ符を挿入します。 {$同前page$ コードは以下の通りです。newsshow.asp<!--啱include file=「siteinfo.asp」<<%=sitense%></ TITLE><META HTTP-EQUIV=「Content-Type」 C><link href=「images/CSS.css」 type=text/css rel=styless heet></HEAD><body  topmagin=「0」 width=780 border="0" cell pacing="0" cell padding="0"  <tr>    <td Colspan=「3」<!--啯啱include file=「top.asp」</td>  </tr>  <tr>    <td width=「145」 align=「left」 valign=「top」<!--嚖include file=「left.asp」 --></td>    <td align=「left」 valign=「top」 ><テーブル width=「625」  border="0" cell pacing="0" cell padding="0"        <tr>          <td width="17" height="20" </td>          <td width=「598」 </td>          <td width="10" </td>        </tr>        <tr >           <td width=「17」><% idd=trim(request.querystring(「id」)             セット rsr=server.creat object(「adodb.recordset」)             sql=「select」 * from ニュース where  Put=true and id="&idd             rsr.open sql,conn,1,3    if not rsr.eof then    Newcontent=rsr(「Newcontent」)    Newtitle=rsr(「Newtitle」)                Putman=rsr(「Putman」)    kig=rsr(「kig」)    kig=kig+1    addtime=rsr(「addtime」)       rsr(「kig」)=kig    rsr.udate    else    レスポンス.Write「記録が見つからないので、ガイドエラーが発生しました。管理者に連絡してください。」    end if   'ここで受信した改ページパラメータを処理して、何ページ目の内容を表示しますか?以下のこの2つは、pageというパラメータがないと変数pageNumに1ページ目の値を表示させます。0 If Request(「page」)=「」 The n pageNum=0'でないと変数に転送されたpageのパラメータとして与えられ、他のページのElse pageNum=Request Endを表示します。 if%><%'はオプションでUBBコードを実行すれば、下記のコード'rs("NoUBB"を追加することができます)はデータベース内のUBB禁止のフィールドで、0は無効となり、1は'Ifを実行することです。 rsr(「NoUBB」)=0 then'は文章の内容とつながるエラーを避けるために、Replace関数を使って改ページコード「$」_page$}の前後に全角を加えたrs(content)はデータベース内の本文のフィールドです。ここにUBBを追加したり、UBB Contront=Replace(Newcontent)を禁止したりします。page$","{$}_page$")'Elsef rsr(「NoUBB」)=1 then'Content=Replace(クラブ),「{$}_page$","{$}_page$")'End if%></td>          <td height=「22」 align=「センター」 class=「NEWS」title"<%=Newtitle%>< br/><hr size="1" ノート  カラー=「33166;6666」></td>          <td width="10" </td>        </tr>        <tr>          <td ローソンパン="3" </td>          <td height=「303」 valign=「top」 ><% 'ここがポイントです。私達はsplit関数で文章を区分して取り出して変数content ContintStr=splitに預け入れます。page$'''は先ほどURLパラメータから取得した表示するその変数に従って、Forページを巡回表示します。 i=pageNum ト pageNum%<!--ここでは文章の本文--<%=ConttentStr(i) %> <% 次のテキスト %></td>          <td ローソンパン="3" </td>        </tr>        <tr>          <td height=「8」 valign="top"  </td>        </tr>        <tr>          <td height=「8」 align=「センター」 valign=「top」本文は「%」の区切りのところに分けられています。oundで文章を取って、全部で何ページに分けられていますか?ここは0から始まるので、総ページ数は1 Forを加えなければなりません。 p = 0 ト uound'リンクはまだ本ページですが、記事IDパラメータの後にもう一つのページのパラメータを追加します。  <a. href=「newsshow.asp?ID=“%=request(")%”&page=“%=p%”」 クラス=""<%=p+1%></a><% 次のテキスト %>ページ</td>        </tr>        <tr>          <td height="40" </td>          <td height=「60」 valign=「bottom」 width=100%  border="0" cell padding="5" cell pacing="1" bgカラー=「落CECECECECECECE」            <tr bgカラー=「钻FFFF」 >               <td width=「16%」 align=「right」 bg[/ color][/url]「菗CECECECECE」 >髪を発する 布  者:</td>              <td width=「20%」 bgカラー=「钻FFFF」 <%=Putmann%</td>              <td width=「15%」 align=「right」 bg[/ color][/url]追加時間:[/td]              <td width=「20%」 bgカラー=「钻FFFF」 <%=addtime%</ td>              <td width=「15%」 align=「right」 bg[/ color][/url]点  をクリックします  数:</td>              <td width=「15%」<=kig%></ td>            </tr>          </テーブル></td>          <td> </td>        </tr>    </テーブル></td>    <td> </td>  </tr>  <tr>    <td Colspan=「3」<!--啯啱include file=「bot.asp」--</td>  </tr></table></body></>