介绍ASP程序代码执行时间统计类

欢迎来到小编的文章进行学习阅读，想必大家又有很多问题吧，在这里会有你想要收获的答案，请大家慢慢学习吧。excel教学

第一次写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 = “
” & 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 = “
” & 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

excel基础教程

介绍ASP程序代码执行时间统计类

well高级语言的出现使得计算机程序设计语言不再过度地依赖某种特定的机器或环境。这是因为高级语言在不同的平台上会被编译成不同的机器语言，而不是直接被机器执行。最早出现的编程语言之一FORTRAN的一个主要目标，就是实现平台独立。[1]
虽然大多数的语言可以既可被编译又可被解译，但大多数仅在一种情况下能够良好运行。在一些编程系统中，程序要经过几个阶段的编译，一般而言，后阶段的编译往往更接近机器语言。这种常用的使用技巧最早在1960年代末用于BCPL，编译程序先编译一个叫做“0代码”的转换程序（representation），然后再使用虚拟器转换到可以运行于机器上的真实代码。这种成功的技巧之后又用于Pascal和P-code，以及Smalltalk和二进制码，在很多时候，中间过渡的代码往往是解译，而不是编译的。[1]
如果所使用的翻译的机制是将所要翻译的程序代码作为一个整体翻译，并之后运行内部格式，那么这个翻译过程就被成为编译。因此，一个编译器是一个将人可阅读的程序文本（叫做源代码）作为输入的数据，然后输出可执行文件（object code）。所输出的可执行文件可以是机器语言，由计算机的中央处理器直接运行，或者是某种模拟器的二进制代码。[1]
如果程序代码是在运行时才即时翻译，那么这种翻译机制就被称作直译。经直译的程序运行速度往往比编译的程序慢，但往往更具灵活性，因为它们能够与执行环境互相作用。[1]

#p#分页标题#e#

类属性：
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

excel教程

更多视频课程文章的课程，可到课课家官网查看。我在等你哟。

当前位置：以往代写 > 其他教程 >介绍ASP程序代码执行时间统计类