长文章分页显示思路及页码条显示新思路
这两天利用空闲时间编程序，琢摩了一下关于长文章分页以及页码条的简单实现方法。<BR><BR>思路是VBSCRIPT的。<BR><BR><BR>CurrentPage=Request.QueryString("page")<BR>'CurrentPage是当前页的意思<BR><BR>PageCount = Int(Len(Content)/SIZE) + 1<BR>'Content是长文章内容<BR>'SIZE是每一页显示字数<BR>'PageCount是最后一页的页码<BR><BR>START=Cint((CurrentPage-1)*SIZE+1)<BR>'START是每一页的启始字数<BR><BR>If START<1 Then START=1<BR>Content=Mid(Content,START,SIZE)<BR>'以上截取出来每一页的文字<BR><BR>'下面是显示页码条，胡想的，不过挺简单的，也挺实用。。。我觉得用于一般的分页够了。<BR>'PAGEBAR_COUNT的意思是每一次显示多少个页码，不太准的，因为我除二取整了（咳，差不多就行了，呵呵）<BR>PageBar="<BR><A href='http://www.asp1.com.cn/ArticleView/"""&FileName&"?act=View&id="&ID&"&Page=1""'><FONT color=#0000ff>[<<]</FONT></A>"<BR>For i=CurrentPage-Cint(PAGEBAR_COUNT/2) to CurrentPage+Cint(PAGEBAR_COUNT/2)<BR>If i>0 and i<=PageCount Then PageBar=PageBar&"<A href='http://www.asp1.com.cn/ArticleView/"""&FileName&"?act=View&id="&ID&"&Page="&i&"""'><FONT color=#0000ff>["&i&"]</FONT></A>"<BR>Next<BR>PageBar=PageBar&"<A href='http://www.asp1.com.cn/ArticleView/"""&FileName&"?act=View&id="&ID&"&Page="&PageCount&"""'><FONT color=#0000ff>[>>]</FONT></A>"<BR><BR>出处：Sipo Blog<BR>http://www.dc9.cn/post/272.html<BR></FONT>页:
[1]