asp调用存储过程返回记录集

[qwe7054782]

<!-- #include virtual = "/include/function.asp" -->
<!-- #include file = "../admin_top.asp" -->

<%
dim rs
dim lb
dim sql
dim gsmc
dim rq
lb=replace(trim(request.Form("lb")),"","")
gsmc="公司"
rq=replace(trim(request.form("rq")),"","")
response.Write(rq)
' 声明一个Command 对象
Set Cmd = Server.CreateObject("ADODB.Command")' 指明Cmd对象的数据库联接对象
Set Cmd.ActiveConnection = Conn' 命令文本即存储过程名
If lb="公司" Then
Cmd.CommandText = "qyBbglNhhzb"
gsmc=Session("nei")
else
Cmd.CommandText = "qyBbglWhhzb"
gsmc=Session("wai")
end if
response.Write(gsmc)
Cmd.CommandType = "4"' 指明命令的类型是存储过程(*)
Cmd.Parameters.Refresh' 刷新并清空参数
Cmd.Parameters("@rq").Value = rq' 给存储过程里面的输入参数赋值
Cmd.Execute' 执行存储过程
set rs = server.createobject("adodb.recordset")
rs.Open Cmd,,3,1
response.write rs.recordcount
response.end
' 储存存储过程返回的结果
%>


<table width="80%" border=1 align="center" cellpadding="1" cellspacing="0" bordercolor="<%=AdminTableBorderColor%>" bgcolor="<%=AdminTableBgcolor%>" class="TableLine">
<Tr>
<td height="25" colspan="7"><p align="center">存款收支表(<%=lb %>) <%=rq%></p></td>
</tr>
<tr>
<td height="25" align="center"><div align="center">公司名称</div></td>
<td height="25" align="center"><div align="center">昨日余额</div></td>
<td height="25" align="center"><div align="center">本月收入</div></td>
<td height="25" align="center"><div align="center">本月指出</div></td>
<td height="25" align="center"><div align="center">本月累计收入</div></td>
<td height="25" align="center"><div align="center">本月累计支出</div></td>
<td height="25" align="center"><div align="center">本月结存</div></td>
</tr>
<Tr>
<td height="25" align="center"><div align="center"><%=rs("gsmc")%></div></td>
<td height="25" align="center"><div align="center"><%=rs("zrye")%></div></td>
<td height="25" align="center"><div align="center"><%=rs("brsr")%></div></td>
<td height="25" align="center"><div align="center"><%=rs("brzc")%></div></td>
<td height="25" align="center"><div align="center"><%=rs("byljsr")%></div></td>
<td height="25" align="center"><div align="center"><%=rs("byljzc")%></div></td>
<td height="25" align="center"><div align="center"><%=rs("brjc")%></div></td>
</tr>
</table>

<%
Set Cmd = Nothing
Set Rs = Nothing
Set Conn = Nothing
%>


老是提示
ADODB.Recordset 错误 '800a0e78'

对象关闭时，不允许操作。

/admin/rbb/ribaobiao.asp，行 31

[ld2099]

RS.open cmd,Conn,1,3

[lihuijian]

http://topic.csdn.net/u/20080601/11/a7a85aa3-cc04-4127-9ffc-a11c81b3379b.html参考这个地址看看，返回内容分为返回值或返回记录集的，如果是记录集，存储过程要加set nocount on