ASP如何固定每页显示记录条数。

Question

<table width="90%" border="1" align="center" cellpadding="3" cellspacing="1">
<tr>
<td>新闻标题</td>
<td>发布时间</td>
</tr>
<%
do while not rs.eof
%>

<tr>
<td>
<a href="shownews.asp?id=<%=rs("id")%>" target="_blank" class="text">
<%=rs("title")%></a>
</td>
<td>
<%=year(rs("addtime"))%>
</td>
</tr>

<% rs.movenext
loop
%>

</table>
<% call showpagenavigator(pageno, "news.asp")%>
<% rs.close
set conn=nothing %>
</td>
问题：现在用DO循环把数据都读出来了，但一页我想固定显示4条记录如何设置。
我在分页控件中已经设置了rs.pagesize = 4，为什么不起作用问题出在哪里。谢谢回答？
解析下<% call showpagenavigator(pageno, "news.asp")%>什么意思！！

<%
rs.pagesize = 4

pageno = trim(request("pageno"))

if isnumeric(pageno) then
pageno = clng(pageno)
if pageno < 1 or pageno > rs.pagecount then
pageno = 1
end if
session("pageno") = pageno
else
if isEmpty(session("pageno")) or session("pageno")="" then
pageno = 1
else
pageno = session("pageno")
end if
end if

if rs.recordcount > 0 then rs.absolutepage = pageno

' ------------ 显示翻页按钮函数 --------------

Sub ShowPageNavigator(pageno,despage)

if CLng(pageno) <= 1 then
dFirst = "disabled"
dPrev = "disabled"
end if

if CLng(pageno) >= rs.pagecount then
dNext = "disabled"
dLast = "disabled"
end if

%>

<center>
<%
response.write "<font class=chinese_MT>第" & CStr(pageno) & "页/共" & CStr(rs.PageCount) & "页"
response.write "(" & CStr(rs.RecordCount) & "条记录)"
%>
  
<% if dFirst="disabled" then %><font class=1pxborder>最前页</font><% else %><a href='<%=despage%>?pageno=1'" class=1pxborder>最前页</a><% end if %> 
<% if dPrev="disabled" then %><font class=1pxborder>上一页</font><% else %><a href='<%=despage%>?pageno=<%=pageno-1%>'" class=1pxborder>上一页</a><% end if %> 
<% if dNext="disabled" then %><font class=1pxborder>下一页</font><% else %><a href='<%=despage%>?pageno=<%=pageno+1%>'" class=1pxborder>下一页</a><% end if %> 
<% if dLast="disabled" then %><font class=1pxborder>最后页</font><% else %><a href='<%=despage%>?pageno=<%=rs.pagecount%>'" class=1pxborder>最后页</a><% end if %>
<%
End Sub
%>
</center>

Answer 1

rs.pagesize = 4
pageno = trim(request("pageno"))
这样写只是定义了显示数据的条数和获取页码，当你翻页的时候并没有让数据库指针决定对定位。Rs.AbsolutePage=Page 也就是没有这么一句。楼上的说的很明白了。如果不懂的地方，欢迎进群83574996学习

Answer 2

<%
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from table order by addtime desc",conn,1,1
if rs.eof then
else
Rs.Pagesize=4
Total=Rs.Pagecount
Counts=Rs.RecordCount
Page=int(Request("page"))
If Page<=1 Then Page=1
If Request("page")="" Then page=1
If Page>Total Then Page=Total
Rs.AbsolutePage=Page
For i=1 To Rs.Pagesize
If Rs.Eof Then
Exit For
End If
%>
<div><%=rs("title")%></div>

<%
rs.movenext
next
rs.close
%>
<div>第<%=page%>/<%=total%>页
<%if page>1 then%><a href="?Page=1"><%end if%>首页</a>
<%if page>1 then%><a href="?Page=<%=page-1%>"><%end if%>上一页</a>
<%if page<>total then%><a href="?Page=<%=page+1%>"><%end if%>下一页</a>
<%if page<>total then%><a href="?Page=<%=total%>"><%end if%>尾页</a>
共<font color="#FF0000"><%=Counts%></font>条信息</div>

这么写行不？