文章列表类别

height=" & height & " border=0>"
Else
strContent = "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""3"">" & vbCrLf
Do While Not Rs.EOF
strContent = strContent & "<tr>" & vbCrLf
For i = 1 To CInt(PerRowNum)
strContent = strContent & "<td align=""center"" class=""imagelist"">"
If Not Rs.EOF Then
strtitle = Newasp.GotTopic(Rs("title"), CInt(strLen))
miniature = Newasp.GetImageUrl(Rs("miniature"), Newasp.ChannelData(1))
miniature = Newasp.GetFlashAndPic(miniature, height, width)
HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("flashid"), 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("flashid")
End If
If CInt(newindow) <> 0 Then
LinkTarget = " target=""_blank"""
Else
LinkTarget = ""
End If
strContent = strContent & Newasp.MainSetting(21)
strContent = Replace(strContent, "{$Miniature}", "<a href=''" & HtmlFileUrl & "'' title=''" & Rs("title") & "''" & LinkTarget & ">" & miniature & "</a>")
If CInt(showtopic) = 1 Then
strContent = Replace(strContent, "{$FlashTopic}", "<a href=''" & HtmlFileUrl & "'' title=''" & Rs("title") & "''" & LinkTarget & ">" & strtitle & "</a>")
Else
strContent = Replace(strContent, "{$FlashTopic}", vbNullString)
End If
strContent = strContent & "</td>" & vbCrLf
Rs.MoveNext
End If
Next
strContent = strContent & "</tr>" & vbCrLf
Loop
strContent = strContent & "</table>" & vbCrLf
End If
Rs.Close: Set Rs = Nothing
LoadFlashPic = strContent
End Function
''================================================
''函数名：ReadFlashPic
''作 用：读取动画图片列表
''参 数：str ----原字符串
''================================================
Public Function ReadFlashPic(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, "{$ReadFlashPic(") > 0 Then