文章列表类别(87)

                strContent = Replace(strContent, "[]", "")
                strContent = Replace(strContent, "{$Target}", LinkTarget)
                strContent = Replace(strContent, "{$SoftTime}", SoftTime)
                strContent = Replace(strContent, "{$SoftHits}", 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
        Set Rs = Nothing
        LoadSoftType = strContent
    End Function
    '================================================
    '函数名：ReadSoftType
    '作  用：读取软件类型列表
    '参  数：str ----原字符串
    '================================================
    Public Function ReadSoftType(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadSoftType(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftType(", ")}", 1)