新微赢技术网

标题: 分页问题前几次没发成功这次好了帮忙！！！！！ [打印本页]

作者: ㄣ紸縡のoァ 时间: 2010-1-14 00:49
标题: 分页问题前几次没发成功这次好了帮忙！！！！！
这段代码能搜索到信息，但搜索到的是数据库里所以的信息都放在1个页面上了，无法实现分页，是为什么？？？还有就是搜索出来的页面有超连接，但点机超连接就出现如下信息
错误类型：
ADODB.Recordset (0x800A0E78)
对象关闭时，不允许操作。
/bbs/fenye.asp, 第 19 行
为什么点机下一页不能显示下一页而出现如上提示？？？
<body>

<%
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'>首页  </font>"
response.write"<font size='2'>上一页  </font>"
else
response.write"<font size='2'><a href=fenye.asp?page=1>首页</a>  </font>"
response.write"<font size='2'><a href=fenye.asp?page="&page-1&">上一页</a>  </font>"
end if
if page>=rs.pagecount then
response.write"<font size='2'>下一页  </font>"
response.write"<font size='2'>尾页  </font>"
else
response.write"<font size='2'><a href=fenye.asp?page="&page+1&">下一页</a>  </font>"
response.write"<font size='2'><a href=fenye.asp?page="&rs.pagecount&">尾页</a>  </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>

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)