VB.Net得到页面执行时间

来源:互联网 发布:基佬大乱斗mac版本 编辑:程序博客网 时间:2024/04/28 22:27

以往在网上看到计算页面执行时间的程序,大部分都是使用C#来实现,方法类型基本相似。而且其中大部分都是记录开始和结束时间,最后定义一个TimeSpan来计算时间差,但是在写代码的时候都是EndTime - StartTime,我没有试验这样是否可行,但是在VB.Net里面不行,因为时间变量不能使用“-”来进行计算。所以我使用了另外的函数,如下:

在Global文件中添加如下代码:
    Public StartTime As System.DateTime
    Public EndTime As System.DateTime
    Public ts As System.TimeSpan

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' 在每个请求开始时激发
        StartTime = System.DateTime.Now
    End Sub

Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' 在每个请求结束时激发
        EndTime = System.DateTime.Now
        ts = EndTime.Subtract(StartTime)
        Response.Write("<div align='center'>Page Request Time:" & ts.TotalMilliseconds.ToString() & "Millisecond</div>")
    End Sub