asp长文章分页显示思路

作者:Sipo 来源:Sipo Blog 时间:2007-08-23 13:54:00 

asp之家注:长文章分页算是asp编程中一个比较经典单位问题,怎么分页,什么时候分页.方法挺多,有的是人为的加入分页标志,有的是程序自动加分页标志,根据字符长度来加标志,个人觉得还是人为加分页标志好用,虽然多花了时间,但是文章的连贯性也增强了,不会打断读者的思路。本文就介绍了后一种方法。

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

asp代码:


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
投稿

猜你喜欢

  • 模仿IE自动完成功能

    2010-03-18 15:51:00
  • SQL SERVER数据库开发之asp存储过程应用

    2008-05-19 12:55:00
  • NopCommerce架构分析(一)Autofac依赖注入类生成容器

    2023-07-11 21:20:27
  • 让goland支持proto文件类型的实现

    2024-05-25 15:12:24
  • 用python实现爬取奥特曼图片实例

    2022-09-23 00:25:18
  • Python递归及尾递归优化操作实例分析

    2022-06-17 16:09:10
  • 简单易懂的python环境安装教程

    2023-05-21 14:39:16
  • python3使用SMTP发送简单文本邮件

    2023-09-28 10:07:24
  • Python对接六大主流数据库(只需三步)

    2022-04-25 21:51:55
  • php 异常处理实现代码

    2023-11-14 23:47:12
  • Python学习之字典和集合的使用详解

    2022-11-01 19:54:21
  • jenkins配置163邮箱的操作方法

    2023-08-10 22:54:05
  • ASP实现控制虚拟主机功能的函数ADSI

    2008-10-12 13:12:00
  • 基于vue-upload-component封装一个图片上传组件的示例

    2024-05-10 14:14:42
  • python制作机器人的实现方法

    2022-11-09 21:09:05
  • K-means聚类算法介绍与利用python实现的代码示例

    2023-07-29 11:08:55
  • CentOS 6.5下安装Python 3.5.2(与Python2并存)

    2021-06-24 04:33:54
  • 详解Python中如何写控制台进度条的整理

    2023-12-31 03:32:51
  • python pygame 愤怒的小鸟游戏示例代码

    2023-11-14 17:00:48
  • Python自动登录126邮箱的方法

    2022-11-19 05:01:17
  • asp之家 网络编程 m.aspxhome.com