文章列表类别(19)

                If CInt(showdate) <> 0 Then
                    addTime = Newasp.ShowDateTime(SQL(7,i), CInt(DateMode))
                Else
                    addTime = ""
                End If
                If CInt(newindow) <> 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                FlashTopic = "<a href='" & HtmlFileUrl & "'" & LinkTarget & " title='" & Newasp.ChannelModule & "名称：" & SQL(4,i) & " 发布时间：" & SQL(7,i) & " 下载次数：" & SQL(6,i) & "' class=showlist>" & strTitle & "</a>"
                strContent = Replace(strContent, "{$FlashTopic}", FlashTopic)
                strContent = Replace(strContent, "{$FlashID}", Rs("flashid"))
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$FlashTopic}", strTitle)
                strContent = Replace(strContent, "{$Title}", SQL(4,i))
                strContent = Replace(strContent, "{$DateAndTime}", SQL(7,i))
                strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)