文章列表类别(79)

            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=" & chanid & " And classid=" & ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadPopularFlash = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
                foundsql = "And A.ClassID in (" & ChildStr & ")"
            End If
            Rs.Close
        Else
            ChildStr = "0"
            foundsql = ""
        End If

        Select Case CInt(stype)
        Case 1
            foundsql = foundsql & " ORDER BY A.DayHits DESC ,A.flashid DESC"
            strHits = "DayHits"
        Case 2
            foundsql = foundsql & " ORDER BY A.WeekHits DESC ,A.flashid DESC"
            strHits = "WeekHits"
        Case 3
            foundsql = foundsql & " ORDER BY A.MonthHits DESC ,A.flashid DESC"
            strHits = "MonthHits"
        Case 4
            foundsql = foundsql & " And A.isBest>0 ORDER BY A.AllHits DESC ,A.flashid DESC"