Application event: start, end and session event (VB.net) : Application Event « Server « ASP.Net

1. ASP.Net
2. Server
3. Application Event

Application event: start, end and session event (VB.net)

<%@ Import Namespace="System.Diagnostics" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<SCRIPT LANGUAGE="VB" RUNAT="Server">
Sub Application_OnStart()
    Application("TaxRate") = 0.5125

    Application("appConn") = New OleDbConnection( _
        "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
        & "DATA SOURCE=" & Server.MapPath _
        ("EmployeeDatabase.mdb;"))
    Application("ApplicationName") = "My Site"
    Application("FontColor") = "Red"
    Application("ShippingCharge") = .03
End Sub
Sub Application_OnEnd()
'    Dim MyLog as New EventLog
 '   MyLog.Log = "Application"
  '  MyLog.Source = "My Test ASP.NET Application"
   ' MyLog.WriteEntry("The application ended at " _
    '    & Now() & ".")
End Sub
Sub Session_OnStart()
    Application("SessionStarts") = Application("SessionStarts") + 1
    Session.TimeOut = 1

'    Session("TheEventLog") = New EventLog
 '   Session("TheEventLog").Log = "Application"
  '  Application.Lock
    Application("TotalUsers") = Application("TotalUsers") _
        + 1
    Application.Unlock
    'If Len(Session("WhenEntered")) = 0 Then
    '    Response.Redirect("welcome.aspx")
    '    Session("WhenEntered") = Now()
    'End If
End Sub
Sub Session_OnEnd()
    Dim MyLog as New EventLog
    MyLog.Log = "Application"
    MyLog.Source = "A session that started on " _
        & Session("WhenEntered") & " ended at " _
        & Now()

    Application("SessionStops") = _
        Application("SessionStops") + 1
        
End Sub
'Sub Application_Error(Sender as Object, e as EventArgs)
'    Response.Redirect("errorshappen.aspx")
'End Sub

</SCRIPT>

           
       

EmployeeDatabase.zip( 10 k)

Related examples in the same category