README.md

December 4, 2022 · View on GitHub

ASP.NET Database Login

Description

This is for all you ASP programmers out there looking for a way to validate users against a SQL database and are used to the old ADO RecordSource.EOF way like myself. You must change to represent your database.

More Info

Submitted On
ByRobert L Long
LevelIntermediate
User Rating3.9 (47 globes from 12 users)
CompatibilityASP.NET
CategoryValidation/ Processing
World.Net (C#, VB.net)
Archive File

Source Code

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="index.aspx.vb" Inherits="VirtualManagement.Login"%>
<%@ Register TagPrefix="uc1" TagName="Menu" Src="Menu.ascx" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
    <title>Login</title>
    <meta content="False" name="vs_showGrid">
    <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
    <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
    <meta content="JavaScript" name="vs_defaultClientScript">
    <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
    <script language="VB" runat="server">

    Sub Login_Click(Sender As Object, E As EventArgs)
        ' Robert Long
        ' GlobalDeveloping.com
        ' This is for all you ASP programmers out there looking for
        ' a way to validate users against a SQL database and are used to
        ' the old ADO RecordSource.EOF way like myself.

        Dim StrUser As String, StrPass As String
        Dim BValid As Boolean
        Dim ConVM As SqlConnection
        Dim CmdCoInfo As SqlCommand
        Dim DrCoInfo As SqlDataReader
        Dim StrSQL As String

        ' We will request all variables from our form with this.
        ' Look Mom "No QueryStrings".
        StrUser = TxtUser.Text
        StrPass = TxtPass.Text

        ' This is our boolean variable for validation purposes set to true if valid user
        BValid = False

        ' Initialize Database Connection
        ' Use whatever server you have
        ConVM = New SqlConnection("Server=MyServer\NetSDK;UID=sa;PWD=;Database=Pubs")

        ' Create Select Command
        ' Also, notice that it is only selecting a record if the username/password match
        ' Otherwise it selects nothing
        ' Make sure you change to match your variables
        StrSQL = "SELECT * FROM Pubs WHERE UserName='" & StrUser & "'"
        CmdCoInfo = New SqlCommand(StrSQL, ConVM)

        ' Retrieve the record that matches the username/password
        ConVM.Open()


        DrCoInfo = CmdCoInfo.ExecuteReader()

        ' This acts like the (Not RecordSource.Eof) in ASP 3.0
        While DrCoInfo.Read()
            If DrCoInfo("UserName") <> "" And DrCoInfo("Password") <> "" Then
                '(Optional) Write the username to a cookie to personilize the site
                Response.Cookies("ValidUser").Value = DrCoInfo("UserName")
                Response.Cookies("ValidUser").Expires = DateTime.Now.AddMonths(1)
                BValid = True
            Else
            End If
        End While

        ' Don't forget this
        ConVM.Close()

        ' This handles all response per validation
        ' If validated it goes to a welcome.aspx page
        If BValid = True Then
        Response.Redirect("Welcome.aspx")
        ElseIf BValid = False Then
        LblError.Text = "Login Error: Please try again."
        End If
        End Sub

    </script>
</HEAD>
<body bottomMargin="0" bgColor="gray" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout">
<form runat="server">
<asp:panel id="PnlLogin" style="Z-INDEX: 101; LEFT: 29px; POSITION: absolute; TOP: 72px" runat="server" HorizontalAlign="Center" Height="184px" BorderColor="Transparent" BorderWidth="2px" BorderStyle="Outset" BackColor="LightSteelBlue" Width="326px">
<P>&nbsp;</P>
<P>
<asp:Label id="LblUser" runat="server" Width="73px" Font-Names="Arial" Font-Size="X-Small">Username</asp:Label>
<asp:TextBox id="TxtUser" runat="server" Width="120px" BackColor="Azure" Height="20px"></asp:TextBox></P>
<P>
<asp:Label id="LblPass" runat="server" Width="73px" Font-Names="Arial" Font-Size="X-Small">Password</asp:Label>
<asp:TextBox id="TxtPass" runat="server" Width="120px" BackColor="Azure" Height="20px" TextMode="Password"></asp:TextBox></P>
<P>
<asp:Button id="CmdLogin" runat="server" Width="99px" BackColor="Gold" Height="25px" Font-Names="Arial" Font-Size="X-Small" OnServerClick="Login_Click" Text="Log-in Now" ForeColor="Black"></asp:Button></P>
</asp:panel><asp:panel id="PnlTitle" style="Z-INDEX: 102; LEFT: 32px; POSITION: absolute; TOP: 75px" runat="server" HorizontalAlign="Left" Height="19px" BorderColor="Navy" BorderWidth="1px" BorderStyle="Solid" BackColor="DarkBlue" Width="320px" Font-Names="Arial" Font-Size="X-Small" ForeColor="White" Font-Bold="True">&nbsp;Log-on Window</asp:panel>&nbsp;
<asp:Label id="LblError" style="Z-INDEX: 103; LEFT: 46px; POSITION: absolute; TOP: 46px" runat="server"                 Width="288px" Font-Names="Arial Black" ForeColor="Yellow"></asp:Label>
        </form>
    </body>
</HTML>