菜鸟分页出错 请指出错误

mkcat 2009-08-12 05:31:11
<%
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
%>



我是在表格里面分的
...全文
82 8 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
mailbao 2009-08-13
還不行啊?

改好的code是怎麼樣?現在報什麼錯誤了?
  • 打赏
  • 举报
回复
ITcql 2009-08-13
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 2009-08-13
......

寫程序,需要更多的是細心耐心
  • 打赏
  • 举报
回复
mkcat 2009-08-13
也不行 算了
  • 打赏
  • 举报
回复
mkcat 2009-08-12
[Quote=引用 2 楼 mailbao 的回复:]
上面第一個修改處有點小問題,

do while not rs.eof
i=i+1

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


[/Quote]

都不行
  • 打赏
  • 举报
回复
mkcat 2009-08-12
[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 行
  • 打赏
  • 举报
回复
mailbao 2009-08-12
上面第一個修改處有點小問題,

do while not rs.eof
i=i+1

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

  • 打赏
  • 举报
回复
mailbao 2009-08-12

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


把它放在下面的代碼


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




改完後再test是否OK,如有問題再說...
  • 打赏
  • 举报
回复
发帖
ASP

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2009-08-12 05:31
社区公告
暂无公告