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