1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim com As New SqlClient.SqlCommand("select * from password", conn)
adap.SelectCommand = com
adap.Fill(ds, "pa")
tab1 = ds.Tables("pa")
For i As Integer = 0 To tab1.Rows.Count - 1
rw1 = tab1.Rows(i)
Dim nomm As Boolean = (String.Compare(Login1.UserName.Trim.ToUpper, rw1(0).trim.ToUpper) = 0)
Dim passw As Boolean = (String.Compare(Login1.Password.Trim.ToUpper, rw1(1).trim.ToUpper) = 0)
If nomm AndAlso passw Then
Session.Add("user", rw1(0))
Session.Add("rol", rw1(2))
FormsAuthentication.RedirectFromLoginPage(Login1.UserName, False)End If
Next
End Sub |
Partager