文章列表类别(15)

    '参  数：ClassID   ----分类ID
    '        ChannelID   ----频道ID
    '        sType   ----调用类型
    '        TopNum   ----显示列表数
    '        strlen   ----显示标题长度
    '        ShowClass   ----是否显示分类
    '        ShowDate   ----是否显示日期
    '        DateMode   ----显示日期模式
    '        newindow   ----新窗口打开
    '================================================
    Public Function LoadFlashList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
        ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, _
        ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles)

        Dim Rs, SQL, i, strContent, foundstr,j
        Dim strTitle, ChildStr, ListStyle
        Dim HtmlFileName, BestCode, BestString,ChannelPath
        Dim ClassName, HtmlFileUrl, addTime, LinkTarget, FlashTopic

        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        SpecialID = Newasp.ChkNumeric(SpecialID)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        If CInt(stype) >= 3 And CLng(ClassID) <> 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=" & ChannelID & " And ClassID = " & ClassID
            Set Rs = Newasp.Execute(SQL)