Кодирование главной страницы

Так как проверка пользователя (аудификация) будет осуществляться на главной странице, необходимо подключить соответствующую библиотеку.

Откройте страницу с выделенным кодом и в первой строке добавьте

Создайте обработчик загрузки страницы. Если пользователь не авторизирован на странице отображаются поля для ввода логина и пароля. Если пользователь авторизирован (сессия не пустая) эти поля скрыты и в метке отображается приветсвие пользователю.

До авторизации После авторизации

Процесс авторизации (кнопка <OK>)

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myuser As String, id As Long

Dim ПОЛЬЗОВАТЕЛЬ_АУТЕНТИФИЦИРОВАН As Boolean = False

' Строка подключения:

Dim СтрокаПодкл As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Web.mdb")

' Создание экземпляра объекта Connection

Dim CONNECTION = New OleDbConnection(СтрокаПодкл)

Try ' Открытие подключения:

CONNECTION.Open()

Catch ex1 As Exception

Label2.Text = ex1.Message

End Try

' Строка SQL-запроса для проверки имени и пароля:

Dim SQL_запрос As String = "SELECT Iduser FROM S_user WHERE (NameU = '" & TextBox1.Text & "' AND Parol = '" & TextBox2.Text & "')"

' MsgBox(SQL_запрос)

myuser = TextBox1.Text

' Создание объекта Command с заданием SQL-запроса:

Dim COMMAND As New OleDbCommand

COMMAND.CommandText = SQL_запрос

COMMAND.Connection = CONNECTION

Try ' Выполнение команды SQL:

Dim DATAREADER As OleDbDataReader

DATAREADER = COMMAND.ExecuteReader

If DATAREADER.Read = True Then

ПОЛЬЗОВАТЕЛЬ_АУТЕНТИФИЦИРОВАН = True

'определение значения поля

id = DATAREADER.GetValue(0)

Else

ПОЛЬЗОВАТЕЛЬ_АУТЕНТИФИЦИРОВАН = False

Label2.Text = "Неправильное имя или пароль, пожалуйста, зарегистрируйтесь !"

End If

Catch ex2 As Exception

Label2.Text = Label2.Text & "<br>" & ex2.Message

End Try

CONNECTION.Close()

If ПОЛЬЗОВАТЕЛЬ_АУТЕНТИФИЦИРОВАН = True Then

' Направление на уже разрешенную страницу:

'записываем в смессию имя пользователя

Session.Add("nameU", myuser)

Session.Add("IDU", id)

'==========

Me.TextBox1.Visible = False

Me.TextBox2.Visible = False

Me.Label1.Visible = True

Me.Label4.Visible = False

Me.Label5.Visible = False

Me.Button1.Visible = False

Me.Button2.Visible = False

Me.Label1.Text = "Привет " & myuser & "!"

End If

End Sub