文章列表类别(70)

        Case 2
            foundsql = foundsql & " ORDER BY A.WeekHits DESC ,A.softid DESC"
            strHits = "WeekHits"
        Case 3
            foundsql = foundsql & " ORDER BY A.MonthHits DESC ,A.softid DESC"
            strHits = "MonthHits"
        Case 4
            foundsql = foundsql & " And A.isBest>0 ORDER BY A.AllHits DESC ,A.softid DESC"
            strHits = "AllHits"
        Case Else
            foundsql = foundsql & "ORDER BY A.AllHits DESC ,A.softid DESC"
            strHits = "AllHits"
        End Select
        SQL = " A.softid,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,"
        SQL = "SELECT TOP " & CInt(maxline) & SQL & " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=" & chanid & " " & foundsql
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "还没有找到任何内容！"
        Else
            Do While Not Rs.EOF
                If Trim(styles) <> "" And Trim(styles) <> "0" Then
                    If (i Mod 2) = 0 Then