文章列表类别(31)

        strTemp = str
        If InStr(strTemp, "{$ReadArticlePic(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticlePic(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticlePic(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadArticlePic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadArticlePic = strTemp
    End Function
    '================================================
    '函数名：LoadSoftPic
    '作  用：装载软件图片列表
    '参  数：ClassID   ----分类ID
    '        ChannelID   ----频道ID
    '        sType   ----调用软件类型,0=所有最新软件，1=推荐软件，2=热门软件
    '        TopNum   ----显示软件列表数
    '        strlen   ----显示标题长度
    '        newindow   ----新窗口打开
    '================================================
    Public Function LoadSoftPic(ChannelID, ClassID, SpecialID, stype, TopNum, PerRowNum, strLen, newindow, width, height, showtopic)
        Dim Rs, SQL, i, strContent, foundstr