文章列表类别(59)

            Case 2: foundstr = "ORDER BY A.AllHits DESC ,A.softid DESC"
            Case 3: foundstr = "And A.ClassID in (" & ChildStr & ") ORDER BY A.SoftTime DESC ,A.softid DESC"
            Case 4: foundstr = "And A.ClassID in (" & ChildStr & ") And A.isBest > 0 ORDER BY A.SoftTime DESC ,A.softid DESC"
            Case 5: foundstr = "And A.ClassID in (" & ChildStr & ") ORDER BY A.AllHits DESC ,A.softid DESC"
        Case Else
            foundstr = "ORDER BY A.SoftTime DESC ,A.softid DESC"
        End Select
        If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
            foundstr = "ORDER BY A.SoftTime DESC ,A.softid DESC"
        End If
        If CLng(specid) > 0 Then
            foundstr = "And A.SpecialID =" & CLng(specid) & " " & foundstr
        End If
        SQL = " A.softid,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,"
        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 & " " & foundstr & ""
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "还没有添加任何软件！"