文章列表类别(8)

            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadArticleList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11)))
            Next
        End If
        ReadArticleList = strTemp
    End Function
    '================================================
    '函数名：LoadSoftList
    '作  用：装载软件列表
    '参  数：ClassID   ----分类ID
    '        ChannelID   ----频道ID
    '        sType   ----调用类型
    '        TopNum   ----显示列表数
    '        strlen   ----显示标题长度
    '        ShowClass   ----是否显示分类
    '        ShowDate   ----是否显示日期
    '        DateMode   ----显示日期模式
    '        newindow   ----新窗口打开
    '================================================
    Public Function LoadSoftList(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 strSoftName, ChildStr, ListStyle
        Dim HtmlFileName, BestCode, BestString,ChannelPath