请问：

对一大编文章分页显示，怎么实现？

要求：

如果字数在300以下就一页显示，300以上就分页显示，每页显示300个字。

要怎么样来实现？？？

限制字数，不是很好的方法，用行<br>或者分页标志！
主要用到的函数是spilt

Function ReWriteContent()
dim j
dim ContentArr()
const pageline=5 '每页显示行
linenum=split(content,"<br>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
AllPage=int(allline\pageline)+1 '计算总页数
j=0
Redim ContentArr(AllPage)
for i=0 to AllPage

do while j<(i+1)*pageline
ContentArr(i)= ContentArr(i)&linenum(j)
j=j+1
loop
ReWriteContent=ContentArr
Next
End Function
这个是实现长文章分页的，我用的是静态文章的分页

[此贴子已经被作者于2005-12-19 10:55:03编辑过]