文章列表类别(11)

                If (j Mod 2) = 0 Then
                    ListStyle = Trim(styles) & 1
                Else
                    ListStyle = Trim(styles) & 2
                End If
                If CInt(SQL(9,i)) <> 0 Then
                    BestCode = 2
                    BestString = "<font color='" & Newasp.MainSetting(3) & "'>推荐</font>"
                Else
                    BestCode = 1
                    BestString = ""
                End If
                strContent = strContent & Newasp.MainSetting(14)
                strSoftName = Newasp.GotTopic(SQL(4,i) & " " & SQL(5,i), CInt(strLen))
                strSoftName = Newasp.ReadFontMode(strSoftName, SQL(2,i), SQL(3,i))
                ClassName = Newasp.ReadFontMode(SQL(10,i), SQL(11,i), SQL(12,i))
                HtmlFileName = Newasp.ReadFileName(SQL(8,i), SQL(0,i), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) <> 0 Then
                    HtmlFileUrl = Newasp.ChannelPath & SQL(13,i) & Newasp.ShowDatePath(SQL(8,i), Newasp.ChannelHtmlPath) & HtmlFileName