文章列表类别(62)

            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                strPicture = "<img src='" & Newasp.SiteUrl & Newasp.InstallDir & "images/no_pic.gif' width=""" & width & """ height=""" & height & """  hspace=""" & hspace & """ vspace=""" & vspace & """ align=""" & align & """ border=""0"">"
            Else
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("softid"), 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("softid")
                End If
                SoftImage = Newasp.GetImageUrl(Rs("SoftImage"), Newasp.ChannelData(1))
                sExtName = Split(Rs("SoftImage"), ".")
                ExtName = sExtName(UBound(sExtName))
                Select Case LCase(ExtName)
                Case "swf", "swi"
                    strPicture = "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""" & width & """ height=""" & height & """ hspace=""" & hspace & """ vspace=""" & vspace & """ align=""" & align & """>" & vbNewLine