文章列表类别(71)

                        divstyle = " class=""" & Trim(styles) & "1"""
                    Else
                        divstyle = " class=""" & Trim(styles) & "2"""
                    End If
                End If

                NewsTitle = Newasp.GotTopic(Rs("SoftName") & " " & Rs("SoftVer"), CInt(maxlen))
                NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs("ColorMode"), Rs("FontMode"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("SoftID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath) & HtmlFileName
                Else
                    HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("softid")
                End If
                If CInt(showhits) > 0 Then
                    AllHits = Rs(strHits)
                Else
                    AllHits = ""
                End If