文章列表类别

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
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
End Function
''================================================
''函数名：ReadSoftPicAndText
''作 用：读取软件图文混排列表
''参 数：str ----原字符串
''================================================
Public Function ReadSoftPicAndText(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents

strTemp = str
If InStr(strTemp, "{$SoftPictureAndText(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$SoftPictureAndText(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$SoftPictureAndText(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), SoftPictureAndText(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayLi