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