文章列表类别(86)

                If CInt(showdate) <> 0 Then
                    SoftTime = Newasp.ShowDateTime(Rs("SoftTime"), CInt(DateMode))
                Else
                    SoftTime = ""
                End If
                If CInt(newindow) <> 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If

                SoftTopic = "<a href='" & HtmlFileUrl & "'" & LinkTarget & " title='" & Newasp.ChannelModule & "名称：" & Rs("SoftName") & " 发布时间：" & Rs("SoftTime") & " 下载次数：" & Rs("AllHits") & "' class=showlist>" & strSoftName & "</a>"
                strContent = Replace(strContent, "{$SoftTopic}", SoftTopic)
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$SoftName}", strSoftName)
                strContent = Replace(strContent, "{$Title}", Rs("SoftName"))
                strContent = Replace(strContent, "{$DateAndTitle}", Rs("SoftTime"))
                strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
                strContent = Replace(strContent, "{$ClassName}", ClassName)