Question

asp留言板留言分页显示的问题，在线等

<div class="content">
<%
set rs=Server.CreateObject("ADODB.RecordSet") '创建RecordSet 对象
rs.open "select * from art1 order by id desc",conn,1,3 '从数据库中读取留言，并保存在rs 中
if rs.eof and rs.bof then '不存在留言记录
response.redirect "book_write.asp" '转到撰写留言页面
else '存在记录
if counts=0 or counts="" then counts=10 '每页留言条数
rs.pageSize = counts '每页记录数
allpages = rs.pageCount '总页数
page = Request("page") '从浏览器取得当前页
If not isNumeric(page) then page=1 'page不是数字
if isEmpty(page) or Cint(page) < 1 then 'page 为空或小于1
page = 1
elseif Cint(page) >= allPages then 'page 值大于总页数
page = allPages
end if
rs.AbsolutePage = page '转到某页头部
Do While Not rs.eof
id=rs("id")
title=rs("title") '用户名
content=rs("content") '内容
createtime=rs("createtime") '回复
click=rs("click") '主页
I=I+1 '序号
'留言序号
temp=RS.RecordCount-(page-1)*rs.pageSize-I+1
%>
<table class="tb" cellspacing="1px">
<tr>
<td width="15%" rowspan="2">
后期编号：[NO.<%=temp%>]<br>
自动编号：<%=id%><br></td>
</td>
<td>标题：<font color="#099;"><%=rs("title")%></font> <% response.Write "<a href="&request.ServerVariables("script_name")&"?id="&id&">查看详细内容</a>"%></td>
</tr>
<tr>
<td >
内容：<br /><%=content%>
<br>
</td></tr></table>
<%
counts = counts - 1 '每页显示条数减1
rs.movenext '指向下一条记录
if rs.eof then exit do '已经到底最后一条记录则跳出
loop '结束循环
'End If
%>
<div style="border:solid 1px #900; height:25px; line-height:25px; overflow:hidden; text-align:center; margin:5px;">
<%
'显示总留言条数
response.write "       总计留言"&RS.RecordCount&"条 "
if page = 1 then '到达第一页
response.write "<font color=darkgray>首页 前页</font>"
else '不是第一页
'request.ServerVariable("script_name") 获得程序的虚拟路径
response.write "<a href="&request.ServerVariables("script_name")&"?page=1>首页</a> <a href="&request.ServerVariables("script_name")&"?page="&page-1&">前页</a>"
end if
if page = allpages then '到达最后一页
response.write "<font color=darkgray> 下页 末页</font>"
else '不是最后一页
'建立超级链接
response.write " <a href="&request.ServerVariables("script_name")&"?page="&page+1&">下页</a> <a href="&request.ServerVariables("script_name")&"?page="&allpages&">末页</a>"
end if
'显示留言当前的页数信息
response.write " 第"&page&"页 共"&allpages&"页 "
%> <a href="book_write.asp">[欢迎你留言]</a></</div>
</div>
<%
End If
conn.CLose'关闭数据库
Set conn = nothing
%>

第一页会显示记录集的所有内容？怎么解决？向后翻页只是递减，向前翻页也只是递加。比如有30条数据，显示5条/6页，但是第一页显示30条？
接上面补充：
比如有30条数据，显示5条/6页，上面代码的结果是第一页显示30条，第二页显示25条，第三页显示20条……如此递减而已，
这不是我想要的，我要的是每页就显示5条，没有多余的。
要不然的话，有100条数据那岂不是第一页就显示100条数据了，不好看先不说，起码这个分页就没有意义了。

请高手赐教啊！给一个可用的代码或解释一下为什么会是这个结果！谢谢！可用加分，呵呵

Answer 1

还是用算法吧。
第一页用top
计算后记录 =总记录-(当前显示条数*页码)
sql="select top 当前显示条数 * from(select top 计算后记录 * from tb order by asc) order by id desc"

Answer 2

if counts=0 or counts="" then counts=10 '每页留言条数
counts=5