Вставка сценарію на vbScript у Web-сторінку
Мови сценарію, такі як Java Script і VBScript, створені як розширення для HTML. Броузер одержує сценарій разом з іншою частиною Web-сторінки. Саме броузер повинний проаналізувати і виконати сценарій. У мову HTML був добавлений тег <SCRIPT>, використовуваний для включення сценарію на сторінку.
Web-сторінка з активним містимим поділяється на дві частини: перша – це html-код самої сторінки з необхідними елементами керування (посилання, кнопки, форми для введення інформації і т.і.), і друга – сценарії на скрипті, що починають працювати при різних подіях, що відбуваються з елементами керування. Це можна назвати головною відмінною рисою програм для web-сторінок, від звичайних додатків, що виконуються.
Найчастіше сценарії розташовують усередині Web-сторінки (в файлі з розширенням html), але скрипти можна розміщувати окремо в файлі з розширенням vbs (у такому випадку теги <SCRIPT></SCRIPT> можна не писати).
Розглянемо основні прийоми виклику сценаріїв, або процедур з Web-сторінки.
Сценарій, що викликається неявно
<html>
<head>
<script language="VBScript">
Sub but_onclick
MsgBox "Привіт :)"
End sub
</script>
</head>
<body>
<form>
<input type="button" name="but">
</form>
</body>
</html>
Тут у частині, що описує html-сторінку, вказується ім'я елемента керування (name="ім'я"). Це ж "ім'я" пишеться у процедурі, що викликається, і через знак підкреслення пишеться назва події, на яку повинна відбутися реакція при виконання сценарію.
Виклик сценарію вказується в самому елементі керування
<html>
<head>
<script language="VBScript">
Sub scenariy
MsgBox "Привіт :)"
End sub
</script>
</head>
<body>
<form>
<input type="button" name="but" onclick="scenariy">
</form>
</body>
</html>
Серед переваг такого способу можна відзначити те, що один і той же сценарій можна викликати з різних елементів керування.
Автоматичний виклик сценарію
<html>
<body>
<script language="VBScript">
MsgBox "Привіт :)"
</script>
</body>
</html>
Код програми в цьому випадку виконається відразу після завантаження документа.
Виклик з іншої процедури
<html>
<head>
<script language="VBScript">
Sub cmdStart_onclick
Dim answer
answer = InputBox("Як Вас звуть ?", "Знайомство")
Call butalert(answer)
End Sub
Sub butalert(a)
Alert "Привіт, "+a
End Sub
</script>
</head>
<body>
<form>
<input type="button" name="cmdStart" Value="Пуск" >
</form>
</body>
</html>
Не всі броузери підтримують мови сценарію. Деякі підтримують лише Java Script. Тільки Microsoft Internet Explorer підтримує VBScript. Ті броузери, що не підтримують сценарій, сприймають його як текст і відображають у вікні як частину сторінки. Для рішення цієї проблеми сценарії краще розташовувати у тегах коментаря (<!-- і -->).
Перетворення підтипів у vbScript
VBscript має тільки один тип даних VARIANT. Він може містити як символи, так і числа різної точності. Тому для того, щоб точно визначити тип даних, бажано використовувати функції перетворення типів (точніше, підтипів VARIANT). Якщо, наприклад, треба додати два числа, що вводяться через елементи керування txtDodanok1 і txtDodanok2 типу Text, то введені дані по замовчанню будуть мати текстовий формат і без використання перетворення підтипів замість правильного числового результату отримається конкатенація двох рядків. Тому замість помилкового скрипта
<Script language="VBscript">
sub summa
summatext1=document.frmSum.txtDodanok1.value
summatext2=document.frmSum.txtDodanok2.value
alert summatext1+summatext2
end sub
</Script>
треба використовувати наступний скрипт
<Script language="VBscript">
sub summa
summatext1=Cint(frmSum.txtDodanok1.value)
summatext2=Cint(document.frmSum.txtDodanok2.value)
alert summatext1+summatext2
end sub
</Script>