代码如下:

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 = "
" & 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 = "
" & 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