错误 '800a0e7d' 连接无法用于执行此操作？为什么

你找到edit目录下的include目录下的Startup.asp这个文件，然后把下面的代码复制替换掉里面的代码； <%@ Language=VBScript CODEPAGE=936%><% Option Explicit %><%' ============================================' 常用全局变量' ============================================' 数据库对象Dim oConn, oRs, sSql' ============================================' 初始数据处理' ============================================' 执行每天只需处理一次的事件'Call BrandNewDay()' 初始化数据库连接'Call DBConnBegin()' ********************************************' 以下为初始函数' ********************************************' ============================================' 执行每天只需处理一次的事件' ============================================Sub BrandNewDay()Dim sDate, y, m, d, wDim sDateChinesesDate = Date()If Application("date_today") = sDate Then Exit Sub y = CStr(Year(sDate))m = CStr(Month(sDate))If Len(m) = 1 Then m = "0" & md = CStr(Day(sDate))If Len(d) = 1 Then d = "0" & dw = WeekdayName(Weekday(sDate))sDateChinese = y & "年" & m & "月" & d & "日 " & w Application.LockApplication("date_today") = sDateApplication("date_chinese") = sDateChinese '今天的中文样式Application.UnlockEnd Sub ' ********************************************' 以下为数据库相关函数' ********************************************' ============================================' 初始化数据库连接对象' 使用原则：最迟调用，最早释放' ============================================Sub DBConnBegin()' 如果数据库对象已打开，不要再打开If IsObject(oConn) = True Then Exit Sub ' 你可以不需要打开数据库连接对象而直接打开记录集对象，但如果你需要打开多个记录集对象的话，效率是很低的。' 如果你不创建一个数据库连接对象，ADO会在每个记录集打开时自动创建一个新的数据库连接对象，就算你用的是相同的SQL语句。Set oConn = Server.CreateObject("ADODB.Connection") On Error Resume Next' Access数据库oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/ewebeditor.mdb")' SQL Server 2000数据库'oConn.Open "Provider=SQLOLEDB.1;Server=localhost;UID=ewebeditor;PWD=123456;Database=ewebeditor"If Err.Number > 0 Then' 显示错误信息,并且发送邮件通知管理员'Call DBConnError(Err)' 完全地退出正在运行的脚本Response.EndEnd If ' 创建一个记录集Set oRs = Server.CreateObject( "ADODB.Recordset" )End Sub' ============================================' 释放数据库连接对象' ============================================Sub DBConnEnd()On Error Resume NextoRs.CloseSet oRs = NothingoConn.CloseSet oConn = NothingEnd Sub ' ********************************************' 以下为常用函数' ********************************************' ============================================' 错误返回处理' ============================================Sub Go_Error(str)Call DBConnEnd()Response.Write "<script language=javascript>alert('" & str & "\n\n系统将自动返回前一页面...');history.back();</script>"Response.EndEnd Sub' ============================================' 格式化时间(显示)' 参数：n_Flag' 1:"yyyy-mm-dd hh:mm:ss"' 2:"yyyy-mm-dd"' 3:"hh:mm:ss"' 4:"yyyy年mm月dd日"' 5:"yyyymmdd"' ============================================Function Format_Time(s_Time, n_Flag)Dim y, m, d, h, mi, sFormat_Time = ""If IsDate(s_Time) = False Then Exit Functiony = cstr(year(s_Time))m = cstr(month(s_Time))If len(m) = 1 Then m = "0" & md = cstr(day(s_Time))If len(d) = 1 Then d = "0" & dh = cstr(hour(s_Time))If len(h) = 1 Then h = "0" & hmi = cstr(minute(s_Time))If len(mi) = 1 Then mi = "0" & mis = cstr(second(s_Time))If len(s) = 1 Then s = "0" & sSelect Case n_FlagCase 1' yyyy-mm-dd hh:mm:ssFormat_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & sCase 2' yyyy-mm-ddFormat_Time = y & "-" & m & "-" & dCase 3' hh:mm:ssFormat_Time = h & ":" & mi & ":" & sCase 4' yyyy年mm月dd日Format_Time = y & "年" & m & "月" & d & "日"Case 5' yyyymmddFormat_Time = y & m & dEnd SelectEnd Function' ============================================' 把字符串进行HTML解码,替换server.htmlencode' 去除Html格式，用于显示输出' ============================================Function outHTML(str)Dim sTempsTemp = stroutHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd IfsTemp = Replace(sTemp, "&", "&")sTemp = Replace(sTemp, "<", "<")sTemp = Replace(sTemp, ">", ">")sTemp = Replace(sTemp, Chr(34), """)sTemp = Replace(sTemp, Chr(10), "<br>")outHTML = sTempEnd Function' ============================================' 去除Html格式，用于从数据库中取出值填入输入框时' 注意：value="?"这边一定要用双引号' ============================================Function inHTML(str)Dim sTempsTemp = strinHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd IfsTemp = Replace(sTemp, "&", "&")sTemp = Replace(sTemp, "<", "<")sTemp = Replace(sTemp, ">", ">")sTemp = Replace(sTemp, Chr(34), """)inHTML = sTempEnd Function' ============================================' 检测上页是否从本站提交' 返回:True,False' ============================================Function IsSelfRefer()Dim sHttp_Referer, sServer_NamesHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name ThenIsSelfRefer = TrueElseIsSelfRefer = FalseEnd IfEnd Function' ============================================' 得到安全字符串,在查询中使用' ============================================Function Get_SafeStr(str)Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")End Function' ============================================' 取实际字符长度' ============================================Function Get_TrueLen(str)Dim l, t, c, il = Len(str)t = lFor i = 1 To lc = Asc(Mid(str, i, 1))If c < 0 Then c = c + 65536If c > 255 Then t = t + 1NextGet_TrueLen = tEnd Function' ============================================' 判断是否安全字符串,在注册登录等特殊字段中使用' ============================================Function IsSafeStr(str)Dim s_BadStr, n, is_BadStr = "' 　&<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)n = Len(s_BadStr)IsSafeStr = TrueFor i = 1 To nIf Instr(str, Mid(s_BadStr, i, 1)) > 0 ThenIsSafeStr = FalseExit FunctionEnd IfNextEnd Function%>另外，你找一下edit/db/ewebeditor.mdb这个文件是否存在

错误 '800a0e7d' 连接无法用于执行此操作？为什么

2回答