文章列表类别(92)

            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = " & ChannelID & " And ClassID=" & ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                ChildStr = 0
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close: Set Rs = Nothing
            foundsql = "And ChannelID=" & ChannelID & " And ClassID in (" & ChildStr & ")"
        Else
            foundsql = "And ChannelID=" & ChannelID
        End If
        Select Case moduleid
        Case 1
            If stype = 1 Then
                If isSqlDataBase = 1 Then
                    SQL = "SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 " & foundsql & " And Datediff(d,WriteTime,GetDate())=0"
                Else
                    SQL = "SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 " & foundsql & " And WriteTime>=Date()"
                End If
            ElseIf stype = 2 Then
                SQL = "SELECT SUM(AllHits) FROM NC_Article WHERE isAccept>0 " & foundsql