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