当分的页数太多,怎么将页数写在下一行

<%
if not (rsnews.eof and rsnews.bof) then
content=rsnews("Content") '读取内容
end if
if Err.number<>0 then
response.Write err.description
err.clear
response.End()
end if

'开始处理分页部分
dim page,pagecount,thispage,linenum,allline
const pageline=1'每页显示10行
content=replace( content,"[NextPage]","<br>")
linenum=split(content,"<br>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
pagecount=int(allline\pageline) '计算总页数
page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
for i=0 to allline-1
if i+1>thispage*pageline-pageline and i<thispage*pageline then
response.Write ""& linenum(i) & "<br>" '输出分页后的内容
end if
next
response.Write "<br&

分页页数太多怎么处理? 网站页数怎么算的？ 雷雨 的页数 如何将PDF中多余的页数删掉？ ppt里页数太多怎样缩成几页 小王子的页数 当天解决 页次与页数的区别 朝花夕拾的页数有多少？ 请问WORD的目录的 后边的页数怎么改 在word里，制作试卷，怎么设置下面的页数？