newasp中main类(53)

                    sCaption = Rs("Caption")
                End If
                strContent = "<a href=""" & ChannelUrl & """" & LinkTarget & " title=""" & sCaption & """ class=navmenu>" & ChannelName & "</a>"
                If i Mod CInt(Main_Setting(8)) = 0 Then strContent = strContent & "<br>"
                HtmlContent = Replace(HtmlContent, "{$ChannelMenu}", strContent)    
            Rs.MoveNext
            Loop
            End If
            Rs.Close: Set Rs = Nothing
            'Value = strContent
        End If
        'strContent = Value

        ChannelMenu = HtmlContent
    End Function
    '=============================================================
    '函数名：LoadSelectClass
    '作  用：载入缓存下拉分类列表
    '参  数：ChannelID   ----频道ID
    '返回值：下拉分类列表
    '=============================================================
    Public Function LoadSelectClass(ChannelID)
        Dim CacheSelClass, SQL, Rs1, i

        Name = "SelectClass" & ChannelID
        If ObjIsEmpty() Then
            SQL = "select ClassID,ClassName,depth,TurnLink,child from NC_Classify where ChannelID = " & ChannelID & " order by rootid,orders"
            Set Rs1 = Execute(SQL)