作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

以往在网上看到计算页面执行时间的程序，大部分都是使用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

相关软件：