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

发布时间：2023-09-13 14:25:02 所属栏目：Asp教程来源：

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

复制代码代码如下:

Class ccClsProcessTimeRecorder

'程序作者:明月星光

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

'http:

第一次写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

（编辑：聊城站长网）

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