文章列表类别(78)

            Next
        End If
        ReadPopularArticle = strTemp
    End Function
    '================================================
    '函数名：LoadPopularFlash
    '作  用：装载排行动画列表
    '参  数：ClassID   ----分类ID
    '        chanid   ----频道ID
    '        stype   ----调用类型
    '        maxline   ----显示列表数
    '        maxlen   ----显示标题长度
    '        showhits   ----是否显示下载数
    '        target   ----连接目标
    '        start   ----标题头标记
    '        styles   ----样式名称
    '================================================
    Public Function LoadPopularFlash(ByVal chanid, ByVal ClassID, ByVal stype, _
        ByVal maxlen, ByVal maxline, ByVal showhits, _
        ByVal target, ByVal start, ByVal styles)

        Dim SQL, Rs, foundsql, strHits
        Dim ChildStr, i, strContent
        Dim HtmlFileName, HtmlFileUrl
        Dim NewsTitle, AllHits, strtitle
        Dim divstyle

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        stype = Newasp.ChkNumeric(stype)
        If chanid = 0 Then chanid = 1

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CLng(ClassID) > 0 And Trim(ClassID) <> "" Then