CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章实现ASP程序执行时间统计类的代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

第一次写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程序执行时间统计类的代码的文章就讲到这里了,如果你想了解更多关于实现ASP程序执行时间统计类的代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。