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

　　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

　　Dim objRecord,i,k,j,x

　　Set objRecord = New ccClsProcessTimeRecorder

　　objRecord.Format = "html"

　　For i = 1 To 100000

　　x = 2 + 2

　　Next

　　Call objRecord.Record("加法")

　　For j = 1 To 100000

　　x = 2 * 2

　　Next

　　Call objRecord.Record("乘法")

　　For k = 1 To 100000

　　x = 2 ^ 2

　　Next

　　Call objRecord.Record("开方")

　　Response.Write objRecord.Statistic