标题: [求助]静态分页 [打印本页] 作者: 满天星 时间: 2010-1-14 06:55 标题: [求助]静态分页 '#########################实现按行静态分页的函数###################
Function ReWriteContent(Text)
dim j
dim ContentArr()
const pageline=80 '每页显示行
linenum=split(Text,"<BR>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
AllPage=-int(-allline\pageline) '计算总页数
j=0
Redim ContentArr(AllPage)
for i=0 to AllPage
do while j<(i+1)*pageline
ContentArr(i)= ContentArr(i)&linenum(j)&"<br>"
j=j+1
if j>ubound(linenum) then exit do
loop
Next
ReWriteContent=ContentArr
End Function
'#########################实现按行静态分页的函数#####################
我不大懂这个的意思
有人帮我下吗作者: 草本刚 时间: 2010-2-16 09:05
还没崇拜过谁呢,满足一下愿望吧,谢谢!