文章列表类别(56)

                    strPicture = strPicture & "     <embed src=""" & ImageUrl & """ 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("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & """><img src=""" & ImageUrl & """ 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
        NewsPictureAndText = strPicture & strContent
    End Function
    '================================================
    '函数名：ReadNewsPicAndText
    '作  用：读取图文混排列表
    '参  数：str ----原字符串
    '================================================
    Public Function ReadNewsPicAndText(ByVal str)
        Dim strTemp, i, sTempContent