达成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 

（编辑：银川站长网）

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