文章列表类别(27)

                LoadArticlePic = ""
                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.ClassID in (" & ChildStr & ") Order By A.Writetime Desc ,A.Articleid Desc"
            Case 4: foundstr = "And A.ClassID in (" & ChildStr & ") And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
            Case 5: foundstr = "And A.ClassID in (" & ChildStr & ") Order By A.AllHits 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 If
        If CLng(SpecialID) <> 0 Then