文章列表类别(29)

                        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
                        Else
                            HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("ArticleID")
                        End If

                        If CInt(newindow) <> 0 Then
                            LinkTarget = " target=""_blank"""
                        Else
                            LinkTarget = ""
                        End If
                        strContent = strContent & Newasp.MainSetting(18)
                        strContent = Replace(strContent, "{$ArticlePicture}", "<a href='" & HtmlFileUrl & "' title='" & Rs("title") & "'" & LinkTarget & ">" & ImageUrl & "</a>")
                        If CInt(showtopic) = 1 Then