请这里的高手帮我弄个对文章分页的代码过来

是怎么样分出来的 我一直弄不明白 我想会它 高手请加上注实 谢谢了。

按行数来分跟按字数来分 哪种比较好 怎么分

[此贴子已经被作者于2006-2-25 10:17:37编辑过]

<%
dim rs,sql,conntent,title,newsid
newsid=1'trim(request("newsid")) '上页传来的ID值，为了调试方便此ID值临时赋为1
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&cint(id)
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
content=rs("content") '读取内容
title=rs("title") '读取标题
end if

'---------------------主代码开始--------------------------

dim page,pagecount,thispage,linenum,allline

const pageline=10 '每页显示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

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 "<p align='center'>总共"&allline&"行 "&pagecount&"页 每页"&pageline&"行 "
for i=1 to pagecount
if thispage=i then
response.write i & " "
else
response.write "<a href='shownews?page="&i&"&newsid="&newsid&"'>"&i&"</a> " '输出所有分页链接
end if
next
'---------------------主代码结束--------------------------
%>


我从网上找来的。可我把代码贴上去 没出错 也没有分 请高手帮我讲解一下红色部分
是个什么意思

我的数据库里面要输入的内容newsid content

[此贴子已经被作者于2006-2-25 11:21:27编辑过]