文章列表类别(41)

                        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