时间:2021-05-18
第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等.
复制代码 代码如下:
ClassccClsProcessTimeRecorder
'程序作者:明月星光
'作者主页:http://
'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
ForccInti=1ToUBound(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="NoRecord"
EndIf
EndFunction
PublicFunctionNonce
ccIntNonceTime=FormatNumber(Timer-ccIntNonce,ccIntDecimal,True,False,True)
ccIntNonce=Timer
Nonce=ccIntNonceTime
EndFunction
PublicFunctionTotal
Total=FormatNumber(Timer-ccIntStartTime,ccIntDecimal,True,False,True)
EndFunction
EndClass
类属性:
1.Format
输出时是否带HTML换行标签
-html:输出HTML换行标签和文本换行符(默认)
-text:仅输出文本换行符
类方法:
1.Record("CodeName")
统计自上一次调用Record方法至现在的时间(第一次调用时统计声明类时至调用时时间),最后在Statistic中输出
类函数:(即时返回信息)
1.Nonce
输出自上一次调用nonce函数至现在的时间(第一次调用时统计声明类时至调用时时间)
2.Total
输出声明类到现在总时间
3.Statistic
输出所有Record统计信息和总程序时间
实例代码:
复制代码 代码如下:
DimobjRecord,i,k,j,x
SetobjRecord=NewccClsProcessTimeRecorder
objRecord.Format="html"
Fori=1To100000
x=2+2
Next
CallobjRecord.Record("加法")
Forj=1To100000
x=2*2
Next
CallobjRecord.Record("乘法")
Fork=1To100000
x=2^2
Next
CallobjRecord.Record("开方")
Response.WriteobjRecord.Statistic
输出:
ProcessTimeRecord
--------------------------------------
加法:0.0625s
乘法:0.0469s
开方:0.1094s
--------------------------------------
Total:0.2188s
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等.复制代码代码如下:ClassccClsProcessTimeRecorder'程序作者:明月星光
本文实例讲述了asp.net计算每个页面执行时间的方法。分享给大家供大家参考。具体分析如下:这里的asp.net代码可实现计算每个页面的执行时间,无需要修改页面
复制代码代码如下://date:2011-08-05classRunTime//页面执行时间类{private$starttime;//页面开始执行时间priv
本文研究的主要是springbootaop记录方法执行时间的实现代码,具体如下。为了性能调优,需要先统计出来每个方法的执行时间,直接在方法前后log输出太麻烦,
本文实例讲述了php实现用于计算执行时间的类。分享给大家供大家参考。具体如下:有了这个php类,计算函数或者一段代码的执行时间就简单了t_start=micro