|
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len(Application("ApplicationName")) = 0 Then
Application("ApplicationName") = "Check In / " _
& "Check Out Application"
Application("PageCount") = 0
End If
If Not IsPostBack Then
Application.Lock
Application("PageCount") = Application("PageCount") + 1
Application.UnLock
End If
lblTitle.Text = Application("ApplicationName")
lblCount.Text = "This page has been accessed " _
& Application("PageCount") & " times."
Session.TimeOut = 20
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Session("VisitorsName") = txtVisitorsName.Text
Response.Redirect("./CheckOut.aspx")
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">
<Font Face="Tahoma" Size="+1">
<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=9
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
runat="server"
/>
<BR><BR>
<asp:Label
id="lblMessage1"
runat="Server"
Text="Enter Your Name"
/>
<BR>
<asp:TextBox
id="txtVisitorsName"
runat="server"
MaxLength=50
/>
<BR><BR>
<asp:button
id="butOK"
text="Check In"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
<BR><BR>
<%@ Page Language=VB Debug=true %>
<asp:Label
id="lblCount"
runat="Server"
/>
</Font>
</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>
--%>
<%-- CheckOut.aspx
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len(Session("VisitorsName")) = 0 Then
lblMessage.Text = "You have not checked in! " _
& "<A HREF=""./checkin.aspx"">Click here</A>" _
& " to check in."
butOK.Visible = False
Else
lblMessage.Text = "Your Name: " _
& Session("VisitorsName") & "<BR>"
if Session.IsCookieless Then
lblMessage.Text = lblMessage.Text _
& "Your browser does not support cookies.<BR>"
else
lblMessage.Text = lblMessage.Text _
& "Your browser does support cookies.<BR>"
End If
lblMessage.Text = lblMessage.Text _
& "Session ID: " & Session.SessionID _
& "<BR>Session Time Out: " & Session.TimeOut _
& " minutes"
End If
lblTitle.Text = Application("ApplicationName")
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Session.Abandon
Response.Redirect("./CheckOut.aspx")
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">
<Font Face="Tahoma" Size="+1">
<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=9
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
runat="server"
/>
<BR><BR>
<asp:Label
id="lblMessage"
runat="Server"
Text="Enter Your Name"
/>
<BR><BR>
<asp:button
id="butOK"
text="Check Out"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
<BR><BR>
</Font>
</Form>
</BODY>
</HTML>
--%>
|
