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

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:15 来源：互联网

本文章共1779字，分4页，当前第1页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《ASP程序代码执行时间统计类》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

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

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

程序代码:

Class ccClsProcessTimeRecorder
''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)