菜鸟分页出错 请指出错误

[mkcat]

<%
						sql="SELECT * FROM rzhi ORDER BY ID DESC"
						set rs=Server.CreateObject("Adodb.Recordset")
						rs.open sql,conn,1,3
						if not rs.eof then
							pagesUrl="?"
							pagesSize=5
							if request("page")="" then
								thisPage=1
							else
								thisPage=cint(request("page"))
							end if
							
							rs.pagesize=pagesSize
							rs.absolutepage=thisPage
							allPages=rs.pagecount
							allRecords=rs.recordcount
							
							do while not rs.eof
								i=i+1
						%>
							<a href="kan_rzhi.asp?id=<%=rs("id")%>"><%=rs("r_biaoti")%></a>
                           <%
                if i>=pagesSize then exit do	
            rs.movenext
            loop
        end if
        rs.close
        set rs=nothing
        %>
    <%
		if allPages > 0 then	
			response.write "当前页<font color='red'>"&thisPage&"</font>/<font color='red'>"&allPages&"</font>, 共<font color='#ff0000'>"&allRecords&"</font>条记录, 每页<font color='red'>"&pagesSize&"</font>条"
			
			if thisPage<=1 then	
				response.write " 首页 上一页 "
			else
				response.write " <a href="""&pagesUrl&"page=1"">首页</a> <a href="""&pagesUrl&"page="&(thisPage-1)&""">上一页</a> "
			end if
			
			if thisPage>=allPages then
				response.write " 下一页 尾页 "
			else
				response.write " <a href="""&pagesUrl&"page="&(thisPage+1)&""">下一页</a> <a href="""&pagesUrl&"page="&allPages&""">尾页</a> "
			end if
			response.write "</select>"
			
		end if
        %>
                  </td>
                </tr>
              </table></td>
              <td width="71" height="290"></td>
              <td width="187" height="290" align="left" valign="top" class="table11"><table width="197" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="187" height="290" align="left" valign="top" bordercolor="2">
				   <%
						sql="SELECT * FROM ge ORDER BY ID DESC"
						set rs=Server.CreateObject("Adodb.Recordset")
						rs.open sql,conn,1,3
						if not rs.eof then
							pagesUrl="?"
							pagesSize=5
							if request("page")="" then
								thisPage=1
							else
								thisPage=cint(request("page"))
							end if
							
							rs.pagesize=pagesSize
							rs.absolutepage=thisPage
							allPages=rs.pagecount
							allRecords=rs.recordcount
							
							do while not rs.eof
								i=i+1
						%>
				  <a href="bofang.asp?id=<%=rs("id")%>"><%rs=("name")%></a>
      <%
                if i>=pagesSize then exit do	
            rs.movenext
            loop
        end if
        rs.close
        set rs=nothing
        %>
      <%
		if allPages > 0 then	
			response.write "当前页<font color='red'>"&thisPage&"</font>/<font color='red'>"&allPages&"</font>, 共<font color='#ff0000'>"&allRecords&"</font>条记录, 每页<font color='red'>"&pagesSize&"</font>条"
			
			if thisPage<=1 then	
				response.write " 首页 上一页 "
			else
				response.write " <a href="""&pagesUrl&"page=1"">首页</a> <a href="""&pagesUrl&"page="&(thisPage-1)&""">上一页</a> "
			end if
			
			if thisPage>=allPages then
				response.write " 下一页 尾页 "
			else
				response.write " <a href="""&pagesUrl&"page="&(thisPage+1)&""">下一页</a> <a href="""&pagesUrl&"page="&allPages&""">尾页</a> "
			end if
			response.write "</select>"
			
		end if
        %>

我是在表格里面分的

[mailbao]

do while not rs.eof
i=i+1   '這句的位置放錯了,這裏設為 i=0

把它放在下面的代碼

'加在這裏
i=i+1
if i>=pagesSize then exit do    
            rs.movenext
            loop

改完後再test是否OK,如有問題再說...

[mailbao]

上面第一個修改處有點小問題,

do while not rs.eof
i=i+1

順序上下對調一下,即:
i=0
do while not rs.eof

[mkcat]

[Quote=引用 1 楼 mailbao 的回复:]
VB codedowhilenot rs.eof
i=i+1'這句的位置放錯了,這裏設為 i=0

把它放在下面的代碼

VB code'加在這裏i=i+1if i>=pagesSizethenexitdo
rs.movenextloop


改完後再test是否OK,如有問題再說...
[/Quote]


跟原来一样都是
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'
/bei/index.asp, 第 99 行

[mkcat]

[Quote=引用 2 楼 mailbao 的回复:]
上面第一個修改處有點小問題,

do while not rs.eof
i=i+1

順序上下對調一下,即:
i=0
do while not rs.eof


[/Quote]

都不行

[mkcat]

也不行 算了

[mailbao]

......

寫程序,需要更多的是細心耐心

[ITcql]

rs.pagesize=4
page=clng(request("page"))
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
%>
<table border="=1" align="center">
<tr>
<td>序号</td>
<%
for i=0 to rs.fields.count-1
response.Write"<td>"&rs.fields(i).name&"</td>"
next
%>
</tr>
<%
rs.absolutepage=page
for ipage=1 to rs.pagesize
recno=(page-1)*rs.pagesize+ipage
%>
<tr>
<td><%=recno%></td>
<%for i=0 to rs.fields.count-1%>
<td><%=rs.fields(i).value%></td>
<%next%>
</tr>

<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<p align="center">
<%
if page<>1 then
response.Write"<a href=test.asp?page=1>第一页</a>  "
response.Write"<a href=test.asp?page="&(page-1)&">上一页</a>  "
end if
if page<>rs.pagecount then
response.Write"<a href=test.asp?page="&(page+1)&">下一页</a>  "
response.Write"<a href=test.asp?page="&rs.pagecount&">最后一页</a>"
end if
%>
</p><p align="center">页数：<%=page%>/<%=rs.pagecount%></p>
<%
rs.close
conn.close
%>
我把我的分页代码，贴出来，看你觉得怎么样。可以自己复制啊

[mailbao]

還不行啊?

改好的code是怎麼樣?現在報什麼錯誤了?