文章列表类别(2)

        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"