Практикум 6.3. Обработка списков, используя структуру перехода
П
<HTML> <HEAD> <TITLE>Pr_6_3</TITLE> </HEAD> <BODY> <H1>Учебный
пример pr_6_3</H1> <FORM
ACTION="Result_6_3.asp" METHOD=POST> Поле
для ввода <TEXTAREA
NAME="txtName" COLS="50"> </TEXTAREA> <BR> <BR> <SELECT
NAME="Colors"> <OPTION
VALUE="Black">Черный</OPTION> <OPTION
VALUE="Yellow">Желтый</OPTION> <OPTION
VALUE="Red">Красный</OPTION> <OPTION
VALUE="Blue">Синий</OPTION> <OPTION
VALUE="Green">Зеленый</OPTION> <OPTION
VALUE="Gray">Серый</OPTION> </SELECT> <BR> <BR> <INPUT
TYPE='SUBMIT' VALUE='Далее'> <INPUT
TYPE='RESET' VALUE='Сброс'> </FORM> </BODY> </HTML>
Сохраните этот код в файле под именем pr_6_3.asp.
Рис. 6.5. Экранное отображение примера pr_6_3.asp
Приступаем к результирующему файлу result_6_3.asp, код этого файла чуть ниже:
В
<HTML> <HEAD> <TITLE>pr_6_3</TITLE> </HEAD> <BODY> <% Dim
strName, strColor strName
= Request.Form("txtName") strColor
= Request.Form("Colors")
Select
Case strColor Case
"Black" Response.Write
"<DIV style='color:black;'>" & strName &"</DIV>" Case
"Yellow" Response.Write
"<DIV style='color:yellow;'>" & strName
&"</DIV>" Case
"Red" Response.Write
"<DIV style='color:red;'>" & strName &"</DIV>" Case
"Blue" Response.Write
"<DIV style='color:blue;'>" & strName &"</DIV>" Case
"Green" Response.Write
"<DIV style='color:green;'>" & strName &"</DIV>" Case
"Gray" Response.Write
"<DIV style='color:gray;'>" & strName &"</DIV>" End
Select %> </BODY> </HTML>
Практикум 6.4. Обработка результатов переключателя radio button структурой перехода If Then Else
П
<HTML> <HEAD> <TITLE>Pr_6_4</TITLE> </HEAD> <BODY> <H1>Учебный
пример pr_6_4</H1> <FORM
ACTION="Result_6_4.asp" METHOD=POST> <BR> <P>Введите
ваше имя</P> <INPUT
TYPE='TEXT' NAME='Firstname'> <P>Введите
ваше отчество</P> <INPUT
TYPE='TEXT' NAME='Middlename'> <BR> <INPUT
TYPE="Radio" NAME="Sex"
VALUE="Male">мужчина</INPUT><BR> <INPUT
TYPE="Radio" NAME="Sex"
VALUE="Female">женщина</INPUT><BR>
<INPUT
TYPE='SUBMIT' VALUE='Далее'> <INPUT
TYPE='RESET' VALUE='Сброс'> </FORM> </BODY> </HTML>
Вид окна браузера примера pr_6_4.asp:
Рис. 6.6. Пример pr_6_4.asp
Т
<HTML> <HEAD> <TITLE>pr_6_4</TITLE> </HEAD> <BODY> <% Dim
strSex, strFirstname, strMiddlename strSex
= Request.Form("Sex") strFirstname
= Request.Form("firstname") strMiddlename
= Request.Form("Middlename") If
strSex = "Male" Then Response.Write
"<B>Уважаемый </B>" &
strFirstname & " " & strMiddlename Else Response.Write
"<B>Уважаемая </B>" &
strFirstname & " " & strMiddlename End
If %> </BODY> </HTML>
В этом примера использовалась структура перехода If Then Else, в данном случае используется для выбора одного из двух вариантов (мужчина или женщина) и в соответствии с этим выбором выводиться надпись «Уважаемый» или «Уважаемая».