求助ASP翻页代码的错误

来源：百度知道编辑：UC知道时间：2024/05/30 02:02:34

<%
If request("page") = "" Then currentpage=1 else currentpage =request("page")
set rs=server.CreateObject("adodb.recordset")
Url="../products/index.asp"
set rs = server.CreateObject("adodb.recordset")
SqlMinList = "select MaxID,MaxName,MaxRank from ProductMax10 ORDER BY MaxRank"
rs.open SqlMinList, objConn, 1, 1

msg_per_page = 2 '页/条
rs.PageSize=msg_per_page
totalpage = rs.PageCount
totalmessage = Rs.recordcount
If totalmessage <> 0 Then
Rs.AbsolutePage = currentpage
End If
for i=1 to msg_per_page
'===========================
%>
<% =rs("MaxName")%><br>
<%
rs.movenext
next

response.write ExportPageInfo(totalpage,totalmessage,request("page"),PAGE_SIZE,msg_per_page,"&qu

for i=1 to msg_per_page
这里写一句IF rs.EOF then exit for
%>
<% =rs("MaxName")%><br>
当你点到的这一页时,记录集rs已经读到末尾了,所以再执行<% =rs("MaxName")%>的时候就会报以上错误了.

for i=1 to msg_per_page
if rs.eof then '加这几句
exit for
end if
'===========================
%>
<% =rs("MaxName")%><br>
<%
rs.movenext
next

求助ASP翻页代码的错误 ASP翻页出现的错误 ASP代码错误求助 asp代码错误求助! ASP程序中,搜索页的翻页错误!(附代码)急急急!!! ASP翻页代码.帮偶看下。. ASP 翻页代码问题 ASP翻页代码 ASP翻页错误感谢：谁能帮我解释一下翻页的asp代码？？