中国古代文字图片大全:ADODB.Recordset 错误 '800a0e7d'

ADODB.Recordset 错误 '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

/editor/ewebeditor.jsp，行 203

' 初始化数据库连接
Call DBConnBegin()

sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
oRs.Open sSql, oConn, 0, 1 (显示这一行出现问题)
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")
sAutoRemote = CStr(oRs("S_AutoRemote"))
sShowBorder = CStr(oRs("S_ShowBorder"))
sDetectFromWord = oRs("S_DetectFromWord")
sInitMode = oRs("S_InitMode")
sBaseUrl = oRs("S_BaseUrl")
sBaseHref = oRs("S_BaseHref")
Else
ShowErr "无效的样式Style参数传入，如果要使用默认值，请留空！"
End If

oRs.Close

' 取版本号及发布日期
sSql = "select sys_version,sys_releasedate,sys_license from ewebeditor_system"
oRs.Open sSql, oConn, 0, 1
sVersion = oRs(0)
sReleaseDate = oRs(1)
sLicense = oRs(2)
oRs.Close

' 取所有按钮
Call InitButtonArray()
' 取样式下的工具栏及按钮
Call InitToolBar()
' 断开数据库连接
Call DBConnEnd()

If sFullScreen = "1" Then
sToolBar = sToolBarFullScreen
Else
sToolBar = sToolBarNormal
End If

n_Application = n_Application + 1
If n_Application = 1 Then
Redim aApplicationName(1)
Redim aApplicationUrl(1)
Else
Redim Preserve aApplicationName(n_Application)
Redim Preserve aApplicationUrl(n_Application)
End If
Redim aApplicationValue(16)
s_ApplicationName = "eWebEditor" & n_Application
aApplicationName(n_Application) = s_ApplicationName
aApplicationUrl(n_Application) = s_SelfUrl
aApplicationValue(0) = sStyleID
aApplicationValue(1) = sStyleName
aApplicationValue(2) = sStyleDir
aApplicationValue(3) = sStyleCSS
aApplicationValue(4) = sStyleUploadDir
aApplicationValue(5) = nStateFlag
aApplicationValue(6) = sDetectFromWord
aApplicationValue(7) = sInitMode
aApplicationValue(8) = sBaseUrl
aApplicationValue(9) = sVersion
aApplicationValue(10) = sReleaseDate
aApplicationValue(11) = sLicense
aApplicationValue(12) = sToolBarNormal
aApplicationValue(13) = sToolBarFullScreen
aApplicationValue(14) = sBaseHref
aApplicationValue(15) = sAutoRemote
aApplicationValue(16) = sShowBorder

Application.Lock
Application("eWebEditor_ApplicationName") = aApplicationName
Application("eWebEditor_ApplicationUrl") = aApplicationUrl
Application(s_ApplicationName) = aApplicationValue
Application.Unlock

End Sub
' 初始化数据库连接
'Call DBConnBegin()

' ********************************************
' 以下为初始函数
' ********************************************
' ============================================
' 执行每天只需处理一次的事件
' ============================================
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