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