ADODB.Recordset 错误 '800a0e78' 对象关闭时，不允许操作。这是什么问题

jhksyj 2006-07-23 10:54:08

ADODB.Recordset 错误 '800a0e78' 对象关闭时，不允许操作。这是什么问题下面是源码，最后有问题~!



<html><head><title>管理新楼盘</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>

<%dim selectm,selectkey,selectid
selectkey=trim(request(trim("selectkey")))
selectm=trim(request("selectm"))
action=request.QueryString("action")

if selectkey="" then
selectkey=request.QueryString("selectkey")
end if
if selectkey="请输入关键字" then
selectkey=""
end if

'//删除
if selectm="" then
selectm=request.QueryString("selectm")
end if
selectid=request("selectid")
if selectid<>"" then
conn.execute "delete from rent where id in ("&selectid&")"
response.Redirect "managerent.asp?action=all"
response.End
end if

'//刷新
newid=request("newid")
if newid<>"" then
set rs=server.createobject("adodb.recordset")
sql="select adddate,guding,gddate from rent where id="&newid
rs.open sql,conn,1,3
if rs("guding")= 1 then
rs("gddate")=now()
else
rs("adddate")=now()
end if
rs.update
response.Redirect "managerent.asp?action=all"
end if

'//固顶
gdid=request("gdid")
if gdid<>"" then
set rs=server.createobject("adodb.recordset")
sql="select guding,gddate,adddate from rent where id="&gdid
rs.open sql,conn,1,3
rs("guding")=1
rs("gddate")=rs("adddate")
rs("adddate")="3000-1-1 1:1:1"
rs.update
response.Redirect "managerent.asp?action=all"
end if

'//解固
jgid=request("jgid")
if jgid<>"" then
set rs=server.createobject("adodb.recordset")
sql="select guding,gddate,adddate from rent where id="&jgid
rs.open sql,conn,1,3
rs("guding")=0
rs("adddate")=rs("gddate")
rs.update
response.Redirect "managerent.asp?action=all"
end if

'//通过
pass=request("pass")
if pass<>"" then
set rs=server.createobject("adodb.recordset")
sql="select by_shenhe from rent where id="&pass
rs.open sql,conn,1,3
rs("by_shenhe")=1
rs.update
response.Redirect "managerent.asp?action=all"
end if

'//等待
wait=request("wait")
if wait<>"" then
set rs=server.createobject("adodb.recordset")
sql="select by_shenhe from rent where id="&wait
rs.open sql,conn,1,3
rs("by_shenhe")=0
rs.update
response.Redirect "managerent.asp?action=all"
end if

'//未通过
fall=request("fall")
if fall<>"" then
set rs=server.createobject("adodb.recordset")
sql="select by_shenhe from rent where id="&fall
rs.open sql,conn,1,3
rs("by_shenhe")=-1
rs.update
response.Redirect "managerent.asp?action=all"
end if

%>
<div align="center">
<table cellpadding="3" cellspacing="1" border="1" width="100%" class="tableBorder" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr align="center">
<td class="forumRowHighlight" width=25% bgcolor="#F7F7F7"> <a href="managerent.asp?action=all"><%if action="all" then %><font color="#FF0000"><% end if%>所有</a> <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from [rent] ",conn,1,1
response.write rs.recordcount
' rs.close
%></td>
<td class="forumRowHighlight" width=25% bgcolor="#F7F7F7"><a href="managerent.asp?action=pass"><%if action="pass" then %><font color="#FF0000"><% end if%>通过</font></a> <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from [rent] where by_shenhe=1 ",conn,1,1
response.write rs.recordcount
' rs.close
%></td>
<td class="forumRowHighlight" width=25% bgcolor="#F7F7F7"><a href="managerent.asp?action=wait"><%if action="wait" then %><font color="#FF0000"><% end if%>待审核</font></a> <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from [rent] where by_shenhe=0",conn,1,1
response.write rs.recordcount
' rs.close
%></td>
<td class="forumRowHighlight" width=25% bgcolor="#F7F7F7"><a href="managerent.asp?action=fall"><%if action="fall" then %><font color="#FF0000"><% end if%>未通</font></a> <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from [rent] where by_shenhe=-1 ",conn,1,1
response.write rs.recordcount
'rs.close
%></td>
</tr>
</table>
</div>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="form1" method="post" action="">
<td height="100">
<%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
select case selectm
case ""
select case action
case "all"
rs.open "select * from [rent] order by adddate desc ",conn,1,1
case "pass"
rs.open "select * from [rent] where by_shenhe=1 order by adddate desc ",conn,1,1
case "wait"
rs.open "select * from [rent] where by_shenhe=0 order by adddate desc ",conn,1,1
case "fall"
rs.open "select * from [rent] where by_shenhe=-1 order by adddate desc ",conn,1,1
end select
case "0"
rs.open "select * from rent order by adddate desc",conn,1,1
case "id"
if selectkey="" then
selectkey=0
end if
rs.open "select * from rent where id="&selectkey&" order by adddate desc",conn,1,1
case "title"
rs.open "select * from rent where address like '%"&selectkey&"%' order by adddate desc",conn,1,1
end select
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof and rs.bof then 这里有问题
%>
<div align="center">

...全文