2.5. Интерактивный Web-узел
Интерактивный режим поддерживается при помощи страниц, содержащих формы и сценарии. Добавим такие страницы (index.htm и authentic.asp) в созданный Web-узел и внесем некоторые изменения в предыдущие страницы. В результате схема Web-узла примет вид, изображенный на рис. 2.5.1.
Рис. 2.5.1. Схема Web-узла.
Листинг index.htm:
<html>
<head>
<title> Страница index.htm </title>
</head>
<body background="images/j0143751.gif">
<h1> Web-узел Сидорова С.</h1>
<h3> Домашняя страница. </h3>
<script LANGUAGE = "VBSCRIPT">
Msgbox "Ни пуха, ни пера!", vbOKOnly, "Привет!"
</script><BR>
<h2> Благодарю за посещение. </h2>
<p><font FASE="Arial" COLOR="Red" SIZE="6"><i>
<b>Обещаю учиться на отлично!</b></i></font></p>
<h4>Для доступа к другим страницам введите имя, пароль и нажмите на кнопку <b>Ввод</b>.</h4>
<form action="authentic.asp" method="POST">
<table border="0" width="40%">
<tr>
<td width="29%">Имя:</td>
<td width="71%"><input type="text" name="Login" size="20"></td>
</tr>
<tr>
<td width="29%">Пароль:</td>
<td width="71%"><input type="password" name="Password" size="20"></td>
</tr>
<tr>
<td width="29%"><input type="submit" value="Ввод" name="Ok"></td>
<td width="71%"><input type="reset" value="Отмена" name="Cancel"></td>
</tr>
</table>
</form>
</body>
</html>
Пояснения.
<script LANGUAGE = "VBSCRIPT">Msgbox "Ни пуха, ни пера!", vbOKOnly, "Привет!"</script><BR> эта запись определяет сценарий, написанный на языке VBSCRIPT и выполняемый на стороне клиента;
<table> тег, указывает на начало и конец таблицы; в виде таблицы оформлены компоненты для ввода имени и пароля, а также кнопки Ввод и Отмена; введенные значения присваиваются переменным Login и Password, при нажатии кнопки Ввод они передаются по методу POST на страницу authentic.asp.
Отображение страницы в браузере приведено на рис. 2.5.2.
Рис. 2.5.2. Просмотр страницы index.htm в браузере.
Листинг authentic.asp:
<%@ LANGUAGE = "VBSCRIPT" %>
<HTML>
<HEAD><title> Страница authentic.asp </title>
<%
sLogin=Request.Form("Login")
sPassword=Request.Form("Password")
%>
</HEAD>
<BODY>
<h2>Аутентификация.</h2>
<%
If sLogin = "МТУСИ" AND sPassword = "123" Then
Response.Redirect "index1.htm"
else
Response.Redirect "index.htm"
end if
%>
</BODY>
</HTML>
Пояснения:
Данная страница является активной серверной страницей (ASP Active Server Pages), предназначена для размещения серверных сценариев; сценарии заключены в специальные скобки <% %> и написаны на языке VBSCRIPT.
Первый сценарий принимает из формы значения Login и Password и присваивает их соответственно переменным sLogin и sPassword, для чего используется объект Request.Form.
Второй сценарий анализирует принятые значения имени и пароля на их соответствие заданным значениям и по результатам сравнения перенаправляет пользователя по другому адресу (пропускает далее на страницу index1.htm, или возвращает на страницу index.htm) для чего используется объект Response.Redirect.
Страница в браузере не отображается.
Листинг index1.htm:
<HTML>
<HEAD>
</HEAD>
<BODY background="images/j0143751.gif">
<h1> Web-узел Сидорова С. </h1>
<h2> Благодарю за посещение! </h2>
<h2>Доступ разрешен.</h2>
<h4>Используйте гиперссылки</h4>
<a href="hobby.htm">
<img src="turqball.gif" border=0 align="middl"
alt="hobby" width="12" hight="16">
Мои увлечения</a><BR>
<p><BR>
<a href="index.htm"><img src="homeoff.gif" border=0 align="middl"
alt="Exit" width="60" hight="50">Exit</a>
<hr width="70%" size="3" align="left">
Адрес:   На деревню Сидорова, Building 13<BR>
Телефон: 192-2222, факс: 192-2223<BR>
E-mai: sidr@sidorsoft.ru
</BODY>
</HTML>
Пояснения:
<hr width="70%" size="3" align="left"> эта строка отображает горизонтальную линию с указанием ее параметров; ниже линии приведена необходимая персональная информация.
Отображение страницы в браузере приведено на рис. 2.5.3.
Рис. 2.5.3. Просмотр страницы index1.htm в браузере.
.
Листинг hobby.htm:
<html>
<head>
<title> Страница hobby.htm </title>
</head>
<body background="images/j0143751.gif">
<h1> Web-узел Сидорова С.</h1>
<h1> Мои увлечения <BR>
</h1>
<table background="woodgran.gif" bordercolor="#0000FF"
border="5" cellpadding="6">
<tr bgcolor="Yellow">
<td><b>Номер</b></td>
<td><p align="center"><b>Название</b></p>
</td>
</tr>
<tr>
<td><p align="center"><b>1</b></p>
</td>
<td><b>Путешествия</b></td>
</tr>
<tr>
<td align="center"><b>2</b></td>
<td><b> Web-design </b></td>
</tr>
<tr>
<td align="center"><b>3</b></td>
<td><b>Футбол </b></td>
</tr>
</table><BR>
<A href="index1.htm">
<img src="turqball.gif" alt="На предыдущую страницу" border="0"
width="20" height="23"> Назад</A><BR>
<p>
<A href="index.htm">
<img src="homeoff.gif"
alt="Выход" border="0"
width="67" height="23"> Exit</A>
</body>
</html>
Пояснения:
Листинг содержит таблицу и две гиперссылки. Отображение страницы в браузере приведено на рис. 2.5.4.
Рис. 2.5.4. Просмотр страницы hobby.htm в браузере.