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

来源:百度知道 编辑:UC知道 时间:2024/06/23 08:39:35
我的代码是
<%
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 />"
Rsc

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

在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