ASP.Net/Development/global.asax

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Application start action

   <source lang="csharp">

//File: global.asax


<script language="VB" runat="server"> Sub Application_OnStart()

 Application("CompanyTelephone") = "555 4321"

End Sub </script>

      </source>
   
  


Use Global.asax

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

   lblTitle.Text = Application("ApplicationName")
   lblTaxRate.Text = "Tax Rate: " & Application("TaxRate")
   lblSessionStarts.Text = "Session Starts: " _
       & Application("SessionStarts")
   lblSessionStops.Text = "Session Stops: " _
       & Application("SessionStops")

End Sub </SCRIPT> <HTML> <HEAD> <TITLE><% Response.Write(Application("ApplicationName")) %></TITLE> </HEAD> <BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="60"> <form runat="server"> <asp:Label

   id="lblTitle" 
   BorderWidth="7px"
   BorderStyle=9
   Width="90%"
   Font-Size="25pt"
   Font-Name="Arial"
   runat="server"

/>

<asp:Label

   id="lblTaxRate"
   runat="Server"

/>

<asp:Label

   id="lblSessionStarts"
   runat="Server"

/>

<asp:Label

   id="lblSessionStops"
   runat="Server"

/>
</Form> </BODY> </HTML>

<%-- Global.asax <SCRIPT LANGUAGE="VB" RUNAT="Server"> Sub Application_OnStart

   Application("TaxRate") = 0.5125
   Application("ApplicationName") = "Sample Global.asax"

End Sub Sub Application_OnEnd

   "code that runs when application ends

End Sub Sub Session_OnStart

   Application("SessionStarts") = _
       Application("SessionStarts") + 1
   Session.TimeOut = 1

End Sub Sub Session_OnEnd

   Application("SessionStops") = _
       Application("SessionStops") + 1

End Sub </SCRIPT>

--%>

      </source>