文章列表类别(20)

                strContent = Replace(strContent, "{$ClassName}", ClassName)
                strContent = Replace(strContent, "[]", "")
                strContent = Replace(strContent, "{$Target}", LinkTarget)
                strContent = Replace(strContent, "{$addTime}", addTime)
                strContent = Replace(strContent, "{$FlashHits}", SQL(6,i))
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$BestCode}", BestCode)
                strContent = Replace(strContent, "{$BestString}", BestString)
            j = j + 1
            Next
            SQL=Null
            strContent = strContent & "</table>"
        End If
        Rs.Close: Set Rs = Nothing
        LoadFlashList = strContent
    End Function
    '================================================
    '函数名：ReadFlashList
    '作  用：读取动画列表
    '参  数：str ----原字符串
    '================================================
    Public Function ReadFlashList(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent
        Dim arrTempContent, arrTempContents, ArrayList
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadFlashList(") > 0 Then