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

实现功能：分段统计程序执行时间、输出统计表等。6ib中国设计秀

类源码：6ib中国设计秀
 程序代码6ib中国设计秀
Class ccClsPRocessTimeRecorder6ib中国设计秀
'程序作者:明月星光6ib中国设计秀
'作者主页:http://www.5iya.com/blog6ib中国设计秀
'http://www.kuozhanming.com6ib中国设计秀
'asp程序代码执行时间统计类6ib中国设计秀

  Private ccInti,ccIntNonceTime,ccIntDecimal6ib中国设计秀
  Private ccIntStartTime,ccIntEndTime,ccIntNow,ccIntNonce6ib中国设计秀
  Private ccStrInterval,ccStrEvent,ccStrTime,ccStrStatisticLog,ccStrFormatInterval6ib中国设计秀
  Private ccArrEvent,ccArrTime6ib中国设计秀

  Private Sub Class_Initialize6ib中国设计秀
    ccStrInterval = "|"  '默认分隔符6ib中国设计秀
    ccIntDecimal = 4    '小数点后位数6ib中国设计秀
    ccStrEvent = ""6ib中国设计秀
    ccStrTime = ""6ib中国设计秀
    ccStrFormatInterval = "<br />" & vbCrLf6ib中国设计秀
    ccIntStartTime = Timer6ib中国设计秀
    ccIntNow = ccIntStartTime6ib中国设计秀
    ccIntNonce = ccIntStartTime6ib中国设计秀
  End Sub6ib中国设计秀

  Public Sub Record(ccStrEventName)6ib中国设计秀
    ccStrEvent = ccStrEvent & ccStrInterval & Replace(ccStrEventName,ccStrInterval,"")6ib中国设计秀
    ccStrTime = ccStrTime & ccStrInterval & FormatNumber(Timer-ccIntNow,ccIntDecimal,True,False,True)6ib中国设计秀
    ccIntNow = Timer6ib中国设计秀
  End Sub6ib中国设计秀

  Public Property Let Format(ccStrFormatType)6ib中国设计秀
    If LCase(Trim(ccStrFormatType)) = "html" Then6ib中国设计秀
      ccStrFormatInterval = "<br />" & vbCrLf6ib中国设计秀
    Else6ib中国设计秀
      ccStrFormatInterval = vbCrLf6ib中国设计秀
    End If6ib中国设计秀
  End Property6ib中国设计秀

  Public Function Statistic6ib中国设计秀
    If InStr(ccStrEvent,ccStrInterval) > 0 Then6ib中国设计秀
      ccIntEndTime = Timer6ib中国设计秀
      ccArrEvent = Split(ccStrEvent,ccStrInterval)6ib中国设计秀
      ccArrTime = Split(ccStrTime,ccStrInterval)6ib中国设计秀
      ccStrStatisticLog = ccStrStatisticLog & "Process Time Record" & ccStrFormatInterval6ib中国设计秀
      ccStrStatisticLog = ccStrStatisticLog & "--------------------------------------" & ccStrFormatInterval6ib中国设计秀
      For ccInti = 1 To UBound(ccArrEvent)6ib中国设计秀
        ccStrStatisticLog = ccStrStatisticLog & ccArrEvent(ccInti) & " : " & ccArrTime(ccInti) & " s" & ccStrFormatInterval6ib中国设计秀
      Next6ib中国设计秀
      ccStrStatisticLog = ccStrStatisticLog & "--------------------------------------" & ccStrFormatInterval6ib中国设计秀
      ccStrStatisticLog = ccStrStatisticLog & "Total : " & FormatNumber(ccIntEndTime-ccIntStartTime,ccIntDecimal,True,False,True) & " s"6ib中国设计秀
      Statistic = ccStrStatisticLog6ib中国设计秀
    Else6ib中国设计秀
      Statistic = "No Record"6ib中国设计秀
    End If6ib中国设计秀
  End Function6ib中国设计秀

  Public Function Nonce6ib中国设计秀
    ccIntNonceTime = FormatNumber(Timer-ccIntNonce,ccIntDecimal,True,False,True)6ib中国设计秀
    ccIntNonce = Timer6ib中国设计秀
    Nonce = ccIntNonceTime6ib中国设计秀
  End Function6ib中国设计秀

  Public Function Total6ib中国设计秀
    Total = FormatNumber(Timer-ccIntStartTime,ccIntDecimal,True,False,True)6ib中国设计秀
  End Function6ib中国设计秀

End Class6ib中国设计秀

 6ib中国设计秀

6ib中国设计秀
类属性:6ib中国设计秀
1.Format6ib中国设计秀
输出时是否带HTML换行标签6ib中国设计秀
-html:输出HTML换行标签和文本换行符(默认)6ib中国设计秀
-text:仅输出文本换行符6ib中国设计秀

类方法:6ib中国设计秀
1.Record("Code Name")6ib中国设计秀
统计自上一次调用Record方法至现在的时间(第一次调用时统计声明类时至调用时时间),最后在Statistic中输出6ib中国设计秀

类函数:(即时返回信息)6ib中国设计秀
1.Nonce6ib中国设计秀
输出自上一次调用nonce函数至现在的时间(第一次调用时统计声明类时至调用时时间)6ib中国设计秀
2.Total6ib中国设计秀
输出声明类到现在总时间6ib中国设计秀
3.Statistic6ib中国设计秀
输出所有Record统计信息和总程序时间6ib中国设计秀

实例代码:6ib中国设计秀
 程序代码6ib中国设计秀
Dim objRecord,i,k,j,x6ib中国设计秀

Set objRecord = New ccClsProcessTimeRecorder6ib中国设计秀
objRecord.Format = "html"6ib中国设计秀

For i = 1 To 1000006ib中国设计秀
  x = 2 + 26ib中国设计秀
Next6ib中国设计秀

Call objRecord.Record("加法")6ib中国设计秀
For j = 1 To 1000006ib中国设计秀
  x = 2 * 26ib中国设计秀
Next6ib中国设计秀

Call objRecord.Record("乘法")6ib中国设计秀

For k = 1 To 1000006ib中国设计秀
  x = 2 ^ 26ib中国设计秀
Next6ib中国设计秀

Call objRecord.Record("开方")6ib中国设计秀

Response.Write objRecord.Statistic6ib中国设计秀

 6ib中国设计秀

6ib中国设计秀
输出:6ib中国设计秀
Process Time Record6ib中国设计秀
--------------------------------------6ib中国设计秀
加法 : 0.0625 s6ib中国设计秀
乘法 : 0.0469 s6ib中国设计秀
开方 : 0.1094 s6ib中国设计秀
--------------------------------------6ib中国设计秀
Total : 0.2188 s6ib中国设计秀