沙场主持人吴子夜图片:ADODB.Recordset (0x800A0E7D)连接无法用于执行此操作。在此上下文中它可能已被关闭或无效

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/14 23:23:47
<!--#include file = "Inc/DBClass.inc.asp"-->
<%
Dim s_keyword, s_cataid, s_RootID
s_keyword = GetSafeStr(Trim(Request("keyword")))
s_cataid = GetSafeStr(Trim(Request("cataid")))

'当然更改为其他跟栏目的时候，只需要适当的更改下面的值，就可以实现不同栏目。
s_RootID = "A"

If s_cataid = "" Then
s_cataid = s_RootID
End If

'检测当前类别类别的合法性，其实我感觉检测与否对系统影响不大

Dim bRs, bSql
Set bRs = Server.CreateObject( "ADODB.Recordset" )
bSql = "SELECT * FROM NewsCata Where C_RootID = '"&s_cataid&"'"
bRs.Open bSql, oConn, 0, 1
If bRs.Eof Then
GoError "请通过页面上的链接进行操作，不要试图进行任何非法操作。"
End If
bRs.Close
Set bRs = Nothing

Dim Pmcount,Pageno
'//设置文章显示数量
Pmcount = News_Front_Count
%>
帮我解决一下，谢谢了，出错是在bRs.Open bSql, oConn, 0, 1这句！

这句：
bRs.Open bSql, oConn, 0, 1

换成：
bRs.Open bSql, oConn, 1, 1

bRs.Open bSql, oConn, 0, 1
这里的参数0是记录集指阵,改成1为,指针按顺序移动,后面的1是值数据库操作限制,1为只读,3为所有人修改

你可以去看一下rs的记录集的参数

ADODB.Recordset (0x800A0E79) ADODB.Recordset (0x800A0BCD) ADODB.Recordset (0x800A0E78) ADODB.Recordset (0x800A0CB3) ADODB.Recordset (0x800A0BB9) ADODB.Recordset (0x800A0BB9)问题 ADODB.Recordset 错误 (0x800A0BB9) ADODB.Recordset (0x800A0BB9)问题 ADODB.Recordset (0x800A0E79)错误 错误类型：ADODB.Recordset (0x800A0E7D)