Petro123,
Да, в верху рабочий код.
Динамика понадобилась по двум причинам:
1) в контроле, создаваемом в статике, отсутствует свойство перенаправления на страницу в случае валидной пары логин/пароль.
Это перенаправление задается в web.config. В динамически создаваемом контроле я могу задать страницу входа для удачной попытки авторизации
DestinationPageUrl это и окупает весь банкет.
2) Изменение страницы входа понадобилось в связи с тем, что весь сайт генерится динамически, используя только одну физически существующую страницу. Возможно это утопия, но в части масштабирования пока все хорошо.
Petro123Где не рабочий код?
Как такового не рабочего кода не существует. Проблема в том, что контрол Login не реагирует на удачную авторизацию, т.к. ни чего в свою очередь не получает, а соответственно пишет о неправильном логин/пароль.
У статического контрола в событие передается некий загадочный параметр "е", с помощью которого в контрол передаются значения логина и пароля и возвращается результат проверки.
код события авторизации контрола Login
1.
2.
3.
4.
5.
6.
7.
Protected Sub LoginControl_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles LoginControl.Authenticate
Dim Authenticated As Boolean
Authenticated = SiteSpecificAuthenticationMethod(LoginControl.UserName, LoginControl.Password)
e.Authenticated = Authenticated
End Sub
и код функции проверки
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Function SiteSpecificAuthenticationMethod(ByVal NameUser As String, ByVal MuPassword As String) As Boolean
'Protected Sub Buttonauthentication_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Buttonauthentication.Click
Dim oledbCnn1 As New OleDbConnection("Provider=SQLOLEDB; " & System.Configuration.ConfigurationManager.ConnectionStrings("OrdersConnectSQL").ConnectionString)
Dim StrSql As String = "select count(id_counteragent) from counteragent where login_counteragent='" & NameUser & "' and password_counteragent='" & MuPassword & "';"
Dim sql1 As String
Dim cmd As New OleDb.OleDbCommand(StrSql, oledbCnn1)
oledbCnn1.Open()
sql1 = cmd.ExecuteScalar()
oledbCnn1.Close()
If sql1 = 0 Then
SiteSpecificAuthenticationMethod = False
Else
SiteSpecificAuthenticationMethod = True
End If
End Function
См. break на загадочный параметр
Немного забегая в перед, скажу - подобный вариант воспроизводиться путем
1.
Dim Mu_Authenticated As New System.Web.UI.WebControls.AuthenticateEventArgs
Но результат отрицательный.
Создаем контрол из кода
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Dim LogIn_User As New Login ' Панель авторизации
Sub authentication()
With LogIn_User
.CssClass = "authentication"
.TextLayout = LoginTextLayout.TextOnLeft
.TitleText = "Панель авторизации"
.LoginButtonText = "Выполнить вход"
.UserNameLabelText = "Логин"
.PasswordLabelText = "Пароль"
.RememberMeText = "Запомнить меня"
.DisplayRememberMe = True ' управление выводом флажка запомнить меня
.CreateUserText = "Регистрация"
.CreateUserUrl = "/" & Parameter_City & "/registration"
.PasswordRecoveryText = "Восстановление пароля"
.PasswordRecoveryUrl = "/" & Parameter_City & "/recover"
.PasswordRequiredErrorMessage = "Введите пароль"
.UserNameRequiredErrorMessage = "Введите логин"
.DestinationPageUrl = "/" & Parameter_City & "/order"
.FailureText = "Не верный логин или пароль"
AddHandler LogIn_User.Authenticate, AddressOf mu_LoginControl_Authenticate
End With
PlaceHolder_Content.Controls.Add(LogIn_User)
End Sub
Далее в процедуре вызванной событием контрола mu_LoginControl_Authenticate проводим проверку пары логин/пароль
и на сцене появляется загадочный параметр "е", с помощью которого собственно контрол Login узнает о результате проверки.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Protected Sub mu_LoginControl_Authenticate()
Dim oledbCnn1 As New OleDbConnection("Provider=SQLOLEDB; " & System.Configuration.ConfigurationManager.ConnectionStrings("OrdersConnectSQL").ConnectionString)
Dim StrSql As String = "select count(id_counteragent) from counteragent where login_counteragent='" & LogIn_User.UserName & "' and password_counteragent='" & LogIn_User.Password & "';"
Dim sql1 As String
Dim cmd As New OleDb.OleDbCommand(StrSql, oledbCnn1)
oledbCnn1.Open()
sql1 = cmd.ExecuteScalar()
oledbCnn1.Close()
If sql1 = 0 Then
'Тут должно быть нечто, что лежит в е.Authenticated = false
Else
'Тут должно быть нечто, что лежит в е.Authenticated = true
End If
End Sub
Я могу с помощью приема, именуемого в народе "лом", выполнить авторизацию, но опасаюсь раскидать грабли в будущее.
Прием выглядит так
1.
FormsAuthentication.SetAuthCookie(LogIn_User.UserName, True)
и следующим эффектным броском
1.
Response.Redirect("отправить контрол Login со всей требухой в долгое эротическое путешествие")
В принципе работает и контрол LoginStatus это кушает и работает штатно, но мерещатся грабли.
Вопрос открыт, что таиться в параметре
е ?
Как сделать по другому и грамотно?
