|
| 长文章分页显示及页码条显示 |
| 龙脉科技 [发布时间：2011-6-4] 已被阅读：次 |
|
|
这两天利用空闲时间编程式，琢摩了一下关于长文章分页及页码条的简单实现方法。
思路是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>"
|
|
| |
|
| >> 网站套餐 |
|
标准简洁型网站建设套餐
3800元
随着网络媒体的迅速普及，在您的卡片上印上个网址和企业邮箱已经是不可不做的工作 |
|
外贸企业网站套餐
6800元
外贸企业专页解决方案，专业技术，专业代码，服务百余客户，给您的国外客户一个快速、友好的网站界面 |
|
|
