文章列表类别(4)

            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
                    BestCode = 1
                    BestString = ""
                End If

                strContent = strContent & Newasp.MainSetting(13)

                sTitle = Newasp.GotTopic(Rs("title"), CInt(strLen))
                sTitle = Newasp.ReadFontMode(sTitle, Rs("ColorMode"), Rs("FontMode"))
                sTopic = Newasp.ReadPicTopic(Rs("BriefTopic"))

                ClassName = Newasp.ReadFontMode(Rs("ClassName"), Rs("ColorModes"), Rs("FontModes"))