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

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

IblMessage.Text = "Имя пользователя и пароль " _
& "не найдены. Введите их еще раз."

Session("UserID") = DSLogin.Tables("Userlnfo"). _
Rows(O) .ItempUserlD")

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

Страница Отказ в регистрации не содержит программного кода. Она просто отображает сообщение для посетителя о том, что доступ в базу данных ему не предоставляется. Возможно, вы захотите разместить на этой странице контактную информацию, которая позволит посетителю решить некоторые его проблемы.

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

Sub Page_Load (ByVal Sender as Object, ByVal E as EventArgs)
If Len (Session ( "UserlD" )) = 0 Then
Response. Redirect (" ./ index. aspx")
End If
IblMessage.Text = "Регистрация прошла успешно. " _
& "Добро пожаловать на узел ! "
End Sub

If Len (Session ("UserlD") ) = 0 Then

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

IblMessage.Text= "Регистрация прошла успешно. " _
& "Добро пожаловать на узел ! "

Код страницы Новый пользователь обеспечивает возможность ввода данных нового посетителя в базу данных.

В теле страницы задан ряд элементов управления. Один элемент Label отображает текст заголовка:

<asp: Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=9
Width=" 90%"
Font-Size="25pt"
Font-Name=" Impact "
Text="Новый пользователь"
runat=" server"
/>

<asp:Label
id="lblMessage"
Font-Size-"12pt"
Font-Name="Verdana"
runat="server"
Text="3ancuimiTe все поля для регистрации."

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

<asp : RequiredFieldValidator
id="rfvUserName"
ControlToValidate="txtUserName"
Display=" Dynamic"
Font-Name="Verdana"
Font-Size="10pt"
runat=server>
Необходимо ввести имя пользователя!
</asp:RequiredFieldValidator>