ASP程序代码执行时间统计类
2023-06-13 09:13:42 时间
第一次写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 连接 MS SQL 服务器(asp连接mssql)
- ASP操作Oracle数据库(asp链接oracle)
- ASP技术实现MYSQL数据库分页(aspmysql分页)
- 重构之路:从ASPMSSQL搭建的原有系统进行改造(原系统asp mssql)
- .net利用MSSQL连接ASP.NET的办法探索(mssql 连接asp)
- 如何使用C ASP实现MySQL数据库连接(c asp连接mysql)
- 数据库ASP环境下注册MySQL数据库步骤指南(asp注册mysql)
- 库ASP实现MySQL数据库数据更新(asp更新mysql数据)
- 从ASP到MySQL改进你的代码(asp改MySQL代码)
- 数据ASP解析MySQL中文数据实现无缝互联(asp接受mysql中文)
- ASP连接MySQL,开发数据库应用变得更容易(asp可以连mysql)
- ASP技术与MySQL数据库实现无缝结合(asp可以和mysql)
- 灵活运用ASP与MySQL连接的妙用(asp与mysql连接)
- ASP驱动的Oracle数据库连接源码解析(asp连oracle源码)
- ASP程序从Oracle数据库精挖宝贵资源(asp取oracle数据)
- 改进ASP的字符串处理性能
- 收集整理的ASP的常用内置函数
- ASP.NET封装的SQL数据库访问类
- asp最简单的生成验证码代码
- asp防盗链代码(彻底屏蔽迅雷,旋风,快车下载站内资源)
- 为SWFUpload增加ASP版本的上传处理程序
- ASP.Net获取客户端网卡MAC的小例子
- Asp.Net用OWC操作Excel的实例代码
- ASP.NET实现图片以二进制的形式存入数据库