文章列表类别(40)

                        miniature = Newasp.GetFlashAndPic(miniature, height, width)
                        HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("flashid"), 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("flashid")
                        End If
                        If CInt(newindow) <> 0 Then
                            LinkTarget = " target=""_blank"""
                        Else
                            LinkTarget = ""
                        End If
                        strContent = strContent & Newasp.MainSetting(21)
                        strContent = Replace(strContent, "{$Miniature}", "<a href='" & HtmlFileUrl & "' title='" & Rs("title") & "'" & LinkTarget & ">" & miniature & "</a>")