怎样在这个基础上添加【分页代码】？？

[titiking]

<!-- #include file="conn.asp"-->
<%
Set rs=server.CreateObject("adodb.recordset")
sql = "select * from cnartile order by cn_id desc"
rs.open sql,conn,1,1
%>
<center><a href="addit.html">添加留言</a>



<%
If rs.eof And rs.bof Then
response.write("目前没有任何记录")
Else
Do Until rs.eof
response.write("<br>文章标题是:" & rs("cn_title"))
response.write("<br>文章作者是:" & rs("cn_author"))
response.write("<br>文章加入时间是:" & rs("cn_time"))
response.write("<br>文章的内容是:" & rs("cn_content"))
response.write("<br>")
rs.MoveNext
loop
End if
%></center>
<%
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%>

现在数据库里存放了大概10条左右的记录 能不能以每页6条的记录 分页来显示
谢谢各位了 在线等答案

[maxid]

只在你在baidu,google上查一下ado分页，就有很多资料了

[fafenglea]

<!-- #include file="conn.asp"-->
<%
Set rs=server.CreateObject("adodb.recordset")
sql = "select * from cnartile order by cn_id desc"
rs.open sql,conn,1,1

Dim Page,Count 'Page用来接收第几页，Count表示总共多少页
Page=Request("NextPage")
if Page="" then '如果第一次打开窗口，则Page=1
Page=1
end if
Rs.PageSize=6 '每页显示6条信息
Rs.AbsolutePage=Page '当前页等于接收到的页数
Count=Rs.PageCount
%>
<center><a href="addit.html">添加留言</a>



<%
If rs.eof And rs.bof Then
response.write("目前没有任何记录")
Else
Do Until rs.eof
response.write("<br>文章标题是:" & rs("cn_title"))
response.write("<br>文章作者是:" & rs("cn_author"))
response.write("<br>文章加入时间是:" & rs("cn_time"))
response.write("<br>文章的内容是:" & rs("cn_content"))
response.write("<br>")
rs.MoveNext
loop
End if
%></center>
<%
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%>

Dim i
For i=1 to amount
Response.Write("<a href=***.asp?NextPage=" & i & ">" & i & "</a> ")
Next

[fafenglea]

哦，是Count 不是amount

[titiking]

感谢光哥