文章列表类别(7)

                strContent = Replace(strContent, "{$AticleHits}", Rs("AllHits"))
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$BestCode}", BestCode)
                strContent = Replace(strContent, "{$BestString}", BestString)
            Rs.MoveNext
            i = i + 1
            Loop
            strContent = strContent & "</table>"
        End If

        Rs.Close: Set Rs = Nothing
        LoadArticleList = strContent
    End Function
    '================================================
    '函数名：ReadArticleList
    '作  用：读取文章列表
    '参  数：str ----原字符串
    '================================================
    Public Function ReadArticleList(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent
        Dim arrTempContent, arrTempContents, ArrayList
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadArticleList(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")