万博システムのニュースシステムに改ページ機能を追加します。
4362 ワード
万博システムのニュースシステムに改ページ機能を追加します。データベースを変更する必要はなく、ファイルを変更すればいいです。バックグラウンドの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></>