文章列表类别(47)

        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadFriendLink(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFriendLink(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFriendLink(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadFriendLink(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
            Next
        End If
        ReadFriendLink = strTemp
    End Function
    '================================================
    '函数名：PageRunTime
    '作  用：页面执行时间
    '================================================
    Public Function ExecutionTime()
        Dim Endtime
        ExecutionTime = ""
        If CInt(Newasp.IsRunTime) = 1 Then
            Endtime = Timer()
            ExecutionTime = "页面执行时间：" & FormatNumber((((Endtime - startime) * 5000) + 0.5) / 10, 3, -1) & "毫秒"
        Else
            ExecutionTime = ""
        End If
    End Function

    '================================================