Программные коды
<HTML> <HEAD> <TITLE>Закладки на Web-странице</TITLE> </HEAD> <BODY> <OBJECT ID=ZT CLASSID="clsid:1EFB6596-857C-11D1-B16A-00C0F0283628" Width=500 Height=40> <PARAM NAME="style" Value="1"> </OBJECT> <BR> <IFRAME ID=FR SRC="C:/" Width=600 Height=400> </IFRAME> <BR> <SCRIPT Language="VBScript"> Dim Zakl(3) Zakl(0)="Файлы и папки на C:/" Zakl(1)="Поиск на yahoo.com" Zakl(2)="Просмотр пособия" Zakl(3)="Primers VBScript" Dim Soed(3) Soed(0)="C:/" Soed(1)="http://www.yahoo.com" Soed(2)="VBScript-разработка приложений.doc" Soed(3)="C:/Павлов/VBScript-Интерактивные приложения/" Sub Window_OnLoad() For i=1 To 4 ZT.Tabs(i).Caption=Zakl(i-1) If i<4 Then ZT.Tabs.Add() End if Next End Sub Sub ZT_Click() document.all.FR.src=Soed(ZT.SelectedItem.Index-1) End Sub </SCRIPT> </html>
