快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

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

思路是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>"
返回类别: 教程
上一教程: FSO操作示例
下一教程: 将ASP纪录集输出成N列表格的方式

您可以阅读与"长文章分页显示思路及页码条显示新思路"相关的教程:
· 用ASP实现长文章用分页符来分页显示
· 1栏分页显示(附显示的形式前页,后页)
· ASP中关于帖子分页显示的基本方式
· 一个超强通用的分页显示函数
· ADO存取数据时如何实现留言记录的分页显示
    微笑服务 优质保证 索取样品