文章列表类别(96)


            StatCount = 0
        Else
            StatCount = CCur(Rs(0))
            If (moduleid = 2 And stype = 3) Or (moduleid = 5 And stype = 3) Then
                StatCount = Round(StatCount / 1024 / 1024, 3)
                StatCount = FormatNumber(StatCount, 3, -1)
            End If
        End If
        Rs.Close: Set Rs = Nothing
        LoadStatistic = StatCount
    End Function
    '================================================
    '函数名:ReadStatistic
    '作  用:读取频道统计
    '参  数:str ----原字符串
    '================================================
    Public Function ReadStatistic(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        On Error Resume Next
        If InStr(strTemp, "{$ReadStatistic(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadStatistic(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadStatistic(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3583.html