文章列表类别(6)

                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                ArticleTopic = "<a href='" & HtmlFileUrl & "'" & LinkTarget & " title='" & Newasp.ChannelModule & "标题：" & Rs("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & "' class=showlist>" & sTitle & "</a>"
                strContent = Replace(strContent, "{$ArticleTopic}", ArticleTopic)
                strContent = Replace(strContent, "{$ArticleID}", Rs("ArticleID"))
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$ArticleTitle}", sTitle)
                strContent = Replace(strContent, "{$Title}", Rs("title"))
                strContent = Replace(strContent, "{$DateAndTitle}", Rs("WriteTime"))
                strContent = Replace(strContent, "{$BriefTopic}", sTopic)
                strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
                strContent = Replace(strContent, "{$ClassName}", ClassName)
                strContent = Replace(strContent, "[]", "")
                strContent = Replace(strContent, "{$Target}", LinkTarget)
                strContent = Replace(strContent, "{$WriteTime}", WriteTime)