文章列表类别(63)

                    strPicture = strPicture & "     <param name=""movie"" value=""" & SoftImage & """>" & vbNewLine
                    strPicture = strPicture & "     <param name=""quality"" value=""high"">" & vbNewLine
                    strPicture = strPicture & "     <embed src=""" & SoftImage & """ width=""" & width & """ height=""" & height & """ hspace=""" & hspace & """ vspace=""" & vspace & """ align=""" & align & """ quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash""></embed>" & vbNewLine
                    strPicture = strPicture & "</object>" & vbNewLine
                Case Else
                    strPicture = "<a href=""" & HtmlFileUrl & """  target=""" & target & """ title=""" & Newasp.ChannelModule & "标题：" & Rs("SoftName") & " " & Rs("SoftVer") & " 发布时间：" & Rs("SoftTime") & " 阅览次数：" & Rs("AllHits") & """><img src=""" & SoftImage & """ width=""" & width & """ height=""" & height & """ hspace=""" & hspace & """ vspace=""" & vspace & """ align=""" & align & """ border=""0""></a>"
                End Select
            End If
            Rs.Close: Set Rs = Nothing
        Else
            strPicture = ""
        End If
        SoftPictureAndText = strPicture & strContent