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

Пример 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.