newasp中main类(11)

        Set Rs = Execute(SQL)
        If Rs.BOF And Rs.EOF Then
            Response.Write "错误的频道参数！"
            Exit Sub
        End If
        Value = Rs.GetRows(1)
        Set Rs = Nothing
    End Sub
    '=============================================================
    '过程名：ReadChannel
    '作  用：读取频道设置
    '参  数：ChannelID   ----频道ID
    '=============================================================
    Public Sub ReadChannel(ChannelID)
        On Error Resume Next
        If Not IsNumeric(ChannelID) Then ChannelID = 1
        ChannelID = Clng(ChannelID)
        Name = "Channel" & ChannelID
        If ObjIsEmpty() Then Call ReloadChannel(ChannelID)
        CacheChannel = Value
        If CLng(CacheChannel(0, 0)) <> ChannelID Then
            Call ReloadChannel(ChannelID)
            CacheChannel = Value
        End If
        ChannelName = CacheChannel(1, 0): ChannelDir = CacheChannel(2, 0): StopChannel = CacheChannel(3, 0): ChannelType = CacheChannel(4, 0): modules = CacheChannel(5, 0): ModuleName = CacheChannel(6, 0): BindDomain = CacheChannel(7, 0): DomainName = CacheChannel(8, 0): ChannelSkin = CacheChannel(9, 0): HtmlPath = CacheChannel(10, 0)
        HtmlForm = CacheChannel(11, 0): IsCreateHtml = CacheChannel(12, 0): HtmlExtName = CacheChannel(13, 0): HtmlPrefix = CacheChannel(14, 0): StopUpload = CacheChannel(15, 0): MaxFileSize = CacheChannel(16, 0): UpFileType = CacheChannel(17, 0): IsAuditing = CacheChannel(18, 0): AppearGrade = CacheChannel(19, 0)