第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等.
复制代码代码如下:
ClassccClsProcessTimeRecorder
'程序作者:明月星光
'作者主页:http://www.5iya.com/blog
'http://www.kuozhanming.com
'ASP程序代码执行时间统计类
PrivateccInti,ccIntNonceTime,ccIntDecimal
PrivateccIntStartTime,ccIntEndTime,ccIntNow,ccIntNonce
PrivateccStrInterval,ccStrEvent,ccStrTime,ccStrStatisticLog,ccStrFormatInterval
PrivateccArrEvent,ccArrTime
PrivateSubClass_Initialize
ccStrInterval="|"'默认分隔符
ccIntDecimal=4'小数点后位数
ccStrEvent=""
ccStrTime=""
ccStrFormatInterval="<br/>"&vbCrLf
ccIntStartTime=Timer
ccIntNow=ccIntStartTime
ccIntNonce=ccIntStartTime
EndSub
PublicSubRecord(ccStrEventName)
ccStrEvent=ccStrEvent&ccStrInterval&Replace(ccStrEventName,ccStrInterval,"")
ccStrTime=ccStrTime&ccStrInterval&FormatNumber(Timer-ccIntNow,ccIntDecimal,True,False,True)
ccIntNow=Timer
EndSub
PublicPropertyLetFormat(ccStrFormatType)
IfLCase(Trim(ccStrFormatType))="html"Then
ccStrFormatInterval="<br/>"&vbCrLf
Else
ccStrFormatInterval=vbCrLf
EndIf
EndProperty
PublicFunctionStatistic
IfInStr(ccStrEvent,ccStrInterval)>0Then
ccIntEndTime=Timer
ccArrEvent=Split(ccStrEvent,ccStrInterval)
ccArrTime=Split(ccStrTime,ccStrInterval)
ccStrStatisticLog=ccStrStatisticLog&"ProcessTimeRecord"&ccStrFormatInterval
ccStrStatisticLog=ccStrStatisticLog&"--------------------------------------"&ccStrFormatInterval