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

2009-05-12 14:43:28来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

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

程序代码:

以下为引用的内容:

Class ccClsProcessTimeRecorder
''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

 Public Function Nonce
   ccIntNonceTime = FormatNumber(Timer-ccIntNonce,ccIntDecimal,True,False,True)
   ccIntNonce = Timer
   Nonce = ccIntNonceTime
 End Function

 Public Function Total
   Total = FormatNumber(Timer-ccIntStartTime,ccIntDecimal,True,False,True)
 End Function

End Class

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP中检查没有数据提交的页面

下一篇:ASP实现将长的标题用省略号收尾