Проект состоит из шести страниц ASP.NET. В данном разделе рассматриваются связанные с ними код и элементы управления.

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

<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width=" 90%."
Font-Size="25pt"
Font-Name="Tahoma"
Text="<center>Дo6po пожаловать в виртуальный университет</сеntег>"
runat="server"
/>

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
Text=''Заполните каждое поле, чтобы начать обучение."
/>

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

<asp:RequiredFieldValidator
id="rfvStudentName"
ControlToValidate="txtStudentName"
Display="Dynamic"
Font-Name="Tahoma"
Font-Size="10pt"
runat="server">
Введите имя!
</asp:RequiredFieldValidator>

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

<asp:RequiredFieldValidator
id="rfvPassword"
ControlToValida?e="txtPassword"
Display="Dynamic"
Font-Name="Ve rdana"
Font-Size="10pt"
runat="server">
Ввод пароля обязателен!
</asp:RequiredFieldValidator>

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

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 Cata-log-INETC9;n _
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select StudentlD from " _
& "Students Where "
& "studentName = '" & txtStudentName.Text
& "' and Password = '" & txtPassword.Text _
? "'", DBConn)
DBCommand.Fill(DSLogin, _
"Studentlnfo")
If DSLogin.Tables("Studentlnfo").
Rows.Count = 0 Then
IblMessage.Text = "Имя студента и пароль" _
& "не обнаружены. Введите данные еще раз."
Else
Session("StudentID") = DSLogin.Tables("Studentlnfo").
Rows(0).Item("StudentID")
Session("StudentName") = txtStudentName.Text
Response.Redirect("./home_room.aspx")
End If
End Sub