时间:2016-02-24 14:26 来源:
我爱IT技术网 作者:佚名
欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP程序代码执行时间统计类】，下面是详细的分享！
ASP程序代码执行时间统计类
第一次写ASP类，实现功能：分段统计程序执行时间，输出统计表等。
程序代码：
以下为引用的内容：
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
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
以上所分享的是关于ASP程序代码执行时间统计类，下面是编辑为你推荐的有价值的用户互动：
相关问题：asp.net 用DateTime计时怎么写，我想点击按钮后记...
答：System.Timers.Timer t = new System.Timers.Timer(1000 * 1); //每30秒后运行一次 t.AutoReset = true; t.Enabled = true; t.Elapsed += new System.Timers.ElapsedEventHandler(CommonFun); public void CommonFun(object sender, System.Time... >>详细
相关问题：求asp统计类代码
答：set rs=conn.execute("select count(*) from [cthuanze] where ctneirong='苹果' ") if not rs.eof ‘苹果个数apple apple = rs(0) end if rs.close set rs=nothing 以上代码就是单独取值的，你可以重复利用这个代码取香蕉及橙子的总数，不过对于... >>详细
相关问题：asp.请编写一个程序,此程序执行的时间刚好是50秒
答：还有这样的要求? 写个循环在里面,一直计算时间.刚好50秒的时候,退出循环就行了. >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-
