文章列表类别

t;" & vbNewLine
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
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, "{$NewsPictureAndText(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$NewsPictureAndText(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$NewsPictureAndText(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), NewsPictureAndText(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11), ArrayList(12), ArrayList(13), ArrayList(14), ArrayList(15), ArrayList(16), ArrayList(17)))
Next
End If
ReadNewsPicAndText = strTemp
End Function
''================================================
''函数名：SoftPictureAndText
''作 用：软件图文混排列表
''================================================
Public Function SoftPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, _
ByVal stype, ByVal height, ByVal width, ByVal maxlen, _
ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, _
ByVal divcss, ByVal target, ByVal start, ByVal showpic, _
ByVal showclass, ByVal showdate, ByVal dateformat)

Dim Rs, SQL, i, strContent, foundst