PROGRAM:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!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 runat="server">
<title></title>
</head>
<body>
<h1>WEB SITE VISIT</h1>
<form id="form1" runat="server">
UserName:
<asp:TextBox ID="txtUserName" runat="server"></asp:TextBox><br />
Remember me:
<asp:CheckBox ID="chkRememberMe" runat="server" /></asp:Checkbox><br/>
<asp:Button ID="Button1" runat="server" Text="SUBMIT" OnClick="Button1_Click"/></asp:Button >
<br />
VISITOR COUNT:
<p>
<asp:Label ID="Label1" runat="server" Text=""></asp:Label>
</p>
</form>
</body>
</html>
-----------------------------------------------------------------------------------------------------
Default.aspx.vb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If chkRememberMe.Checked Then
Response.Cookies("UserName").Expires = DateTime.Now.AddDays(30)
Else
Response.Cookies("UserName").Expires = DateTime.Now.AddDays(-1)
End If
Response.Cookies("UserName").Value = txtUserName.Text.Trim
Label1.Text = "This Page has been Visited for " & Application("pagecount") & " times"
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
If (Not (Request.Cookies("UserName")) Is Nothing) Then
txtUserName.Text = Request.Cookies("UserName").Value
End If
End If
If Not IsPostBack Then
Application("pagecount") = Application("pagecount") + 1
End If
End Sub
End Class
No comments:
Post a Comment