实现长文章分页和页码条显示的经验分享

      本文章是关于作者的一个小经验心得，关于长文章分页显示思路及页码条显示新思路 ，希望能给大家带来帮助或启发。

      思路是VBSCRIPT的。

      CurrentPage=Request.QueryString("page")
      'CurrentPage是当前页的意思

      PageCount = Int(Len(Content)/SIZE) + 1
      'Content是长文章内容
      'SIZE是每一页显示字数
      'PageCount是最后一页的页码

      START=Cint((CurrentPage-1)*SIZE+1)
      'START是每一页的启始字数

      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>"