第一次寫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