Практикум 6.5. Обработка элемента флажок checkbox
С
<HTML> <HEAD> <TITLE>Pr_6_5</TITLE> </HEAD> <BODY> <H1>Учебный
пример pr_6_5</H1> <FORM
ACTION="Result_6_5.asp" METHOD=POST> <BR> <BR> <INPUT
TYPE="Checkbox" NAME="Ch1">Тирожировать
шаблон
бланка
1 раза</INPUT><BR> <INPUT
TYPE="Checkbox" NAME="Ch2">Тирожировать
шаблон
бланка
3 раза</INPUT><BR> <INPUT
TYPE="Checkbox" NAME="Ch3">Тирожировать
шаблон
бланка
7 раза</INPUT><BR> <INPUT
TYPE='SUBMIT' VALUE='Далее'> <INPUT
TYPE='RESET' VALUE='Сброс'> </FORM> </BODY> </HTML>
Результирующий файл result_6_5.asp содержит следующий код:
А
<HTML> <HEAD> <TITLE>pr_6_5</TITLE> </HEAD> <BODY> <% Dim
strCh1, strCh2, strCh3, intCh1, intCh2, intCh3, intCounter strCh1
= Request.Form("Ch1") strCh2
= Request.Form("Ch2") strCh3
= Request.Form("Ch3") intCh1
= 0 intCh2
= 0 intCh3
= 0
If
strCh1 = "on" Then intCh1
= 1 End
If
If
strCh2 = "on" Then intCh2
= 3 End
If
If
strCh3 = "on" Then intCh3
= 7 End
If
intTotal
= intCh1 + intCh2 + intCh3
For
intCounter = 1 to intTotal
Response.Write
"Client's name: _______________ <BR><BR>" Response.Write
"Client's EMail: _____________________________ <BR><BR><HR>"
Next %> </BODY> </HTML>
-
На первом шаге я создаю следующие переменные (strCh1, strCh2, strCh3, intCh1, intCh2, intCh3, intCounter), переменные двух типов: str – сокращение от string – строковые, int – сокращение от interger – целочисленные. В переменных strCh1, strCh2, strCh3 содержаться значение «On» или «Off» в зависимости от того установлен флажок или нет. Переменным intCh1, intCh2, intCh3 присвоено значение 0. Переменная intCounter является счетчиком;
-
На следующем этапе я проверяю какие флажки включены используя конструкцию If Then и если флажок установлен, т.е. его значение «On» я присваиваю переменной одно из значений (1, 3, 7);
-
Далее я суммирую значения всех числовых переменных, используя переменную intTotal;
-
Затем вступает в действие структура For Next диапазон работы которой зависит от того, каково значение переменной intTotal, максимальное количество бланков может быть 11, при условии если все флажки установлены.
Вид окна браузера с выведенными на экран бланками продемонстрирован ниже:
Рис. 6.7. Троекратное тиражирование бланка
Практикум 6.6. Обработайте созданную вами анкету используя приемы рассмотренные в этом практикуме