亚洲R级中文无码,加勒比中文字幕无码一区,欧美人妻在现视频

主頁 > 知識庫 > 給萬博系統(tǒng)的新聞系統(tǒng)增加分頁功能[配有詳細(xì)說明]

給萬博系統(tǒng)的新聞系統(tǒng)增加分頁功能[配有詳細(xì)說明]

給萬博系統(tǒng)的新聞系統(tǒng)增加分頁功能,無需修改數(shù)據(jù)庫,只需改變一個(gè)文件,就可以了.
如果將后臺的Webediter增加一個(gè)插入分頁符,那就更完美了.我還沒加這個(gè).

本例是在后臺錄入新聞時(shí),在需要分頁的位置插入分頁符: {＄html_page＄} 就可以了.

代碼如下,有詳細(xì)說明
newsshow.asp

!--#include file="siteinfo.asp"-->
HTML>
HEAD>
TITLE>%=sitename%>/TITLE>
META HTTP-EQUIV="Content-Type" C>
link href="images/CSS.css" type=text/css rel=stylesheet>
/HEAD>
body  topmargin="0">
table width="780" border="0" cellspacing="0" cellpadding="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" >table width="625"  border="0" cellspacing="0" cellpadding="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"))
             set rsr=server.createobject("adodb.recordset")
             sql="select * from News where  Putout=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.update
    else
    response.Write"找不到記錄，發(fā)生導(dǎo)常錯誤，請聯(lián)系管理員！"
    end if
'這里要處理接收到的分頁參數(shù)，以此來進(jìn)行顯示第幾頁的內(nèi)容
'下面這兩句就是如果沒有page這個(gè)參數(shù)傳來就讓變量pageNum取顯示第一頁的值：0
If Request("page")="" Then
pageNum=0
'否則就給變量賦值為傳遞來的page里的參數(shù)，來顯示其他頁
Else
pageNum=Request("page")
End if
%>
%
'如果加了可選執(zhí)行UBB代碼，可以加上下面的代碼
'rs("NoUBB")是數(shù)據(jù)庫里關(guān)于禁用UBB的字段，0為禁用，1為執(zhí)行
'If rsr("NoUBB")=0 then
'為避免和文章內(nèi)容相連出現(xiàn)錯誤，用Replace函數(shù)把分頁代碼“{＄html_page＄}”的前后各加一個(gè)全角的
'rs("content")是數(shù)據(jù)庫里正文的字段，在這里加上UBB或者禁用UBB
Content=Replace(Newcontent,"{＄html_page＄}","　{＄html_page＄}　")
'Elseif rsr("NoUBB")=1 then
'Content=Replace((ubb(Newcontent)),"{＄html_page＄}","　{＄html_page＄}　")
'End if
%>/td>
          td height="22" align="center" class="NEWS_title">%=Newtitle%>br>
hr size="1" noshade  color="#666666">/td>
          td width="10"> /td>
        /tr>
        tr>
          td rowspan="3"> /td>
          td height="303" valign="top" >%
'這里就是關(guān)鍵了
'我們用split函數(shù)將文章分段取出存入變量content
ContentStr=split(Content,"{＄html_page＄}")
'按照剛才從URL參數(shù)中取得的要顯示那面的那個(gè)變量，就循環(huán)顯示一頁
For i=pageNum to pageNum
%>
!--這里將是文章正文內(nèi)容-->
%=ContentStr(i) %>
% Next %>/td>
          td rowspan="3"> /td>
        /tr>
        tr>
          td height="8" valign="top">  /td>
        /tr>
        tr>
          td height="8" align="center" valign="top">本文共分
%
'分頁的地方，用ubound(ContentStr)取得文章一共分為幾頁，注意這里是從0開始，所以總頁數(shù)需要加1
For p = 0 to ubound(ContentStr)
'鏈接還是本頁面，只不過文章ID參數(shù)后面還要加上一個(gè)分頁的參數(shù):page
%>
a href="newsshow.asp?ID=%=request("ID")%>page=%=p%>" class="">%=p+1%>/a>
% Next %>頁/td>
        /tr>
        tr>
          td height="40"> /td>
          td height="60" valign="bottom">table width="100%"  border="0" cellpadding="5" cellspacing="1" bgcolor="#CECECE">
            tr bgcolor="#FFFFFF" >
              td width="16%" align="right" bgcolor="#CECECE" >發(fā) 布  者：/td>
              td width="20%" bgcolor="#FFFFFF"> %=Putman%>/td>
              td width="15%" align="right" bgcolor="#CECECE">添加時(shí)間：/td>
              td width="20%" bgcolor="#FFFFFF"> %=addtime%>/td>
              td width="15%" align="right" bgcolor="#CECECE">點(diǎn)  擊  數(shù)：/td>
              td width="15%">%=kig%>/td>
            /tr>
          /table>/td>
          td> /td>
        /tr>
    /table>/td>
    td> /td>
  /tr>
  tr>
    td colspan="3">!--#include file="bot.asp"-->/td>
  /tr>
/table>
/body>
/html>

標(biāo)簽：家電維修咸陽昆明泰州溫州麗江鐵嶺昌都

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《給萬博系統(tǒng)的新聞系統(tǒng)增加分頁功能[配有詳細(xì)說明]》，本文關(guān)鍵詞給,萬博,系統(tǒng),的,新聞,增加,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。