文章列表类别(30)

                            strContent = Replace(strContent, "{$ArticleTopic}", "<a href='" & HtmlFileUrl & "' title='" & Rs("title") & "'" & LinkTarget & ">" & sTitle & "</a>")
                        Else
                            strContent = Replace(strContent, "{$ArticleTopic}", 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
        LoadArticlePic = strContent
    End Function
    '================================================
    '函数名：ReadArticlePic
    '作  用：读取文章图片列表
    '参  数：str ----原字符串
    '================================================
    Public Function ReadArticlePic(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent, ArrayList
        Dim arrTempContent, arrTempContents
        On Error Resume Next