新闻内容太长,要求分页显示，大家有没有什么好的方法或者思路，谢谢！

复制内容到剪贴板

代码:

'连接数据库：
on error resume next
if err.number<>0 then
response.write err.description
err.clear
response.end
end if
'读取数据：
dim rs,sql,conntent,title,id
id=1'trim(request("id")) '上页传来的ID值，为了调试方便此ID值临时赋为1
set rs=server.createobject("adodb.recordset")
sql="select * from news where id=3"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
content=rs("content") '读取内容
title=rs("title") '读取标题
end if
if err.number<>0 then
response.write err.description
err.clear
response.end
end if
rs.close
set rs=nothing
call connclose()
'分页处理部分：
'---------------------主代码开始--------------------------
dim page,pagecount,thispage,linenum,allline
const pageline=20 '每页显示10行
linenum=split(content,"<BR>") '本例为计算字符串<BR>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
pagecount=int(allline\pageline)+1 '计算总页数
page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
'response.write "<title>"&title&"</title><b>"&title&"</b>"
for i=0 to allline
if i+1>thispage*pageline-pageline and i<thispage*pageline then
response.write linenum(i) &"<br>" '输出分页后的内容
end if
next
response.write chr(13)&"<hr>"
response.write "<div align='center'>总共"&allline&"位客户 共分"&pagecount&"页 每页"&pageline&"位客户 "
for i=1 to pagecount
if thispage=i then
response.write "<b><font color=red>"&i&"</font></b> "
else
response.write "<a href='?page="&i&"'>"&i&"</a> " '输出所有分页链接
end if
next
'---------------------主代码结束--------------------------