ADODB.Recordset 错误 '800a0e78'问题，帮忙解决下

来源：百度知道 编辑：UC知道 时间：2024/06/04 11:14:54
ADODB.Recordset 错误 '800a0e78'

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

/htmledit/Include/Startup.asp，行 36

麻烦帮忙解决下

<%
Dim oConn, oRs, sSql
Sub BrandNewDay()
Dim sDate, y, m, d, w
Dim sDateChinese
sDate = Date()
If Application("date_today") = sDate Then Exit Sub

y = CStr(Year(sDate))
m = CStr(Month(sDate))
If Len(m) = 1 Then m = "0" & m
d = CStr(Day(sDate))
If Len(d) = 1 Then d = "0" & d
w = WeekdayName(Weekday(sDate))
sDateChinese = y & "年" & m & "月" & d & "日 " & w

Application.Lock
Application("date_today") = sDate
Application("date_chinese") = sDateChinese '今天的中文样式
Application.Unlock
End Sub
Sub DBConnBegin()
If IsObject(oConn) = True Then Exit Sub
Set oConn = Server.CreateObject("ADODB.Connection")
''on error re

Set objRS=Server.CreateObject("ADODB.Recordset")
objrs.activeconnection=objConn
objrs.Source="SELECT * from sreport"&_
"where stid like '010011%'"&_
"order by coid,stid"
courseid =""
objrs.CursorType = 1
objrs.LockType = 1
objrs.open