ASP长文章分页显示思路及页码条显示新思路

这两天利用空闲时间编程序，琢摩了一下关于长文章分页以及页码条的简单实现方法。72h中国设计秀

思路是VBSCRipT的。72h中国设计秀

72h中国设计秀
CurrentPage=Request.QueryString("page")72h中国设计秀
'CurrentPage是当前页的意思72h中国设计秀

PageCount = Int(Len(Content)/SIZE) + 172h中国设计秀
'Content是长文章内容72h中国设计秀
'SIZE是每一页显示字数72h中国设计秀
'PageCount是最后一页的页码72h中国设计秀

START=Cint((CurrentPage-1)*SIZE+1)72h中国设计秀
'START是每一页的启始字数72h中国设计秀

If START<1 Then START=172h中国设计秀
Content=Mid(Content,START,SIZE)72h中国设计秀
'以上截取出来每一页的文字72h中国设计秀

'下面是显示页码条，胡想的，不过挺简单的，也挺实用。。。我觉得用于一般的分页够了。72h中国设计秀
'PAGEBAR_COUNT的意思是每一次显示多少个页码，不太准的，因为我除二取整了（咳，差不多就行了，呵呵）72h中国设计秀
PageBar="<br/><a href="""&FileName&"?act=View&id="&ID&"&Page=1"">[<<]</a>"72h中国设计秀
For i=CurrentPage-Cint(PAGEBAR_COUNT/2) to CurrentPage+Cint(PAGEBAR_COUNT/2)72h中国设计秀
If i>0 and i<=PageCount Then  PageBar=PageBar&"<a href="""&FileName&"?act=View&id="&ID&"&Page="&i&""">["&i&"]</a>"72h中国设计秀
Next72h中国设计秀
PageBar=PageBar&"<a href="""&FileName&"?act=View&id="&ID&"&Page="&PageCount&""">[>>]</a>"72h中国设计秀

出处：Sipo Blog72h中国设计秀
http://www.dc9.cn/post/272.html72h中国设计秀