文章列表类别(84)

        Else
            foundsql = "Order By A.SoftTime Desc ,A.SoftID Desc"
        End If

        SQL = " A.SoftID,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.SoftType,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,"
        SQL = "SELECT TOP " & maxline & SQL & " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml 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
            strContent = "<table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            Do While Not Rs.EOF
                If (i Mod 2) = 0 Then
                    ListStyle = Trim(styles) & 1
                Else
                    ListStyle = Trim(styles) & 2
                End If
                If Rs("isBest") <> 0 Then
                    BestCode = 2
                    BestString = "<font color='" & Newasp.MainSetting(3) & "'>推荐</font>"
                Else