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编辑过]