Проект Кабина для голосования
Проект День рождения
Проект Рассылка почты

Приложение Кабина для голосования включает в себя две страницы ASP.NET, на которых расположено множество элементов управления. С описанием этих элементов, а также с кодом страниц мы и познакомимся в настоящем разделе.

На странице Регистрация осуществляется проверка имени и пароля перед тем, как сотруднику будет разрешен доступ к странице Кабина для голосования.

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

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
Text=''Заполците оба поля."
/>

<asp:TextBox
id="txtEmployeeName"
Columns="25"
MaxLength="1ОО"
runat=server
/>

<asp:RequiredFieldValidator
id="rfvEmployeeName"
ControlToValidate="txtEmployeeName"
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_Click"
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=INETC4;" _
& "User Id=sa;" _
& "Password=yourpassword;")
DBCoiranand = New OleDbDataAdapter _
("Select EmployeelD from " _
& "VoteEmployees Where " _
& "EmployeeName = ' " _
& Replace (txtEmployeeName.Text, " ' "," ' ") _
& " 'and Password = ' " _
& " Replace (txtPasword.Text, " ' "," ' ") _
& " ' ", DBConn)
DBCommand.Fill(DSPageData, _
"Signln")
If DSPageData.Tables("Signln").
Rows.Count = 0 Then
IblMessage.Text = "Имя и пароль не найдены. " _
& "Попробуйте еще раз."
Else
Session("EmployeelD") = DSPageData.Tables("Signln"). _
Rows(O).Item("EmployeelD")
Response.Redirect("./voting_booth.aspx")
End If
End Sub

DBCommand - New OleDbDataAdapter _
("Select EmployeelD from " _
& "VoteEmployees Where " _
& "EmployeeName = '" _
& Replace(txtEmployeeName.Text, " ' ", " ' ' ") _
& "' and Password = '" _
& Replace(txtPassword.Text, "'", "ll") _
& "'", DBConn)
DBCommand.Fill(DSPageData, _
"Signln")

If DSPageData.Tables("Signln"). _
Rows.Count = 0 Then

Имя и пароль не найдены. Попробуйте еще раз.

Session("EmployeelD") = DSPageData.Tables("Signln"). _
: Rows(O).Item("EmployeelD")

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