Question

解决“对象关闭时，不允许操作。”的办法？

在网站增加到了一个《历史上的今天》栏目，在本地和服务器上查看都正常，但是通过域名访问就出现这样的提示：

ADODB.Recordset 错误 '800a0e78'
对象关闭时，不允许操作。

/index.asp，行 270

下面的原码，上下加“***”号的就是270行。请大侠帮助诊断并修改。谢谢了。

</td>
</tr></table>
</td></tr>
<%Set rs_tmp = Server.CreateObject("ADODB.Recordset")
if style="1" then
rs_tmp.Open "select * from Content where PageUrl like '%/"&todaytime&"/%' and not(title like '%诞辰%' or title like '%逝世%')", conn, 1, 1
end if

if style="2" then
rs_tmp.Open "select * from Content where PageUrl like '%/"&todaytime&"/%' and title like '%诞辰%' ", conn, 1, 1
end if

if style="3" then
rs_tmp.Open "select * from Content where PageUrl like '%/"&todaytime&"/%' and title like '%逝世%' ", conn, 1, 1
end if
**************** **************** **************** ****************
If rs_tmp.EOF Or rs_tmp.bof Then%>
**************** **************** **************** ****************
<TR><td style="BORDER-BOTTOM: #AADDFF 1px solid;BORDER-TOP: #AADDFF 1px solid;height:21px" background="images/bg1.gif" align=left> 暂无</td></TR>
<%
Else
j = rs_tmp.recordcount -1
rs_tmp.movefirst
For i = 0 To j
%>
<TR><td style="BORDER-BOTTOM: #AADDFF 1px solid;BORDER-TOP: #AADDFF 1px solid;height:21px" bgcolor=#F6F8FE align=left><font color="#ff9933"><b><%=rs_tmp("title")%></b></font></td></TR>
<TR><td align=left style="BORDER-BOTTOM: #AADDFF 0px solid;BORDER-TOP: #AADDFF 0px solid;height:21px" >
<div style="MARGIN-left: 10px;MARGIN-top:5px;MARGIN-right: 10px;"><%=rs_tmp("content")%></div><br />
</td></TR>

<%
rs_tmp.movenext
Next
end if
rs_tmp.close
set rs_tmp=nothing
%>

Answer 1

通过域名访问就出现这样的提示“对象关闭时，不允许操作。是设置错误造成的，解决方法如下：

1、首先是conf下的server.xml：将服务器的访问端口改成80，因为在购买域名的时候，是要对应一个ip的，访问时也是ip:80/项目名。80就简化成了ip/项目名，所以端口要用80。

2、端口设置好后，再配置域名。

3、然后还要设置，自己输入域名后访问哪个项目。

4、如果想要特定访问哪个jsp，可以在web.xml中进行配置，这样输入域名回车就到设定好的jsp，就可以了。

5、这样就可以使用了，配置如下图。

Answer 2

VB中“对象关闭时，不允许操作”解决方案

最近两天在VB里弄一些小程序，好久没接触了，感觉有些陌生了，还算有点基础吧，遇到一些小的难题基本上都能解决。不过，这下真的遇到难题了，琢磨半天硬是没弄出结果来，在网上查资料也没个底，如同大海捞针呀，关键是没一点正经的答案和可行的方案。

问题是这样的，在VB中执行存储过程，想输出返回值并将数据绑定到DataGrid控件中，本来是件小菜的问题，在.NET、ASP里都做通过，但在VB里却是折磨了半天也没弄出来。还是自己动手吧，有问题就得想办法，一步步来吧。

先在SQL 2000中写好存储过程了，（这里不再写出存储过程的具体代码了，也就是一个返回值，一个记录集）然后在VB中引用ADO对象，输入如下代码，以调用存储过程：
Dim lackconn As New ADODB.Connection
lackconn.ConnectionString=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=boyd;Initial Catalog=mydb;Data Source=(local)
lackconn.CursorLocation = adUseClient '设置为客户端
lackconn.Open

Set lackcmd = New ADODB.Command
lackcmd.ActiveConnection = lackconn
lackcmd.CommandText = myproc '这里为存储过程名称
lackcmd.CommandType = adCmdStoredProc '指定为存储过程
Set param = lackcmd.CreateParameter(@num, adInteger, adParamReturnValue, 4) '@num为返回值
lackcmd.Parameters.Append param
Set lackrs = New ADODB.Recordset
Set lackrs = lackcmd.Execute()
msgbox 站点总数： & lackcmd.Parameters(@num).Value & 个

Set mydatagrid.DataSource = lackrs 'mydatagrid为对象名称
mydatagrid.Refresh '刷新DataGrid
'下面关闭数据库对象等略去

就这样的一个简单的代码，一运行就出错，提示错误在“Set mydatagrid.DataSource = lackrs”，错误就是“对象关闭时，不允许操作”。郁闷ing...，这哪来的错误呢？我根本没关闭数据库连接，其他内容也是没有问题的呀。花了很长时间没能解决，大清早再打开电脑时，灵机一动，搞定了。这里将这种现象作下总结，顺便记录一下本次解决过程。

产生这种现象有几种原因：
1、数据库对象连接被关闭了，这肯定会报错的，当然也不能输出任何结果的，这时只需注意“先使用、后关闭”就行了，解决这样的问题就是暂时先不要关闭数据库连接就行了。

2、返回记录为空时，也会报错。如下面的代码
sql = select * from dbcn where 状态='0'
Set rs = conn.Execute(sql)
If Not rs.EOF Then
For m = 1 To rs.RecordCount
List_status.AddItem rs(1) & （ & rs(2) & ）： & rs(4)
rs.MoveNext
Next m
End If
如果没有数据的话，这里也会提示这样的错误，将查询代码放到SQL查询分析器里运行一下，果然没有数据，呵呵。当然这样的错误可以采用一些方法排除或过滤的。

3、这就是我这次所遇到的问题的中心了，我们将目光转向存储过程。的确，在SQL查询分析器里，存储过程是正常运行，而且不会报错，也有数据。但仔细想想，因为在存储过程可能包含了有关SQL语句影响行数的信息，这样一来也就可能会导致这样的情况。
打开存储过程，在begin后面加上一句代码：set nocount on，屏蔽掉这些信息。OK，VB中的程序巳经能够正常运行了，而且数据也是正常的。

顺便解释一下吧，打开查询分析器中的帮助，查找一下有关set nocount on的信息，我们会找到这些东西：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
SET NOCOUNT
使返回的结果中不包含有关受 Transact-SQL 语句影响的行数的信息。
语法
SET NOCOUNT
注释
当 SET NOCOUNT 为 ON 时，不返回计数（表示受 Transact-SQL 语句影响的行数）。当 SET NOCOUNT 为 OFF 时，返回计数。
即使当 SET NOCOUNT 为 ON 时，也更新 @@ROWCOUNT 函数。
当 SET NOCOUNT 为 ON 时，将不给客户端发送存储过程中的每个语句的 DONE_IN_PROC 信息。当使用 Microsoft® SQL Server™ 提供的实用工具执行查询时，在 Transact-SQL 语句（如 SELECT、INSERT、UPDATE 和 DELETE）结束时将不会在查询结果中显示nn rows affected。
如果存储过程中包含的一些语句并不返回许多实际的数据，则该设置由于大量减少了网络流量，因此可显著提高性能。
SET NOCOUNT 设置是在执行或运行时设置，而不是在分析时设置。
权限
SET NOCOUNT 权限默认授予所有用户。
示例
下例在 osql 实用工具或 SQL Server 查询分析器中执行时，可防止显示有关受影响的行数的信息。
USE pubs
GO
-- Display the count message.
SELECT au_lname
FROM authors
GO
USE pubs
GO
-- SET NOCOUNT to ON and no longer display the count message.
SET NOCOUNT ON
GO
SELECT au_lname
FROM authors
GO
-- Reset SET NOCOUNT to OFF.
SET NOCOUNT OFF
GO

这里点到为止吧，具体的解释我想MS的帮助会比我说的更专业更清楚些，参考下吧。