ASP程序代码执行时间统计类
2008-03-19 22:59
555 查看
第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等。
程序代码:
类属性: 站.长站
1、Format
输出时是否带HTML换行标签
-html:输出HTML换行标签和文本换行符(默认) Www~Chinaz~com
-text:仅输出文本换行符
类方法:
1、Record("Code Name")
统计自上一次调用Record方法至现在的时间(第一次调用时统计声明类时至调用时时间),最后在Statistic中输出类函数:(即时返回信息) 站.长站
1、Nonce Chinaz
输出自上一次调用nonce函数至现在的时间(第一次调用时统计声明类时至调用时时间)
2、Total
输出声明类到现在总时间
3、Statistic
输出所有Record统计信息和总程序时间 中国.站.长站
实例代码: 中.国站长站
Call objRecord.Record("开方")
Response.Write objRecord.Statistic
输出:
Process Time Record
--------------------------------------
加法 : 0.0625 s 站.长站
乘法 : 0.0469 s
开方 : 0.1094 s
程序代码:
以下为引用的内容: 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 Chinaz~com Public Property Let Format(ccStrFormatType) If LCase(Trim(ccStrFormatType)) = "html" Then ccStrFormatInterval = "<br />" & vbCrLf Else ccStrFormatInterval = vbCrLf End If End Property 中国站长.站 Public Function Statistic If InStr(ccStrEvent,ccStrInterval) > 0 Then ccIntEndTime = Timer ccArrEvent = Split(ccStrEvent,ccStrInterval) ccArrTime = Split(ccStrTime,ccStrInterval) ccStrStatisticLog = ccStrStatisticLog & "Process Time Record" & ccStrFormatInterval ccStrStatisticLog = ccStrStatisticLog & "--------------------------------------" & ccStrFormatInterval For ccInti = 1 To UBound(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 = "No Record" End If End Function Public Function Nonce ccIntNonceTime = FormatNumber(Timer-ccIntNonce,ccIntDecimal,True,False,True) ccIntNonce = Timer Nonce = ccIntNonceTime End Function Www~Chinaz~com Public Function Total Total = FormatNumber(Timer-ccIntStartTime,ccIntDecimal,True,False,True) End Function End Class Chinaz~com |
1、Format
输出时是否带HTML换行标签
-html:输出HTML换行标签和文本换行符(默认) Www~Chinaz~com
-text:仅输出文本换行符
类方法:
1、Record("Code Name")
统计自上一次调用Record方法至现在的时间(第一次调用时统计声明类时至调用时时间),最后在Statistic中输出类函数:(即时返回信息) 站.长站
1、Nonce Chinaz
输出自上一次调用nonce函数至现在的时间(第一次调用时统计声明类时至调用时时间)
2、Total
输出声明类到现在总时间
3、Statistic
输出所有Record统计信息和总程序时间 中国.站.长站
实例代码: 中.国站长站
以下为引用的内容: Dim objRecord,i,k,j,x Set objRecord = New ccClsProcessTimeRecorder objRecord.Format = "html" For i = 1 To 100000 x = 2 + 2 Next Www.Chinaz.com Call objRecord.Record("加法") For j = 1 To 100000 x = 2 * 2 Next Call objRecord.Record("乘法") For k = 1 To 100000 x = 2 ^ 2 Next |
Response.Write objRecord.Statistic
输出:
Process Time Record
--------------------------------------
加法 : 0.0625 s 站.长站
乘法 : 0.0469 s
开方 : 0.1094 s
相关文章推荐
- 实现ASP程序执行时间统计类的代码
- ASP程序代码执行时间统计类
- 实现ASP程序执行时间统计类的代码
- ASP程序代码执行时间统计类
- 验证程序执行时间代码
- [ASP.NET]Asp.net取得页面执行时间的代码
- Asp.net设定时间执行程序(定时执行)
- c# asp.net 测试程序执行时间
- 测试一段程序代码执行时间的方法
- 显示程序执行时间php函数代码
- 计算asp.net当前页执行时间代码
- c# asp.net 测试程序执行时间
- php使用microtime(true)计算php程序代码执行消耗时间
- 代码开源(7)——测试程序执行时间
- php使用microtime(true)计算php程序代码执行消耗时间
- Asp.net取得页面执行时间的代码
- php使用microtime(true)计算php程序代码执行消耗时间
- 计算程序执行的时间,可以作为写代码的参考
- 显示程序执行时间php函数代码
- 当程序执行时间很快,控制台没显示执行代码和数据库