Х доступна во всех сценариях



Пример 7

Здесь переменная Х доступна во всех сценариях и соответствующих процедурах проекта, переменная Y — только в текущем сценарии, а переменная Z — лишь в подпрограмме MySub: <SCRIPT>
Public X
Private Y
MySub()
Dim Z
End Sub
</SCRIPT>
Примечание При объявлении переменных в процедуре выражения с операторами Dim, Public и Private рекомендуется располагать в начале процедуры. > Использование переменных в VBScript
  1. Откройте Web-узел Exercise9 в Frontpage 98.
  2. Откройте главную страничку в Frontpage Editor.
  3. Поместите точку вставки в форме на Web-странице.
  4. В меню Insert выберите команду Advanced, Script.
  5. Введите в окне кода следующий код VBScript: Option Explicit


    Private Y
    Sub SetValues()
    Dim X
    X = 1
    Y = 1
    End Sub Sub Ch'angeValuesAgain( )
X = 1
Y = 1
End Sub
  1. Щелкните кнопку Script Wizard.
  2. Раскройте в дереве объектов объект Window и щелкните его событие OnLoad.
  3. В окне кода введите следующий код VBScript и нажмите ОК: SetValues
    ChangeValuesAgain
  4. В редакторе Frontpage Editor откройте вкладку Preview и просмотрите Вашу Web-страницу. Вы получите сообщение об ошибке, гласящее, что переменная Х не определена. Это произошло потому, что Х действительна только в подпрограмме SetValues, где она была объявлена оператором Dim. Переменная Y же находится в области видимости, так как она была объявлена оператором Private вне процедуры.
  5. Щелкните кнопку Yes, чтобы закрыть окно сообщения, и вернитесь к обычному представлению страницы.
  6. Добавьте следующую строку кода в подпрограмму Change ValuesAgain: Dim X
  7. Сохраните изменения и откройте Web-страницу. Обратите внимание, что ошибка не возникает: теперь Х находится в области видимости благодаря оператору Dim, который Вы только что добавили в подпрограмму ChangeValuesAgain.
  8. Закройте Internet Explorer и Frontpage 98.


Содержание раздела