Question

asp分页中，每页三条记录，最后一页不足三条记录，报错

我的代码是
<%
set conn=server.CreateObject("adodb.connection")
connStr="Driver={Microsoft access driver (*.mdb)};DBQ="&server.MapPath("db$.mdb")&""
conn.open(connStr)

Set Rscp=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From 产品"
Rscp.Open Sql,conn,1,1

rscp.Pagesize=3
pagecount=rscp.pageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rscp.Absolutepage=page

If rscp.EOF and rscp.BOF then
Response.write ("没有数据！")
Else
for i=1 to Rscp.pagesize
response.Write Rscp("产品名称") & "<P>" '第21行
response.Write Rscp("产品介绍") & "<P>"
response.Write "￥" & rscp("产品价格") & "元 | "
response.Write Rscp("id_2") & "<hr />"
Rscp.moveNext
next
End if
%>
<P>
<% for i=1 to pagecount %>
<a href="?page=<%=i%>">第<%=i%>页</a> |
<%next%>
</P>

数据库中有10条记录，读取数据时，分为4页，一切显示正常，但是page=4到显示最后一页的时候报错，请大家帮忙看下，是不是还需要添加什么代码？

报的错误是说我的代码21行有问题，我的21行，请看上面代码已经标注21行！

Answer 1

for i=1 to Rscp.pagesize
后面添加一句
if Rscp.eof then exit for

Answer 2

在for 语句内再加一个判断
for i=1 to Rscp.pagesize
if rs.eof then exit for '
response.Write Rscp("产品名称") & "<P>" '第21行
response.Write Rscp("产品介绍") & "<P>"
response.Write "￥" & rscp("产品价格") & "元 | "
response.Write Rscp("id_2") & "<hr />"
Rscp.moveNext
next