第一次写ASP类，实现功能：分段统计程序执行时间，输出统计表等。

程序代码：

<table style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellspacing="0" cellpadding="6" width="95%" align="center" border="0"> <tbody> <tr> <td style="WORD-WRAP: break-word" bgcolor="#fdfddf">以下为引用的内容：

Class ccClsProcessTimeRecorder
''''ASP程序代码执行时间统计类

 Private ccInti,ccIntNonceTime,ccIntDecimal
 Private ccIntStartTime,ccIntEndTime,ccIntNow,ccIntNonce
 Private ccStrInterval,ccStrEvent,ccStrTime,ccStrStatisticLog,ccStrFormatInterval
 Private ccArrEvent,ccArrTime <span class="Aql967">中国站长.站</span>

 Private Sub Class_Initialize
   ccStrInterval = "|"  ''''默认分隔符
   ccIntDecimal = 4    ''''小数点后位数
   ccStrEvent = ""
   ccStrTime = ""
   ccStrFormatInterval = "<br />" & vbCrLf
   ccIntStartTime = Timer
   ccIntNow = ccIntSt