實現(xiàn)長文章分頁和頁碼條顯示的經驗分享

本文章是關于作者的一個小經驗心得，關于長文章分頁顯示思路及頁碼條顯示新思路 ，希望能給大家?guī)�來幫助或啟發(fā)。

思路是VBSCRIPT的。

CurrentPage=Request.QueryString("page")
'CurrentPage是當前頁的意思

PageCount = Int(Len(Content)/SIZE) + 1
'Content是長文章內容
'SIZE是每一頁顯示字數(shù)
'PageCount是最后一頁的頁碼

START=Cint((CurrentPage-1)*SIZE+1)
'START是每一頁的啟始字數(shù)

If START<1 Then START=1
Content=Mid(Content,START,SIZE)
'以上截取出來每一頁的文字

'下面是顯示頁碼條，胡想的，不過挺簡單的，也挺實用。。。我覺得用于一般的分頁夠了。
'PAGEBAR_COUNT的意思是每一次顯示多少個頁碼，不太準的，因為我除二取整了（咳，差不多就行了，呵呵）
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>"