Re: Global.asax Session_OnEnd not firing

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Marina (someone_at_nospam.com)
Date: 10/18/04 

Date: Mon, 18 Oct 2004 12:55:07 -0400

What do you expect to be causing this event?

This even is fired when the session is explicitly abandoned in code, or when
the session timeout has been reached due to no requests from the client. It
will NOT be called as soon as the user navigates away from your site or
closes the browser.

"Phil Lamey" <PhilLamey@discussions.microsoft.com> wrote in message
news:36CB30DF-1935-42D0-B92A-86BAEAA1CC94@microsoft.com...
> Hi All,
>
> I have the following code but for some reason I cannot get the
Session_OnEnd
> event to fire.
>
> I am trying to limit the amount of connections a browser session can have.
> Where the application is a virtual directory.
>
> Any ideas?
> ------------
> default.aspx.vb
>
> Public Class WebForm1
> Inherits System.Web.UI.Page
> Protected WithEvents lblSessionCount As
System.Web.UI.WebControls.Label
> Protected WithEvents lblTotalCount As System.Web.UI.WebControls.Label
> Protected WithEvents lblMSG As System.Web.UI.WebControls.Label
>
> #Region " Web Form Designer Generated Code "
>
> 'This call is required by the Web Form Designer.
> <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: This method call is required by the Web Form Designer
> 'Do not modify it using the code editor.
> InitializeComponent()
> End Sub
>
> #End Region
>
> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles MyBase.Load
> 'Put user code to initialize the page here
> If Not IsPostBack Then
> Dim SessionCount As Integer
> Dim SessionID As Integer
> SessionCount =
Utility.GetSessionCount(Server.MapPath("/GDAM"),
> Session.SessionID)
> lblSessionCount.Text = SessionCount
> Dim TotalCount As Integer
> TotalCount = Utility.GetTotalCount(Server.MapPath("/GDAM"))
> lblTotalCount.Text = TotalCount
>
> If SessionCount < 2 Then
> If TotalCount < 6 Then
> Utility.IncrementSessionCount(Server.MapPath("/GDAM"),
> Session.SessionID)
> GetGDAM()
> Else
> lblMSG.Text = "Sorry all the connections are currently
> busy: " & TotalCount
> End If
> Else
> lblMSG.Text = "Sorry too many connections for this
session:
> " & SessionCount
> End If
> End If
>
> End Sub
>
> Sub GetGDAM()
> lblMSG.Text = "Went to get GDAM"
> Session.Abandon()
> End Sub
>
> End Class
> ------------
> sessions.xml
>
> <SESSIONS>
> <SESSION>
> <ID>1</ID>
> <COUNT>2</COUNT>
> </SESSION>
> <SESSION>
> <ID>2</ID>
> <COUNT>0</COUNT>
> </SESSION>
> </SESSIONS>
>
> -----
>
> Global.asax
>
> Public Class Global
> Inherits System.Web.HttpApplication
>
> #Region " Component Designer Generated Code "
>
> Public Sub New()
> MyBase.New()
>
> 'This call is required by the Component Designer.
> InitializeComponent()
>
> 'Add any initialization after the InitializeComponent() call
>
> End Sub
>
> 'Required by the Component Designer
> Private components As System.ComponentModel.IContainer
>
> 'NOTE: The following procedure is required by the Component Designer
> 'It can be modified using the Component Designer.
> 'Do not modify it using the code editor.
> <System.Diagnostics.DebuggerStepThrough()> Private Sub
> InitializeComponent()
> components = New System.ComponentModel.Container()
> End Sub
>
> #End Region
>
> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
> ' Fires when the application is started
> Application("Start") = Now()
> End Sub
>
> Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
> ' Fires when the session is started
> Session.Timeout = 5
> Session("Start") = Now()
> Utility.NewSession(Server.MapPath("/GDAM"), Session.SessionID)
> End Sub
>
> Sub Application_BeginRequest(ByVal sender As Object, ByVal e As
EventArgs)
> ' Fires at the beginning of each request
> End Sub
>
> Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As
> EventArgs)
> ' Fires upon attempting to authenticate the use
> End Sub
>
> Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
> ' Fires when an error occurs
> End Sub
>
> Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
> ' Fires when the session ends
> Utility.KillSession(Server.MapPath("/GDAM"), Session.SessionID)
> End Sub
>
> Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
> ' Fires when the application ends
> End Sub
>
> End Class
>
> -------------
> Utility.vb
>
> Public Class Utility
>
> Public Shared Function GetSessionCount(ByVal AppPath As String, ByVal
> SessionID As String) As Integer
> '''''Get Session XML'''''
> Dim xmlSessions As System.Xml.XmlDocument = New
> System.Xml.XmlDocument()
> xmlSessions.Load(AppPath & "\sessions.xml")
> Dim lstSessions As System.Xml.XmlNodeList
> Dim ndSession As System.Xml.XmlNode
>
> '''''Get the Count for this sessionid
> lstSessions = xmlSessions.SelectNodes("SESSIONS/SESSION")
> For Each ndSession In lstSessions
> If ndSession.SelectSingleNode("ID").InnerText = SessionID Then
> Return ndSession.SelectSingleNode("COUNT").InnerText
> End If
> Next
> End Function
>
> Public Shared Function GetTotalCount(ByVal AppPath As String) As
Integer
> '''''Get Session XML'''''
> Dim TotalCount As Integer
> TotalCount = 0
> Dim xmlSessions As System.Xml.XmlDocument = New
> System.Xml.XmlDocument()
> xmlSessions.Load(AppPath & "\sessions.xml")
> Dim lstSessions As System.Xml.XmlNodeList
> Dim ndSession As System.Xml.XmlNode
>
> '''''Total up the Session Counts
> lstSessions = xmlSessions.SelectNodes("SESSIONS/SESSION")
> For Each ndSession In lstSessions
> TotalCount = TotalCount +
> ndSession.SelectSingleNode("COUNT").InnerText
> Next
>
> Return TotalCount
> End Function
>
> Public Shared Sub IncrementSessionCount(ByVal AppPath As String, ByVal
> SessionID As String)
> '''''Get Session XML'''''
> Dim xmlSessions As System.Xml.XmlDocument = New
> System.Xml.XmlDocument()
> xmlSessions.Load(AppPath & "\sessions.xml")
> Dim lstSessions As System.Xml.XmlNodeList
> Dim ndSession As System.Xml.XmlNode
> Dim SessionCount As Integer
> Dim NewSessionCount As Integer
>
> '''''Get the Count for this sessionid
> lstSessions = xmlSessions.SelectNodes("SESSIONS/SESSION")
> For Each ndSession In lstSessions
> If ndSession.SelectSingleNode("ID").InnerText = SessionID Then
> SessionCount =
ndSession.SelectSingleNode("COUNT").InnerText
> NewSessionCount = SessionCount + 1
> ndSession.SelectSingleNode("COUNT").InnerText =
> NewSessionCount
> End If
> Next
> xmlSessions.Save(AppPath & "\sessions.xml")
> End Sub
>
> Public Shared Sub NewSession(ByVal AppPath As String, ByVal SessionID
As
> String)
> '''''Get Session XML'''''
> Dim xmlSessions As System.Xml.XmlDocument = New
> System.Xml.XmlDocument()
> xmlSessions.Load(AppPath & "\sessions.xml")
> 'Create New Child Nodes
> Dim eleSess As System.Xml.XmlElement =
> xmlSessions.CreateElement("SESSION")
> Dim eleID As System.Xml.XmlElement =
xmlSessions.CreateElement("ID")
> Dim eleCount As System.Xml.XmlElement =
> xmlSessions.CreateElement("COUNT")
>
> 'Set the text
> Dim eleIDText As System.Xml.XmlText =
> xmlSessions.CreateTextNode(SessionID)
> Dim eleCountText As System.Xml.XmlText =
xmlSessions.CreateTextNode(0)
>
> 'Append parentnode to root
> xmlSessions.DocumentElement.PrependChild(eleSess)
>
> 'append the nodes to the parentNode without the value
> eleSess.AppendChild(eleID)
> eleSess.AppendChild(eleCount)
>
> 'Save the text values to the nodes
> eleID.AppendChild(eleIDText)
> eleCount.AppendChild(eleCountText)
> xmlSessions.Save(AppPath & "\sessions.xml")
> End Sub
>
> Public Shared Sub KillSession(ByVal AppPath As String, ByVal SessionID
> As String)
> '''''Get Session XML'''''
> Dim xmlSessions As System.Xml.XmlDocument = New
> System.Xml.XmlDocument()
> xmlSessions.Load(AppPath & "\sessions.xml")
> 'Create New Child Nodes
> Dim eleSess As System.Xml.XmlElement =
> xmlSessions.CreateElement("SESSION")
> Dim eleID As System.Xml.XmlElement =
xmlSessions.CreateElement("ID")
> Dim eleCount As System.Xml.XmlElement =
> xmlSessions.CreateElement("COUNT")
>
> 'Set the text
> Dim eleIDText As System.Xml.XmlText =
> xmlSessions.CreateTextNode(SessionID)
> Dim eleCountText As System.Xml.XmlText =
xmlSessions.CreateTextNode(0)
>
> 'Append parentnode to root
> xmlSessions.DocumentElement.PrependChild(eleSess)
>
> 'append the nodes to the parentNode without the value
> eleSess.AppendChild(eleID)
> eleSess.AppendChild(eleCount)
>
> 'Save the text values to the nodes
> eleID.AppendChild(eleIDText)
> eleCount.AppendChild(eleCountText)
> xmlSessions.Save(AppPath & "\sessions.xml")
> End Sub
>
> End Class
>
> ------------
>
> Any help/information is greatly appreciated.
>
> Thank you,
>
> Phil Lamey, EIT
> CGI Consultant

Relevant Pages

  • Weird PropertyBag problem, values wont change
    ... CSession - Data storage class for a session. ... CSessions - Collection of CSession objects for all logged in users. ... Public Property Let ID(ByVal vData As String) ... Public Sub Remove ...
    (microsoft.public.vb.controls)
  • Re: OOP in ASP .Net Pages
    ... Is there a Static type modifier that is session specific. ... Private m_OfficeID As System.String ... Public Property CompanyID() As System.String ... Public Sub New ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: Make application sleep
    ... As I see it your sub AppSleep is an eternal loop, because you didn't set any condition on how to end it. ... there is the problem that the sending application (sender) does not know if the string was processed or not. ...
    (microsoft.public.dotnet.languages.vb)
  • Simple session code not working - Help!
    ... session info between separate web apps running on the same web server. ... Sub Session_Start(ByVal sender As Object, ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: How to choose what control will receive action
    ... You can use the sender parameter of the button click event. ... > Dim myRadio As RadioButtonList ... > Private Sub Page_Load(ByVal sender As System.Object, ... > LabelText As String, ByVal Type As String) ...
    (microsoft.public.dotnet.framework.aspnet.webcontrols)