Условное ветвление
Операторы условного ветвления определяют, будет ли выполняться данный фрагмент сценария и при каких условиях. Например, проверяется состояние переменных или введенная пользователем информация. Операторы условного ветвления отличаются от операторов циклов тем, что фрагмент сценария при условном ветвлении может выполняться не более одного раза. В VBScript 2.0 имеется несколько операторов условного ветвления.
| Оператор |
Назначение |
| If...Then |
Выполняет один из двух фрагментов кода в зависимости от того, истинно или ложно выражение |
| Select...Case |
Выполняет один из фрагментов кода в зависимости от значения переменной |
Вы можете использовать выражение с оператором If... Then... Else, чтобы выяснить истинность или ложность условия и, в зависимости от результата, выполнить один из двух фрагментов кода.
Пример Это условное выражение вычисляет процент премии в зависимости от значения переменной Sales:
If Sales > 100000 Then
Bonus =.10
Elself Sales > 50000 Then
Bonus =.05
Else
Bonus =.02
End If
VBScript 2.0 теперь поддерживает оператор Select...Case, который полезен, когда переменная-условие имеет больше двух значений. Хотя и в этом случае можно обойтись оператором If...Then, Select...Case проще и удобнее.
Пример Здесь выполняются те же действия, что и в предыдущем случае, но средствами оператора Select...Case:
Select Case Sales
Case 100000
Bonus =.1
Case 50000, 75000
Bonus =.05
Case Else
Bonus =.02
End Select
Примечание В операторе Select...Case не допускается использование диапазонов значений и символов сравнения «больше чем» (>) или «меньше чем» (<).
> Использование конструкции Select Case в VBScript
- Откройте Web-узел Exercise9 в Frontpage 98.
- Откройте Home Page в Frontpage Editor.
- Правой кнопкой мыши щелкните кнопку Square и выберите Script Wizard.
- В событие OnClick кнопки btnSquareIt введите приведенный ниже код и на жмите ОК:
Dim Result
On Error Resume Next
Result = SquareIt(T1.Value)
Select Case Result
Case 1,2,3
Обратите внимание на различие результатов:
Обратите внимание на различие результатов:
MsgBox "Между 1 и 3"
Case 4,5,6
MsgBox "Между 4 и 6"
Case 7,8,9
MsgBox "Между 7 и 9"
Case Else
MsgBox "Результат вне диапазона."
End Select
MsgBox T1.Value & " в квадрате = " & Result
- Сохраните изменения и откройте страницу в Internet Explorer.
- Когда Web-страница появится в Internet Explorer, введите в текстовое поле число 2 и нажмите кнопку Square.
- Введите в поле число 10 и снова нажмите кнопку Square.
Обратите внимание на различие результатов: при вводе чисел от 1 до 3 появляется сообщение об интервале, а любое другое числа вызывает выполнение блока Case Else.
- Закройте Internet Explorer и Frontpage 98.
Содержание раздела
Содержание раздела