LOGIN Page

Recent Files

Last Updated Files.

Posted by Admin on Today

January 2026

NAVIGATION EXAMPLE

SAMPLE MENU

New Item

PLEASE ENTER YOUR CREDENTIALS HERE
USER NAME :		OR
PASSWORD :		OR
	Remember for 7 Days...!		Forget Password ?

MY VIRTUAL PATH :/Samples/LoginDemo.aspx

Source Information:

<%@ Page Language="VB" MasterPageFile="~/MainMaster.master" AutoEventWireup="false" CodeFile="LoginDemo.aspx.vb" Inherits="LoginDemo" title="LOGIN Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
    <asp:Panel runat="server" DefaultButton="btnlogin">
    <table>
    <tr >
        <td colspan = "2" align ="left">
        
        PLEASE ENTER YOUR CREDENTIALS HERE
        </td>
        <td ></td>
        <td></td>
    </tr>
    <tr>
        <td>
        <asp:Label ID="Label1" runat="server" Text="USER NAME :"></asp:Label>
        </td>
        <td>
        <asp:TextBox ID="txtUname" runat="server" Height="22px" Width="160px" TabIndex="0"
                CssClass="invertbg"></asp:TextBox>
        </td>
        <td rowspan="2" ><asp:Label runat="server" Font-Bold="True" Font-Italic="True" 
                Font-Names="Lucida Calligraphy" Font-Size="Large">OR</asp:Label>    </td>
        <td rowspan=2>        
            <asp:ImageButton ID="lnkbtnSignUp" runat="server" 
            PostBackUrl="~/RegistrationDemo.aspx" 
            ImageUrl="~/images/NewUserRegistration.jpg" TabIndex="1"></asp:ImageButton> </td>
    </tr>
    <tr>
    <td><asp:Label ID="Label2" runat="server" Text="PASSWORD :"></asp:Label>
    </td>
    <td><asp:TextBox ID="txtUpass" runat="server" TextMode="Password" Height="22px" 
            Width="160px" TabIndex="0" CssClass="invertbg"></asp:TextBox>
    </td>
    <td ></td>
    </tr>
    <tr>
    <td>
    </td>
    <td>
    <asp:CheckBox runat="server" ID="chkRemember" Text="Remember for 7 Days...!" 
            TabIndex="0" />
    </td>
    <td></td>
    <td >  
     <b>   <asp:LinkButton runat="server" ID="lnkbtnforget" 
            PostBackUrl="~/forgetPassword.aspx" >Forget Password ?</asp:LinkButton></b>
    </td>
    <tr>
    <td>
    </td>
    <td>
    <asp:Button ID="btnlogin" runat="server" Text="Login" Height="23px" Width="81px" 
            TabIndex="0" />
    <asp:Button ID="btnCancel" runat="server" Text="Cancel" Height="23px" Width="81px" 
            TabIndex="0" UseSubmitBehavior="False" />
    
           
    </td>
    <td></td>
    <td ></td>
    </tr>
    <tr>
    <td></td>
    <td>
    <asp:Label ID="lblmystatus" runat="server" ForeColor="Red">
    <asp:Literal ID="Literal1" runat="server"></asp:Literal>
    </asp:Label>
        </td>
    <td>
        <asp:GridView ID="GridView1" runat="server" BackColor="White" 
            BorderColor="#999999" BorderStyle="None" BorderWidth="1px" CellPadding="3" 
            EnableModelValidation="True" GridLines="Vertical">
            <AlternatingRowStyle BackColor="#DCDCDC" />
            <EmptyDataTemplate>
                USER IS NOT REGISTERED
            </EmptyDataTemplate>
            <FooterStyle BackColor="#CCCCCC" ForeColor="Black" />
            <HeaderStyle BackColor="#000084" Font-Bold="True" ForeColor="White" />
            <PagerStyle BackColor="#999999" ForeColor="Black" HorizontalAlign="Center" />
            <RowStyle BackColor="#EEEEEE" ForeColor="Black" />
            <SelectedRowStyle BackColor="#008A8C" Font-Bold="True" ForeColor="White" />
        </asp:GridView>
        </td>
    <td ></td>
    </tr>  
    </table>
    </asp:Panel>
    </asp:Content>

Code Information:

Partial Class LoginDemo
    Inherits System.Web.UI.Page
    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Literal1.Text = ""
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Session.Abandon()
        'Session("User") = ""
        'Session("uidno") = ""
        'Session.Abandon()
        'Session.Clear()
        'txtUname.Focus()
        'Dim ck As New HttpCookie("SAMPLE")
        'ck.Expires = DateTime.Now.AddDays(-1)
        'Response.Cookies.Add(ck)
        'Label1.Font.Name = ConfigurationManager.AppSettings("font")
        'Label2.Font.Name = ConfigurationManager.AppSettings("font")
        'Me.Form.DefaultButton = Me.btnlogin.UniqueID
    End Sub
    '========================
    'md5 decryption function
    '========================
    Public Shared Function Decrypt(ByVal cipherString As String, ByVal useHashing As Boolean) As String
        Dim keyArray As Byte()
        'get the byte code of the string

Dim toEncryptArray As Byte() = Convert.FromBase64String(cipherString)

Dim settingsReader As System.Configuration.AppSettingsReader = New AppSettingsReader()
        'Get your key from config file to open the lock!
        Dim key As String = DirectCast(settingsReader.GetValue("SecurityKey", GetType([String])), String)

If useHashing Then
            'if hashing was used get the hash code with regards to your key
            Dim hashmd5 As New MD5CryptoServiceProvider()
            keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(key))
            'release any resource held by the MD5CryptoServiceProvider

hashmd5.Clear()
        Else
            'if hashing was not implemented get the byte code of the key
            keyArray = UTF8Encoding.UTF8.GetBytes(key)
        End If

Dim tdes As New TripleDESCryptoServiceProvider()
        'set the secret key for the tripleDES algorithm
        tdes.Key = keyArray
        'mode of operation. there are other 4 modes. 
        'We choose ECB(Electronic code Book)

tdes.Mode = CipherMode.ECB
        'padding mode(if any extra byte added)
        tdes.Padding = PaddingMode.PKCS7

Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
        Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
        'Release resources held by TripleDes Encryptor                
        tdes.Clear()
        'return the Clear decrypted TEXT
        Return UTF8Encoding.UTF8.GetString(resultArray)
    End Function

Protected Sub btnlogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        '' CHECK USERNAME PWD IN DB. IF SUCCESS THEN CREATE SESSION
        'If TextBox1.Text = "" Or TextBox2.Text = "" Then
        '    lblInfo.Text = "Please See Details"
        'Else
        '    'CHECH UR USER DETAILS
        '    Session("Ruser") = TextBox1.Text
        '    Dim dtm As New DateTime
        '    dtm.ToString("ddMMyyyy-HHmmss")
        '    dtm = DateTime.Now.TimeOfDay.ToString
        '    Session("Ltime") = dtm.ToString
        '    Profile.fname = TextBox1.Text
        '    Profile.lname = TextBox2.Text
        '    Response.Redirect("ListofFiles.aspx")
        'End If

'MsgBox(ConfigurationManager.AppSettings("myname"))
        'MsgBox(ConfigurationManager.AppSettings("mywebservice.Service"))

'  Dim constr As String = System.Web.Configuration.WebConfigurationManager.ConnectionStrings.Item(3).ConnectionString
        ' MsgBox(constr)
        ' MsgBox(ConfigurationManager.AppSettings("myname"))
        'MsgBox(System.Web.Configuration.WebConfigurationManager.ConnectionStrings(1).ConnectionString.ToString)
        'MsgBox(System.Web.Configuration.WebConfigurationManager.ConnectionStrings(2).ConnectionString.ToString)
        'MsgBox(System.Web.Configuration.WebConfigurationManager.ConnectionStrings(3).ConnectionString.ToString)

Dim query As String
        'query = "Select upassword from user_info where uname='" & txtUname.Text & "'"
        query = "Select upassword,[student_id],uid,[name],emailid,mobile,city,uname,div,simage,amount_bal,account_type from reg_details where emailid='" & txtUname.Text & "'"
        Dim myobj As New myconnection
        'DIM CN
        'DIM CMD
        'GIVE QUERY TO COMMAND AND CN

'CMD .EXECUTENONQUERY

'DIM DA 
        'DIM DS
        'DA.FILL(DS)
        'DS.TABLE(0)
        Dim dt As New DataTable
        'dt = ds.table(0)
        dt = myobj.getdata(query)
        'sample code to check record in gridview
        'GridView1.DataSource = dt
        'GridView1.DataBind()

If dt.Rows.Count > 0 Then
            'code for checking md5 encryption
            '================================
            'Dim encryptpassstr As String = Md5AddSecret(txtUpass.Text)
            'Response.Write(encryptpassstr)
            Dim decryptpassstr As String = Decrypt(dt.Rows(0).Item(0).ToString, True)
            ' Response.Write(decryptpassstr)

If decryptpassstr = txtUpass.Text Then
                'login success
                'store profile data
                'Profile.STUDENT_DETAILS.upassword = dt.Rows(0).Item(0).ToString

'sample commenting code for resolving error on 5/7/2022

'Profile.STUDENT_DETAILS.student_id = dt.Rows(0).Item(1).ToString
                'Profile.STUDENT_DETAILS.uid = dt.Rows(0).Item(2).ToString
                'Profile.STUDENT_DETAILS.name = dt.Rows(0).Item(3).ToString
                'Profile.STUDENT_DETAILS.emailid = dt.Rows(0).Item(4).ToString
                'Profile.STUDENT_DETAILS.mobile = dt.Rows(0).Item(5).ToString
                'Profile.STUDENT_DETAILS.city = dt.Rows(0).Item(6).ToString
                'Profile.STUDENT_DETAILS.uname = dt.Rows(0).Item(7).ToString
                'Profile.STUDENT_DETAILS.div = dt.Rows(0).Item(8).ToString
                'Profile.STUDENT_DETAILS.simage = dt.Rows(0).Item(9).ToString
                'Profile.STUDENT_DETAILS.amount_bal = dt.Rows(0).Item(10).ToString
                'Profile.STUDENT_DETAILS.account_type = dt.Rows(0).Item(11).ToString

'create session
                'give him entry to website
                Session("User") = dt.Rows(0).Item(4).ToString
                Session("uidno") = dt.Rows(0).Item(2).ToString
                Session("studid") = dt.Rows(0).Item(1).ToString
                Session("stuname") = dt.Rows(0).Item(3).ToString
                Session("studiv") = dt.Rows(0).Item(8).ToString
                Session("simage") = dt.Rows(0).Item(9).ToString
                Session("themeselected") = "Dec"
                'Response.Write(Session("uidno"))
                Dim dtm As New DateTime
                ' dtm = DateTime.Now.ToString("dd MM yyyy  hh:mm:ss tt")
                dtm = DateTime.Now.ToString

Session("Ltime") = dtm.ToString("dd MM yyyy  hh:mm:ss tt")
                'Session("Ltime") = dt.Rows(0).Item(1).ToString

'cookie code hidden
                If chkRemember.Checked Then
                    Dim ck As New HttpCookie("samples")
                    ck.Values.Add("Name", txtUname.Text)
                    ck.Values.Add("UniqueID", dt.Rows(0).Item(2).ToString)
                    ck.Values.Add("StudentID", Session("studid"))
                    ck.Values.Add("StudentName", Session("stuname"))
                    ck.Values.Add("StudentDiv", Session("studiv"))
                    ck.Values.Add("Time", DateTime.Now.ToString())
                    ck.Values.Add("colo", "Aqua")
                    ck.Values.Add("HELLO", Server.MapPath("image"))
                    ck.Expires = DateTime.Now.AddDays(7)
                    Response.Cookies.Add(ck)

Else
                    Dim ck As New HttpCookie("samples")
                    ck.Values.Add("Name", txtUname.Text)
                    ck.Values.Add("UniqueID", dt.Rows(0).Item(2).ToString)
                    ck.Values.Add("StudentID", Session("studid"))
                    ck.Values.Add("StudentName", Session("stuname"))
                    ck.Values.Add("StudentDiv", Session("studiv"))
                    ck.Values.Add("Time", DateTime.Now.ToString("dd MM yyyy  hh:mm:ss tt"))
                    ck.Values.Add("colo", "lime")
                    ck.Expires = DateTime.Now.AddHours(5)
                    Response.Cookies.Add(ck)
                End If
                'Response.Write("HPP DATA UID: " & Session("uidno") & "USERNAME " & Session("User"))

Response.Redirect("Welcome.aspx", True)

'If Request.QueryString("lastpage") = "" Then
                '    Response.Redirect("Welcome.aspx", False)
                'Else

'    Response.Redirect(Request.QueryString("lastpage"))
                'End If

'Literal1.Text = "LOGIN SUCCESS"
            Else
                Literal1.Text = "PASSWORD INCORRECT"
            End If
        Else
            Literal1.Text = "USER DOES NOT EXIST"
        End If
    End Sub

End Class