文章列表类别(91)

            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadUserRank(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadUserRank(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
            Next
        End If
        ReadUserRank = strTemp
    End Function
    '================================================
    '函数名：LoadStatistic
    '作  用：装载频道统计
    '参  数：moduleid ----所属模块
    '        ChannelID ----频道ID
    '        strClass ----所调用的分类ID或者软件类型
    '        stype ----统计类型，0=全部统计，1=今日更新统计，2=点击数统计，3=软件容量统计
    '================================================
    Public Function LoadStatistic(ByVal moduleid, ByVal ChannelID, ByVal strClass, ByVal stype)

        moduleid = Newasp.CheckNumeric(moduleid)
        ChannelID = Newasp.CheckNumeric(ChannelID)
        stype = Newasp.CheckNumeric(stype)

        Dim Rs, SQL, StatCount
        Dim foundsql, ClassID, ChildStr

        ClassID = Newasp.CheckNumeric(strClass)
        On Error Resume Next
        LoadStatistic = 0
        If ClassID > 0 Then