newasp中main类(52)

            Set Rs = Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                strContent = ""
            Else
            i = 0
            TotalNumber = Rs.RecordCount
            Do While Not Rs.EOF
                i = i + 1
                If Rs("LinkTarget") <> 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                HtmlContent = HtmlContent & Main_Setting(9)
                ChannelName = ReadFontMode(Rs("ChannelName"), Rs("ColorModes"), Rs("FontModes"))
                If Rs("ChannelType") < 2 Then
                    ChannelUrl = InstallDir & Rs("ChannelDir")
                Else
                    ChannelUrl = Rs("ChannelUrl")
                End If
                If Rs("StopChannel") <> 0 Then
                    sCaption = "此频道暂时关闭,不能访问！"
                Else