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