Проект Закладки
Проект Регистрация
Проект Предпочтения

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Application("AllowAdd") = True Then
IblNewUser.Text = "<A HREF=""./new_user.aspx""" _
& ">Новый пользователь,</А>"
End If .
If Session("NumTries") > Application("MaxTries") Then
Response.Redirect("./failed_login.aspx")
End If
End Sub

If Application("AllowAdd") = True Then

IblNewUser.Text = "<A HREF=""./new_user.aspx""" _
& ">Новый пользователь,</А>"

If Session("NumTries") > Application("MaxTries") Then

Response.Redirect("./failed_login.aspx")

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand AS OleDbDataAdapter
Dim DSLogin as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC12;" _
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select UserlD from Users Where " _
& "UserName = '" & txtUserName.Text _
& "' and Password = '" & txtPassword.Text _
& ""', DBConn)
.DBCommand.Fill(DSLogin, _
"Userlnfo")
If DSLogin.Tables("Userlnfo"). _
Rows.Count = 0 Then
Session("NumTries") = Session("NumTries") + 1
If Session("NumTries") >= _
Application("MaxTries") Then
Response.Redirect("./failed_login.aspx")
Else
IblMessage.Text = "Имя пользователя и пароль " _
& "не найдены. Введите их еще раз."
End If
Else
Session("UserlD") = DSLogin.Tables("Userlnfo"). _
Rows(O).Item("UserID")
Response.Redirect("./success_login.aspx")
End If
End Sub

DBCommand=- New OleDbDataAdapter _
("Select UserlD from Users Where " _
& "UserName= '" & txtUserName.Text _
& "' and Password= '" & txtPassword.Text _
& ""', DBCo-nn)

DBConunand.Fill (DSLogin, _
"Userlnfo")

If DSLogin.Tables("Userlnfo").
Rows.Count = 0 Then

Session("NumTries") = Session("NumTries") + 1

If Session("NumTries") >= _
Application("MaxTries") Then