文章列表类别(18)

                Else
                    BestCode = 1
                    BestString = ""
                End If
                strContent = strContent & Newasp.MainSetting(22)
                strTitle = Newasp.GotTopic(SQL(4,i), CInt(strLen))
                strTitle = Newasp.ReadFontMode(strTitle, 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
                    ClassName = "<a href='" & Newasp.ChannelPath & SQL(13,i) & "index" & Newasp.ChannelHtmlExt & "'>" & ClassName & "</a>"
                Else
                    HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & SQL(0,i)
                    ClassName = "<a href='" & Newasp.ChannelPath & "list.asp?classid=" & SQL(1,i) & "'>" & ClassName & "</a>"
                End If
                If CInt(showclass) = 0 Then ClassName = ""