文章列表类别

<%
Dim HTML
Set HTML = New NewaspPublic_Cls
Class NewaspPublic_Cls

    Private Sub Class_Initialize()
        On Error Resume Next
        Newasp.LoadTemplates 0, 0, 0
    End Sub
    '================================================
    '函数名：LoadArticleList
    '作  用：装载文章列表
    '参  数：ClassID   ----分类ID
    '        ChannelID   ----频道ID
    '        SpecialID  ----专题ID
    '        sType   ----调用文章类型,0=所有最新文章，1=推荐文章，2=热门文章，3=图文文章，4=分类最新文章
    '        TopNum   ----显示文章列表数
    '        strlen   ----显示标题长度
    '        ShowClass   ----是否显示分类
    '        ShowPic   ----是否显示图文标题
    '        ShowDate   ----是否显示日期
    '        DateMode   ----显示日期模式
    '        newindow   ----新窗口打开
    '================================================
    Public Function LoadArticleList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
        ByVal stype, ByVal TopNum, ByVal strLen, _
        ByVal showclass, ByVal showpic, ByVal showdate, _
        ByVal DateMode, ByVal newindow, ByVal styles)

        Dim Rs, SQL, i, strContent, foundstr
        Dim sTitle, sTopic, ChildStr, ListStyle, BestCode, BestString
        Dim ArticleTopic, ClassName, HtmlFileUrl, WriteTime, LinkTarget, HtmlFileName

        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) >= 4 And CLng(ClassID) <> 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=" & ChannelID & " And ClassID=" & ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadArticleList = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Set Rs = Nothing
        Else
            ChildStr = "0"
        End If

        Select Case CInt(stype)
            Case 0: foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
            Case 1: foundstr = "And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
            Case 2: foundstr = "Order By A.AllHits Desc ,A.Articleid Desc"
            Case 3: foundstr = "And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc"
            Case 4: foundstr = "And A.ClassID in (" & ChildStr & ") Order By A.Writetime Desc ,A.Articleid Desc"
            Case 5: foundstr = "And A.ClassID in (" & ChildStr & ") And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
            Case 6: foundstr = "And A.ClassID in (" & ChildStr & ") Order By A.AllHits Desc ,A.Articleid Desc"
            Case 7: foundstr = "And A.ClassID in (" & ChildStr & ") And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc"
        Case Else
            foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
        End Select
        If CInt(stype) >= 4 And CLng(ClassID) = 0 Then
            foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
        End&n