长文章分页类

这个使用起来很简单,以前需要的时候在网上找的,用了感觉还不错,具体的看演示就明白了。
,这个可以保留你文章中的html标记,需要你修改的就是下面的代码
程序代码 程序代码

Dim clsDoc,content,setpage
Set clsDoc = new splitDoc
clsDoc.sStr = str'这个就是你要分页的文章内容了,当然str可以是从数据库取出来的
clsDoc.pageSize = 2000'每页显示的字数
clsDoc.curPage = Request("docpage")'得到第几页
content = clsDoc.getStr()
setpage = clsDoc.showPage(para)
Set clsDoc = Nothing

其他的就不用解释了,会用就得了,还是看看看演示吧!

完整的代码下载


[本日志由 亮亮 于 2009-07-11 02:46 PM 编辑]
文章来自: Turnip
引用通告: 查看所有引用 | 我要引用此文章
Tags: 长文章分页
评论: 2 | 引用: 0 | 查看次数: -
回复回复izmax[2009-03-20 12:48 AM | del]
我看到图片了啊
回复回复KK[2009-02-19 09:16 AM | del]
会把图片给过滤了
引用来自 亮亮 亮亮 于 2009-02-20 11:35 AM 回复
这个我到真没注意,不过我在文章中增加了图片,也可以看到啊,没有把图片过滤掉,上面的演示的第一页就有图片!也许这个类有不完善的地方吧,在某个特殊的地方把图片给过滤了!
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.