Login problem

• • Reply

  13 years ago

  by BR-Soft

  Besnik Rama

  Mitrovica, Albania

  Joined 15 years ago

  Hello, I'm writing an aspx form and need to check the login so if the user exist he can upload file if doesn't then he must register, I'm using the login control in visual studio but it's not working. I use this code:

  Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate

  Dim Authenticated As Boolean = False

  Authenticated = SiteLevelCustomAuthenticationMethod(Login1.UserName, Login1.Password)

  e.Authenticated = Authenticated

  If Authenticated = True Then

  Response.Redirect("login_true.aspx")

  End If

  End Sub

  Private Function SiteLevelCustomAuthenticationMethod(ByVal UserName As String, ByVal Password As String) As Boolean

  Dim boolReturnValue As Boolean = False

  'Dim strConnection As String = "datasource"

  Dim Connection As SqlConnection = New SqlConnection(conn)

  Dim strSQL As String = "Select * From Table1"

  Dim command As SqlCommand = New SqlCommand(strSQL, Connection)Dim Dr As SqlDataReader

  Connection.Open()

  Dr = command.ExecuteReader

  While Dr.Read

  If ((UserName = Dr("UserName").ToString) And (Password = Dr("Pass").ToString)) Then

  boolReturnValue = True

  End If

  Dr.Close()

  Return boolReturnValue

  End While

  End Function

   

  I get this code from the internet but it doesn't work for me, any ideas

  Report abuse
• • Reply

  13 years ago

  by Mulish Mehdi

  Tehran, Iran

  Joined 16 years ago

  Hi there,
  

  The Method

      Public Function ValidateUser(ByVal username As String, ByVal password As String) As Boolean
          Dim retval As Integer
  
          Dim sqldb As New SqlDataProvider.SqlDatabase("ConnectionString")
          sqldb.ExecuteNonQuery("dbo.ValidateUser", retval, username, password)
  
          Return retval
      End Function

  The Stored Procedure

  Create Procedure dbo.ValidateUser
  (
  	@Username nvarchar(256),
  	@Password nvarchar(128)
  )
  As
  Begin
  	If Exists(Select * From dbo.Users Where (Username = @Username) And (Password = @Password))
  		Return 1
  End

  You can use SQLDataProvider Class

  Hope this helps

  Report abuse
• • Reply

  13 years ago

  by driazi

  Davood Riazi

  , Iran

  Joined 13 years ago

  Try this... 

  Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate

  Dim Authenticated As Boolean = False

  Authenticated = SiteLevelCustomAuthenticationMethod(Login1.UserName, Login1.Password)

  e.Authenticated = Authenticated

  If Authenticated = True Then

  Response.Redirect("apage.aspx")

  End If

  End Sub

  Private Function SiteLevelCustomAuthenticationMethod(ByVal UserName As String, ByVal Password As String) As Boolean

  Dim boolReturnValue As Boolean = False

  'Dim strConnection As String = "datasource"

  Dim Connection As SqlConnection = New SqlConnection(your server creds)

  Dim strSQL As String = "Select * From tbllogin WHERE LoginName = '" & Login1.UserName & "'"

  Dim command As SqlCommand = New SqlCommand(strSQL, Connection)Dim Dr As SqlDataReader

  Connection.Open()

  Dr = Command.ExecuteReader

  While Dr.Read

  If ((UserName = Dr("LoginName").ToString) And (Password = Dr("PassWord").ToString)) Then

  boolReturnValue = True

  End If

  Dr.Close()

  Return boolReturnValueEnd While

   

   

  End Function

  Report abuse