以下为引用的内容:
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
|