Get variables from global.asax (VB.net) : Application « Session Cookie « ASP.Net






Get variables from global.asax (VB.net)

<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    lblAppName.Text = Application("ApplicationName")
    lblAppName.ForeColor = System.Drawing.Color.FromName _
        (Application("FontColor"))
    lblMessage.ForeColor = System.Drawing.Color.FromName _
        (Application("FontColor"))
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    lblMessage.Text = FormatCurrency(txtOrderTotal.Text * _
        Application("ShippingCharge"))
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Coding the Application_OnStart Event</TITLE>
</HEAD>
<form runat="server">
<asp:label 
    id="lblAppName"
    font-size="14"
    runat="server"
/>
<BR><BR>
<asp:label 
    id="lblMessage"
    runat="server"
    text="Enter your order total to 
        see the shipping charge"
/>
<BR><BR>
<asp:textbox 
    id="txtOrderTotal" 
    columns="25"
    maxlength="30"
    runat=server 
/>
<BR><BR>
<asp:button 
    id="butOK"
    text="  OK  "
    onclick="SubmitBtn_Click" 
    runat="server"
/>
</Form>
</BODY>
</HTML>

<%--

<%@ 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

1.Application state
2.Application.Count (VB.net)
3.All application variables (VB.net)
4.Application.AllKeys (VB.net)
5.Add new name value pair to the Application (VB.net)
6.Give a Application a new value (VB.net)
7.Application.Count before and after variable setting (VB.net)
8.Application(I) (VB.net)
9.Application: GetKey (VB.net)
10.Application.RemoveAll() (VB.net)
11.Application.Item by index (VB.net)
12.Application.Item by kay (VB.net)
13. For Each Key in Application.Keys (VB.net)
14.Application.Lock() and unLock() (VB.net)
15.Application.StaticObjects (VB.net)
16.Application Set (VB.net)
17.Application.Remove (VB.net)
18.Application Remove At (VB.net)
19.Application.Clear() (VB.net)
20.Application property example (VB.net)
21.Store key value pair for entire application (C#)
22.Set Application key value pair (VB.net)