實(shí)現(xiàn)長(zhǎng)文章分頁(yè)和頁(yè)碼條顯示的經(jīng)驗(yàn)分享
本文章是關(guān)于作者的一個(gè)小經(jīng)驗(yàn)心得，關(guān)于長(zhǎng)文章分頁(yè)顯示思路及頁(yè)碼條顯示新思路 ，希望能給大家?guī)?lái)幫助或啟發(fā)。
思路是VBSCRIPT的。
CurrentPage=Request.QueryString("page")
'CurrentPage是當(dāng)前頁(yè)的意思
PageCount = Int(Len(Content)/SIZE) + 1
'Content是長(zhǎng)文章內(nèi)容
'SIZE是每一頁(yè)顯示字?jǐn)?shù)
'PageCount是最后一頁(yè)的頁(yè)碼
START=Cint((CurrentPage-1)*SIZE+1)
'START是每一頁(yè)的啟始字?jǐn)?shù)
If START<1 Then START=1
Content=Mid(Content,START,SIZE)
'以上截取出來(lái)每一頁(yè)的文字
'下面是顯示頁(yè)碼條，胡想的，不過(guò)挺簡(jiǎn)單的，也挺實(shí)用。。。我覺(jué)得用于一般的分頁(yè)夠了。
'PAGEBAR_COUNT的意思是每一次顯示多少個(gè)頁(yè)碼，不太準(zhǔn)的，因?yàn)槲页≌耍ǹ�，差不多就行了，呵呵�?br />PageBar="<br/><a href="""&FileName&"?act=View&id="&ID&"&Page=1"">[<<]</a>"
For i=CurrentPage-Cint(PAGEBAR_COUNT/2) to CurrentPage+Cint(PAGEBAR_COUNT/2)
If i>0 and i<=PageCount Then PageBar=PageBar&"<a href="""&FileName&"?act=View&id="&ID&"&Page="&i&""">["&i&"]</a>"
Next
PageBar=PageBar&"<a href="""&FileName&"?act=View&id="&ID&"&Page="&PageCount&""">[>>]</a>"
