提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”

提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”
你找到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, 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 ' ***************************************