文章列表类别(5)

                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) <> 0 Then
                    HtmlFileUrl = Newasp.ChannelPath & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath) & HtmlFileName
                    ClassName = "<a href='" & Newasp.ChannelPath & Rs("HtmlFileDir") & "index" & Newasp.ChannelHtmlExt & "'>" & ClassName & "</a>"
                Else
                    HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("ArticleID")
                    ClassName = "<a href='" & Newasp.ChannelPath & "list.asp?classid=" & Rs("ClassID") & "'>" & ClassName & "</a>"
                End If

                If CInt(showclass) = 0 Then ClassName = ""
                If CInt(showpic) = 0 Then sTopic = ""
                If CInt(showdate) <> 0 Then
                    WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(DateMode))
                Else
                    WriteTime = ""
                End If
                If CInt(newindow) <> 0 Then