ADODB.Recordset (0x800A0E7D) 高手解答一下（本地测试）

技术信息（用于支持人员）

• 错误类型：
  ADODB.Recordset (0x800A0E7D)
  连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
  /admin/htmledit/ewebeditor.asp, 第 151 行
• 浏览器类型：
  Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; TheWorld)
• 网页：
  GET /admin/htmledit/ewebeditor.asp

' 初始化输入参数
Sub InitPara()
' 取全屏标志
sFullScreen = Trim(Request.QueryString("fullscreen"))
' 取对应的内容ID
sContentID = Trim(Request.QueryString("id"))
If sContentID = "" Then ShowErr "请传入调用参数ID，即隐藏的内容表单项ID！"
' 取样式初始值
sStyleName = Trim(Request.QueryString("style"))
If sStyleName = "" Then sStyleName = "standard"
sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
oRs.Open sSql, oConn, 0, 1（这是151行）
If Not oRs.Eof Then
  sStyleID = oRs("S_ID")
  sStyleName = oRs("S_Name")
  sStyleDir = oRs("S_Dir")
  sStyleCSS = oRs("S_CSS")
  sStyleUploadDir = oRs("S_UploadDir")
  nStateFlag = oRs("S_StateFlag")
  sDetectFromWord = oRs("S_DetectFromWord")
  sInitMode = oRs("S_InitMode")
  sBaseUrl = oRs("S_BaseUrl")
  sStyleUploadDir = Replace(sStyleUploadDir, "\", "/")
  If Right(sStyleUploadDir, 1) <> "/" Then
   sStyleUploadDir = sStyleUploadDir & "/"
  End If
Else
  ShowErr "无效的样式Style参数传入，如果要使用默认值，请留空！"
End If
oRs.Close

应该是很简单的问题，是你
oRs.Open sSql, oConn, 0, 1（这是151行）
中 的 oConn可能提前关闭了
就是在这句以上有地方用了oConn.Close()或者 Set oConn = Nothing

2# zeroone
虽然我不会 但帮你顶下

是什么程序？  看你提供的是编辑器的问题  简单的方法就是下一个你相应程序的编辑器

0x800A0E7D说明你的Connection已经Close了或者是无效的，你把你的OpenConn方法改一下看看报什么错

首先：错误的是这行objRS.open strSQL,Conn,adOpenKeyset,adLockOptimistic, adCmdText因为上面一行跟错误提示无关。
其次：根据你的错误报告，只能推测可能是你的配置文件连接代码有问题，请仔细查看配置的这个文件的连接语句。如果解决不了，介意把配置文件给贴出来看看。

InitPara()
在调用这个过程的前面，你的数据库连接代码被关了，并不是错在115行，要在调用的地方找！

151 参数错误

151 参数错误 嘿嘿

151 参数错误 嘿嘿