这个里面哪个代表每页最多显示记录数啊？我一直也没弄明白，请高手指点下，如果没有，看看该怎么加个，谢谢！


rs.open sql,dsconn,3,1
if not rs.eof then
pagecount=rs.pagecount
if request("id")=null or request("id")="" then
page=1
else
page=int(request("id"))
end if

if page>=rs.pagecount then
page=rs.pagecount
elseif page<=1 then
page=1
end if
rs.absolutepage=page
else
pagecount=1
page=1
end if
'*******************显示文章
do while not rs.eof
call list
a=a+1
rs.movenext
loop

'*******************显示文章数量，页面等信息
addr0=request.servervariables("server_name")
addr1=request.servervariables("url")
addr="http://"&addr0&addr1
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'><tr><td align=center>"
if page>1 then response.write "<a href='"&addr&"?id="&int(page-1)&"'>上一页</a>"
if page<pagecount then response.write "&nbsp;&nbsp;<a href='"&addr&"?id="&int(page+1)&"'>下一页</a>"
response.write "&nbsp;&nbsp;文章:<font color=red>"&rs.recordcount&"</font>篇"
response.write "&nbsp;&nbsp;每页显示<font color=red>10</font>篇"
response.write "&nbsp;&nbsp;页数:<font color=red>"&page&"</font>/"&pagecount
response.write "</tr></td></table>"
response.write "</table>"

rs.close
call rsclose
call dsconnclose

rs.pagesize应该有这个属性把？记得这个应该是设置每页显示的记录数。

<%
on error resume next
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from 表名 order by id desc"
rs.open sql,conn,3,1
if rs.eof then
response.Write "当前数据库中无记录!"
response.end
else
const maxperpage=20 '定义每一页显示的数据记录的常量
dim currentpage '定义当前页的变量
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" or currentpage<1 then
currentpage=1

else
currentpage=clng(currentpage)
end if
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
'如果变量currentpage的数据类型不是数值型
'将1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if

dim totalput,n '定义变量
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
%>

'中间是要显示的内容


<%
i=i+1
rs.movenext
loop
end if
%>

<td colspan="10" class="tdbg2">页数：<%=currentpage%>/
<% =n%>
<%k=currentpage
if k<>1 then%>
[<a href="exper.asp?pageid=1">首页</a>] [<a href="exper.asp?pageid=<%=k-1%>">上一页</a>]
<%else%>
[首页]&nbsp;[上一页]
<%end if%>
<%if k<>n then%>
[<a href="exper.asp?pageid=<%=k+1%>">下一页</a>] [<a href="exper.asp?pageid=<%=n%>">尾页</a>]
<%else%>
[下一页]&nbsp;[尾页]
<%end if%>
共有<font color="red"><%=totalput%></font>条记录
</td>

（只需要更改一下表名和超链地址即可）

response.write "&nbsp;&nbsp;每页显示<font color=red>10</font>篇"

楼上上的哥们做的行.

不怎么用 rs.Pagesize ，分页自己写比较好。。

数据大的时候效率N低。。

哎，尤其是 PageCount 和 RecordCount 这类的。。

问题解决 ，谢谢大家帮忙