我的分页代码，问题出在哪里？我只要把pagesize=20改为pagesize=30，或更大，pagesize=80，内容就不能显示完？

[weifei008]

<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from 客户 order by num desc,时间 desc"
rs.open sql,dbconnection,1,1
if rs.eof and bof then
Response.Write "无内容"
else

total=rs.RecordCount
if Request("page")="" Then
page=1
Else
Page=Int(Abs(Request("page")))
End if

pagesize=30 '设置本页显示记录数
if total mod pagesize =0 then '计算总页数
pagecount=int(total/pagesize)
else
pagecount=int(total/pagesize)+1
end if
recordid=int(abs((page-1)*pagesize)) '计算每一页第一条记录的ID
rs.move [recordid]
if page=pagecount and total mod pagesize<>0 then '判断是否为最后一页
m=total mod pagesize
else
m=pagesize
end if

for i=1 to rs.pagesize
response.write "id："&rs("id")&"<br>"
Response.Write ""&rs("主题")&"<br>"
Response.Write ""&rs("内容")&"<br>"
rs.movenext
if rs.eof then exit for
next

rs.close
set rs=nothing
dbconnection.close
set dbconnection=nothing
end if

%>
<table width="740" border="0">
<div align="right">第<b><%=page%></b>页：<%if page<>1 then%>
<a href='viepg.asp?page=<%=page-1%>'>上一页</a>
<% end if %>
<%
for j=1 to pagecount
response.write "[<a href='viepg.asp?page="&j&"'>"&j&"</a>]"
next
%>
<% if page<pagecount then %>
<a href='viepg.asp?page=<%=page+1%>'>下一页</a>
<% end if %>

</table>
我只要把pagesize=20改为pagesize=30，或更大，如pagesize=80，数据库内容就不能显示完？而且每页显示的记录只有10条？请各位高手指点。

[billyqiao]

你检查下面的代码，rs.pagesize没有预先赋值,(rs.pagesize=30)
for i=1 to rs.pagesize
response.write "id："&rs("id")&"<br>"
Response.Write ""&rs("主题")&"<br>"
Response.Write ""&rs("内容")&"<br>"
rs.movenext
if rs.eof then exit for
next
我觉得最好不要用这么笨的定位方式，实在麻烦，只要用rs.pagesize，rs.pagecount,rs.absolutepage就可以轻松搞定，注意这个时候:rs.open sql,cn,3

[手艺人杨柳]

在pagesize和pagecount前面都要加上rs.*****

[jobine]

rs.pagesize=pagesize

[minfei]

估计是页面执行时间超时，读取数据太多，页面超时时间太短