长文章自动分页类

这个使用起来很简单，以前需要的时候在网上找的，用了感觉还不错，具体的看演示就明白了。
,这个可以保留你文章中的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

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

下载地址：分页-articlePage.rar （28.05 KB）