Login Name control

Question

Hi.
I have a project,where it will display the username of the current logged in user (loginname control) after user login.
In that project,i have own custom data which allows users to enter some information that will be stored in my custom database.
Along with the other information i also want the login name control to store the content ie the User's name, to my custom database.

Any ideas guys?

Felipe Ramos · Answer

Hello Sam, the code below is actually the code behind of a UserControl that you can drop in in any page or you can just create your code in your Master page if you think you wont need it anywhere else in your project. The important part is that you validate your login and store the information into Session.

sam · Answer

Hi Felipe. Where do i put this code?i m using master page. And how it works?

Felipe Ramos · Answer

This is the code behind for my login UserControl, for storing information into your database you want to encapsulate those functions in your objects. Option Strict On Imports BL.Impl Imports BL.Framework Partial Public Class Login Inherits System.Web.UI.UserControl #Region "Variables" Protected m_accountServices As New AccountServices() #End Region #Region "Page Events" Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load CheckSession() End Sub #End Region #Region "Control Events" Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click Try lblError.Text = m_accountServices.Login(txtUsername.Text, txtPassword.Text) CheckSession() Catch ex As Exception lblError.Text = ex.Message End Try End Sub Protected Sub lbPasswordReminder_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbPasswordReminder.Click SetPasswordRecoryPanel() End Sub Protected Sub lbLogout_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbLogout.Click m_accountServices.Logout() End Sub Protected Sub lbCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbCancel.Click CheckSession() End Sub Protected Sub lbSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbSubmit.Click Try SetPasswordRecoryPanel() lblReminderError.Text = String.Empty Dim username As String = txtUsernameReminder.Text Dim email As String = txtEmailReminder.Text Dim acct As New Account() If String.IsNullOrEmpty(username) AndAlso String.IsNullOrEmpty(email) Then Throw New Exception("Username or Email are required to lookup security questions.") Else acct = AccountServices.LoadAccount(email, username) ' Store account in session for password retrieval Session("regacct") = acct Response.Redirect("security.aspx", False) End If Catch ex As Exception lblReminderError.Text = ex.Message End Try End Sub #End Region #Region "Helper Functions" Private Sub CheckSession() Dim userSession As New UserSession() If userSession.LoggedIn Then logoutPanel.Visible = True loginPanel.Visible = False lblWelcome.Text = String.Format(lblWelcome.Text, userSession.CurrentUser.Username) Response.Redirect("home.aspx") Else logoutPanel.Visible = False passwordReminderPanel.Visible = False loginPanel.Visible = True End If End Sub Private Sub SetPasswordRecoryPanel() logoutPanel.Visible = False loginPanel.Visible = False passwordReminderPanel.Visible = True End Sub #End Region End Class

Login Name control

Answers (3)