Проект Библиотека
Проект Отчет о происшествии

Приложение Библиотека состоит из пяти страниц ASP.NET. Чтобы приложение функционировало, в коде каждой страницы используются разнообразные элементы управления. В данном разделе рассматриваются эти пять страниц.

Страница Регистрация является начальной страницей приложения. Сотрудник компании должен правильно ввести имя и пароль, для того чтобы получить возможность доступа к другим страницам приложения.

<asp:Label
id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Text="Регистрация"
runat="server"
/>

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name=l'Tahoma"
Font-Bold="True"
runat="server"
Text="BBeiwTe имя пользователя и пароль для доступа к библиотеке."
/>

<asp:TextBox
id="txtUserName"
Columns="25"
MaxLength="100"
runat=server
/>

<asp:RequiredFieldValidator
id="rfvUserName"
ControlToValidate="txtUserName"
Display»"Dynamic"
Font-Name="Tahoma"
Font-Size="10pt"
runat=server>

</asp:RequiredFieldValidator>

<asp:TextBox
id="txtPassword"
Columns="25"
MaxLength="50"
runat=server
TextMode="Password"
/>

<asp:RequiredFieldValidator
id="rfvPassword"
ControlToValidate="txtPassword"
Display="Dynamic"
Font-Name="Verdana"
Font-Size="10pt"
runat=server>

</asp:RequiredFieldValidator>

<asp:button
id="butOK"
text=" OK "
Type="Submit"
OnClick="SubmitBtn_ClicJc"
runat""server"
/>

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETCS;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select LibUserlD, UserType from " _
& "LibUsers Where "
& "UserName = '" _
& Replace(txtUserName.Text, ""', """).
. & "' and Password = '" _
& Replace(txtPassword.Text, "'", "'"') _
& "'", DBConn)
DBCommand.Fill(DSPageData, _
"Signln")
If DSPageData.Tables("Signln") _
Rows.Count = 0 Then
IblMessage.Text = "Имя пользователя и пароль " _
& "не найдены. Введите их еще раз."
Else
Session("LibUserlD") = DSPageData.Tables("Signln").
Rows(O).Item("LibUserlD")
Session("UserType") = DSPageData.Tables("Signln"). _
Rows(O).Item("UserType")
Response.Redirect("./menu.aspx")
End If
End Sub