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

    作者:课课家教育更新于: 2015-11-14 22:50:39

    大神带你学编程,欢迎选课

    欢迎来到小编的文章进行学习阅读,想必大家又有很多问题吧,在这里会有你想要收获的答案,请大家慢慢学习吧。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基础教程

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

     


    类属性:
    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教程

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

课课家教育

未登录

1