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

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

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


 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值