newasp中main类(8)

        If Not IsObject(Conn) Then ConnectionDatabase        
        If IsDeBug = 0 Then 
            On Error Resume Next
            Set Execute = Conn.Execute(Command)
            If Err Then
                err.Clear
                Set Conn = Nothing
                Response.Write "查询数据的时候发现错误，请检查您的查询代码是否正确。<br /><li>"
                Response.Write Command
                Response.End
            End If
        Else
            Set Execute = Conn.Execute(Command)
        End If    
        SqlQueryNum = SqlQueryNum+1
    End Function

    Public Sub ReadConfig()
        On Error Resume Next
        Name = "Config"
        If ObjIsEmpty() Then ReloadConfig
        CacheData = Value
        '第一次起用系统或者重启IIS的时候加载缓存
        Name = "Date"
        If ObjIsEmpty() Then
            Value = Date
        Else
            If CStr(Value) <> CStr(Date) Then
                Name = "Config"
                Call ReloadConfig
                CacheData = Value