文章列表类别(37)

        End If
        ReadSoftPic = strTemp
    End Function
    '================================================
    '函数名：LoadFlashPic
    '作  用：装载动画图片列表
    '参  数：ClassID   ----分类ID
    '        ChannelID   ----频道ID
    '        sType   ----调用动画类型,0=所有最新动画，1=推荐动画，2=热门动画
    '        TopNum   ----显示动画列表数
    '        strlen   ----显示标题长度
    '        newindow   ----新窗口打开
    '================================================
    Public Function LoadFlashPic(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
        ByVal stype, ByVal TopNum, ByVal PerRowNum, ByVal strLen, ByVal newindow, _
        ByVal width, ByVal height, ByVal showtopic)

        Dim Rs, SQL, i, strContent, foundstr
        Dim strtitle, ChildStr, miniature, HtmlFileName
        Dim HtmlFileUrl, addTime, LinkTarget

        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)