ASP.NET - CONNAÎTRE LE TEMPS D'EXECUTION DE SA PAGE OU DU CHARGEMENT D'UN OBJET

' --------- Global.asax.vb ---------------------------

Imports System.Web
Imports System.Web.SessionState

' -----------------------------------------------------
Public Class Global
    Inherits System.Web.HttpApplication
    Private dTimeDeb As DateTime

....
    ' -----------------------------------------------------
    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Se déclenche lorsque la session se termine
        Session.RemoveAll()
    End Sub
....
    ' -----------------------------------------------------
    Private Sub Global_PreRequestHandlerExecute(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRequestHandlerExecute
        dTimeDeb = DateTime.Now
    End Sub

    ' -----------------------------------------------------
    Private Sub Global_PostRequestHandlerExecute(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PostRequestHandlerExecute
        Session.Item("TempsExecutionPage") = DateTime.Now.Subtract(dTimeDeb).TotalMilliseconds.ToString
    End Sub
....
    ' -----------------------------------------------------
End Class


' ------------------------------------------------------
' Dans le fichier Web.Config 
...
<appSettings>
...
 <add key="AfficheStats" value="1"/>
 <!-- mettre 1 pour afficher les stats, 0 pour ne pas les afficher -->
...
</appSettings>

' ------------------------------------------------------
'Maintenant il suffit de poser (dans Visual Studio.NET) le User Control 
'dans la page voulue et dans le source de cette page 
'(disons toto.aspx et toto.aspx.vb) ajouter le code suivant.
' Nous allons tester le temps de chargement d'un Dataset (il faudra l'adapter à vos besoins)

' ------------------------------------------------------
' Fichier toto.ASPX
....
<%@ Register TagPrefix="uc1" TagName="AfficheStats" Src="AfficheStats.ascx" %>
....
<uc1:AfficheStats id="AfficheStats1" runat="server"></uc1:AfficheStats>
....

' ------------------------------------------------------
' Fichier toto.ASPX.VB
....
    Private dTimeDebSQL As DateTime
....

' On initialise la variable de temps
dTimeDebSQL = DateTime.Now
MonDataset = ... 'Chargement de mon Dataset

'On ajoute en mémoire la valeur et le texte de présentation du temps
Session.Item("TempsExecutionSQL") &= "Chargement de MonDataset : " & DateTime.Now.Subtract(dTimeDebSQL).TotalMilliseconds.ToString & " ms<BR>"
....

'On peut en ajouter autant que l'on veut suivre dans la page simplement en remettant le même bloc.

dTimeDebSQL = DateTime.Now
MonDataset2 = ... 'Chargement de mon Dataset

'On ajoute en mémoire la valeur et le texte de présentation du temps
Session.Item("TempsExecutionSQL") &= "Chargement de MonDataset2 : " & DateTime.Now.Subtract(dTimeDebSQL).TotalMilliseconds.ToString & " ms<BR>"
....

' ------------------------------------------------------
'Copie de la source pour le Fichier User Control : AfficheStats.ascx (et .vb)

<%@ Control Language="vb" AutoEventWireup="false" Codebehind="AfficheStats.ascx.vb" Inherits="MonProjet.AfficheStats" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<asp:Panel id="Panel1" runat="server" style="RIGHT:0px;BOTTOM:0px;POSITION:absolute;HEIGHT:auto">
<table class="AfficheStat" width="300" cellSpacing="0" cellPadding="0" border="0">
 <tr width="100%">
  <td>Temps exécution Page :</td>
  <td><asp:Label id="LabelTempsExecPage" runat="server" Width="100%">Label</asp:Label></td>
 </tr>
 <tr>
  <td>Temps exécution Requette :</td>
  <TD><asp:Label id="LabelTempsExecRequette" runat="server" Width="100%">Label</asp:Label></TD>
 </tr>
</table>
</asp:Panel>

' ----------- AfficheStats.ascx.vb -----------------------------
Public MustInherit Class AfficheStats
    Inherits System.Web.UI.UserControl
    Protected WithEvents LabelTempsExecPage As System.Web.UI.WebControls.Label
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents LabelTempsExecRequette As System.Web.UI.WebControls.Label

#Region " Code généré par le Concepteur Web Form "

    'Cet appel est requis par le Concepteur Web Form.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
        'Ne le modifiez pas en utilisant l'éditeur de code.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim AfficheStats As String = ConfigurationSettings.AppSettings("AfficheStats")

        If AfficheStats = 1 Then
            Panel1.Visible = True
            LabelTempsExecPage.Text = Session.Item("TempsExecutionPage") & " ms"
            LabelTempsExecRequette.Text = Session.Item("TempsExecutionSQL")
        Else
            Panel1.Visible = False
        End If

    End Sub

End Class
' ------------------------------------------------------