ASP程序代码实行时间统计类

第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等.

代码如下:

Class ccClsProcessTimeRecorder

'程序作者:明月星光

'作者主页:http://www.5iya.com/blog

'http://www.kuozhanming.com

'ASP程序代码执行时间统计类

  Private ccInti,ccIntNonceTime,ccIntDecimal

  Private ccIntStartTime,ccIntEndTime,ccIntNow,ccIntNonce

  Private ccStrInterval,ccStrEvent,ccStrTime,ccStrStatisticLog,ccStrFormatInterval

  Private ccArrEvent,ccArrTime

  Private Sub Class_Initialize

    ccStrInterval = "|"  '默认分隔符

    ccIntDecimal = 4    '小数点后位数

    ccStrEvent = ""

    ccStrTime = ""

    ccStrFormatInterval = "<br />" & vbCrLf

    ccIntStartTime = Timer

    ccIntNow = ccIntStartTime

    ccIntNonce = ccIntStartTime

  End Sub

  Public Sub Record(ccStrEventName)

    ccStrEvent = ccStrEvent & ccStrInterval & Replace(ccStrEventName,ccStrInterval,"")

    ccStrTime = ccStrTime & ccStrInterval & FormatNumber(Timer-ccIntNow,ccIntDecimal,True,False,True)

    ccIntNow = Timer

  End Sub

  Public Property Let Format(ccStrFormatType)

    If LCase(Trim(ccStrFormatType)) = "html" Then

      ccStrFormatInterval = "<br />" & vbCrLf

    Else

      ccStrFormatInterval = vbCrLf

    End If

  End Property

  Public Function Statistic

    If InStr(ccStrEvent,ccStrInterval) > 0 Then

      ccIntEndTime = Timer

      ccArrEvent = Split(ccStrEvent,ccStrInterval)

      ccArrTime = Split(ccStrTime,ccStrInterval)

      ccStrStatisticLog = ccStrStatisticLog & "Process Time Record" & ccStrFormatInterval

      ccStrStatisticLog = ccStrStatisticLog & "--------------------------------------" & ccStrFormatInterval

      For ccInti = 1 To UBound(ccArrEvent)

        ccStrStatisticLog = ccStrStatisticLog & ccArrEvent(ccInti) & " : " & ccArrTime(ccInti) & " s" & ccStrFormatInterval

      Next

      ccStrStatisticLog = ccStrStatisticLog & "--------------------------------------" & ccStrFormatInterval

      ccStrStatisticLog = ccStrStatisticLog & "Total : " & FormatNumber(ccIntEndTime-ccIntStartTime,ccIntDecimal,True,False,True) & " s"

      Statistic = ccStrStatisticLog

    Else

      Statistic = "No Record"

    End If

  End Function

（编辑：驾考网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!