Practical-12
_ASP.NET
Practical-12: Develop a web page to implement the concept of state management using
Session and Application
Home.aspx:-
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Home.aspx.vb"
Inherits="Practical12ApplicationSession.Home" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>
Login.aspx:-
<%@ Page Language="vb" AutoEventWireup="false"
CodeBehind="Login.aspx.vb"
Inherits="Practical12ApplicationSession.Login" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table style="width:100%;">
<tr>
<td>
User Id</td>
<td>
<asp:TextBox ID="txtUsername"runat="server"></asp:TextBox>
</td>
<td>
</td>
</tr>
<tr>
<td>
Passcode</td>
<td>
<asp:TextBox ID="txtPassword" runat="server"TextMode="Password"></asp:TextBox>
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td>
<asp:Button ID="btnLogin" runat="server"Text="Login" />
</td>
<td>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
Home.aspx.vb:-
Public Class Home
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Response.Write("Welcome : " & Session.Item("username"))
Response.Write("<br/>Last logged in user : " &
Application.Item("username"))
End Sub
End Class
Login.aspx.vb:-
Public Class Login
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click
Session.Item("username") = txtUsername.Text
Application.Item("username") = txtUsername.Text
Response.Redirect("Home.aspx")
End Sub
End Class
Output Screenshot:-
Second User Log in:-
First user homepage after refreshing:-
0 Comments