作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:41:23 阅读 我要评论

第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等. 复制代码 代码如下:Class ccClsProcessTimeRecorder '程序作者:明月星光 '作者主页:http://www.5iya.com/blog 'http://www.kuozhanming.com '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) 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 Public Function Total Total = FormatNumber(Timer-ccIntStartTime,ccIntDecimal,True,False,True) End Function End Class 类属性: 1.Format 输出时是否带HTML换行标签 -html:输出HTML换行标签和文本换行符(默认) -text:仅输出文本换行符 类方法: 1.Record("Code Name") 统计自上一次调用Record方法至现在的时间(第一次调用时统计声明类时至调用时时间),最后在Statistic中输出 类函数:(即时返回信息) 1.Nonce 输出自上一次调用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 Call objRecord.Record("加法") For j = 1 To 100000 x = 2 * 2 Next Call objRecord.Record("乘法") For k = 1 To 100000 x = 2 ^ 2 Next Call objRecord.Record("开方") Response.Write objRecord.Statistic 输出: Process Time Record -------------------------------------- 加法 : 0.0625 s 乘法 : 0.0469 s 开方 : 0.1094 s -------------------------------------- Total : 0.2188 s

  推荐阅读

  asp下制做行背景颜色交替变换的表格

<% Const adInteger = 3 Const adVarChar = 200 ' 声明变量 Dim myRecordset Dim iLetter Dim Field Dim strAltColor Dim bColor bColor = False ' 此例利用内存中的recordset,你需要做的只是>>>详细阅读


本文标题:实现ASP程序执行时间统计类的代码

地址:http://www.17bianji.com/kaifa2/ASP/32581.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)