| home / programming / asp / quasi / 1 |   [previous] |
|
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<head>
<META http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Sample Login Form</title>
</head>
<body style="font:11px arial;">
<form runat="server">
<asp:Label
| id="lblmessage" runat="server" |
||||
| text=" Log Out " Type="Submit" OnClick="logoutBtn_Click" runat="server" |
</form>
</body>
</html>
The only elements in our HTML are the label, the button and our form. All of which are running at the server.
Here is the full source code from this article:
Login.aspx
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat="server">
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
| If txtmembername.text = "" and txtpassword.text ="" then | ||||
| lblname.visible = true lblpass.visible = true |
||||
| else if txtmembername.text = "" then | ||||
| lblname.visible = true | ||||
| else if txtpassword.text = "" then | ||||
| lblpass.visible = true | ||||
| else | ||||
| Dim DBConn as OleDbConnection Dim dtrResults as OleDBDataReader Dim DSLogin as New DataSet DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("/logins.mdb;")) DBConn.Open() Dim CmdStr As String Dim DBSelect As New OleDbCommand CmdStr =("Select id from members Where name = @MemberName and” _ |
||||
| & “password = @Password ") | ||||
| DBSelect = new OleDbCommand(CmdStr, DBconn) | ||||
| DBSelect.Parameters.Add("@MemberName", OleDbType.VarChar, 255) | ||||
| DBSelect.Parameters.Add("@Password", OleDbType.VarChar,
255) DBSelect.Parameters("@MemberName").Value = txtMemberName.text DBSelect.Parameters("@Password").Value = txtPassword.text dtrResults = DBSelect.ExecuteReader() if dtrResults.Read() |
||||
| session("memname") = txtmembername.text session("memberID") = dtrResults("id") Response.Redirect("/success.aspx") |
| else | ||||
| lblmessage.text = "Invalid user name or password" | ||||
| end if |
| id="lblmessage" Text="Please Log In" runat="server" |
| id="txtMemberName" Columns="30" MaxLength="30" runat="server" style="border:1px solid #008ACA;color: #788282; width:100px;" |
| id="lblname" Text="Name required<br>" visible="false" runat="server" |
| id="txtPassword" Columns="31" MaxLength="30" runat="server" TextMode="Password" style="border:1px solid #008ACA;color: #788282; width:100px;" |
| id="lblpass" Text="Pass Required<br>" visible="false" style="font runat="server" |
| id="butOK" text=" OK " OnClick="SubmitBtn_Click" runat="server" style="border:1px solid #008ACA;" |
Success.aspx
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
| if len(session("memberid")) = 0 then | ||||
| response.Redirect("/login.aspx") | ||||
| end if lblmessage.text = "Welcome to the site " & session("memname") _ & ". You have successfully logged in! Your member id is " _ & session("memberid") |
||||
| End Sub Sub logoutBtn_Click(Sender As Object, E As EventArgs) |
||||
| session("memname")="" session("memberid")="" response.Redirect("/success.aspx") |
||||
| id="lblmessage" BorderWidth="0px" Text="Please Log In" |
| text=" Log Out " Type="Submit" OnClick="logoutBtn_Click" runat="server" style="border:1px solid #008ACA;" /> |
If you have questions or comments about this code, feel free to send them to me through email, or feel free to post them in the asp section of http://forums.webdeveloper.com.
Nick Waters is a freelance web
developer who specializes in Asp.net. His web site is currently under renovation.
| home / programming / asp / quasi / 1 | [previous] |
Legal Notices, Licensing, Reprints, Permissions, Privacy Policy.
Advertise | Newsletters | Shopping | E-mail Offers | Freelance Jobs 
Created: March 27, 2003
Revised: February 29, 2004
URL: http://webreference.com/programming/asp/quasi/1
