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