设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 52|回复: 1
打印 上一主题 下一主题

分页问题 前几次没发成功 这次好了 帮忙!!!!!

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-14 00:49:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这段代码能搜索到信息,但搜索到的是数据库里所以的信息都放在1个页面上了,无法实现分页,是为什么???还有就是搜索出来的页面有超连接,但点机超连接就出现如下信息
错误类型:
ADODB.Recordset (0x800A0E78)
对象关闭时,不允许操作。
/bbs/fenye.asp, 第 19 行
为什么点机下一页不能显示下一页而出现如上提示???
<body>
<!--#include file="conn.asp"-->
<%
if request.ServerVariables("QUERY_STRING")<>""then
sousuo=request.form("sousuo")
set rs=server.CreateObject("adodb.recordset")
page=request("page")
rs.pagesize=1
if page="" or page<=1 then
page=1
elseif page>=rs.pagecount then
page=rs.pagecount
end if
rs.open"select*from userzl where uid like '%"&sousuo&"%'",conn,1,1
do while not rs.eof
response.Write rs("uid")&"<br>"
rs.movenext
loop
if page<=1 then
response.write"<font size='2'>首页&nbsp;&nbsp;</font>"
response.write"<font size='2'>上一页&nbsp;&nbsp;</font>"
else
response.write"<font size='2'><a href=fenye.asp?page=1>首页</a>&nbsp;&nbsp;</font>"
response.write"<font size='2'><a href=fenye.asp?page="&page-1&">上一页</a>&nbsp;&nbsp;</font>"
end if
if page>=rs.pagecount then
response.write"<font size='2'>下一页&nbsp;&nbsp;</font>"
response.write"<font size='2'>尾页&nbsp;&nbsp;</font>"
else
response.write"<font size='2'><a href=fenye.asp?page="&page+1&">下一页</a>&nbsp;&nbsp;</font>"
response.write"<font size='2'><a href=fenye.asp?page="&rs.pagecount&">尾页</a>&nbsp;&nbsp;</font>"
end if
rs.close
set rs=nothing
else
%>
<form name="form1" method="post" action="<%=request.ServerVariables("SCRIPT_NAME")%>?page=1">
<input name="sousuo" type="text" id="sousuo">
<input type="submit" name="Submit" value="搜索">
</form>
</body>
</html>
您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-19 02:38 , Processed in 0.096352 second(s), 9 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表