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

2008-02-23 05:32:48来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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

思路是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>"

出处:Sipo Blog
http://www.dc9.cn/post/272.html

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:flash和asp分页的一点心得

下一篇:Excel数据导入到Access,Sql Server中示例代码