Глава 3. РАБОТА С ДАННЫМИ НА Web-СТРАНИЦАХ
Просмотр файлов
Во время работы пользователя часто приходится создавать условия для просмотра однотипных файлов в отдельном окне браузера. Используя опыт открытия новых страниц в браузере и организацию циклических программ, создадим сценарий, который позволяет пользователю пролистывать файлы с рисунками. Для этой цели создан ПРИМЕР9, в котором в качестве элемента управления просмотра файлов выбрана радиокнопка. На рис. 20 показан внешний вид Web-страницы в окне браузера.
Рис. 20. Внешний вид приложения для просмотра однотипных файлов
Непосредственно на сервере могут находиться файлы, которые имеют одинаковое название, но отличаются порядковыми номерами, что позволяет создать одну процедуру для открытия такой серии в отдельных окнах браузера. В рассматриваемом примере создано три отдельных приложения в виде HTML-файлов, в которые помещены картинки. Следует отметить, что тип файла (его расширение) не имеет значения, т.к. используется функция Open(), позволяющая обращаться к любому файлу. На рис. 21 показано окно браузера с загруженным файлом.
Рис. 21. Пример открытого файла
Программные коды приложения приведены в листинге 11.
Листинг 11.
<HTML>
<HEAD>
<TITLE>Просмотр файлов в отдельном окне</TITLE>
<SCRIPT
LANGUAGE="VBScript">
Dim y
Dim i
Sub B1
MAN.T1.Size=20 ' Объект N1 принадлежит форме MAN, при повторном обращении восстанавливаем его размеры
MAN.T1.Value="Щелкните по кнопке"
i=i+1 ' это счетчик для просмотра файлов, которых всего 3
If i<=3 Then
y="Images\Ris-"&i&".gif" ' Так формируем путь к файлам, которые имеют одинаковые названия, но отличаются порядковыми номерами
Msg=MsgBox("y= "&y, 31, "Посмотрите") ' Это функция для вывода сообщения пользователю о названии файла
' Далее записан оператор Set, который позволяет сформировать параметры окна браузера и то, что в нем отображается
Set S12=window.open(y,"Risunok", "directories=yes, menubar=yes, top=150,
left=250, width=150, height=200")
Else
Msg=MsgBox("Просмотр окончен", 32, "ВНИМАНИЕ!")
MAN.T1.Size=35
MAN.T1.Value="Просмотр можно провести снова"
i=0
End if
End sub
</SCRIPT>
</HEAD>
<BODY
BGCOLOR=#F0E68C>
<FORM
NAME="MAN">
<INPUT TYPE="Radio"
NAME="F2" onClick="B1">
<INPUT TYPE="TEXT"
NAME="T1" SIZE=20 VALUE="Щелкните по кнопке">
</FORM>
<FONT
FACE="Arial Cyr" SIZE=4 COLOR=Navy>
Данное приложение позволяет просматривать файлы (рисунки) в новом окне обозревателя,<BR>
для которого задаются размеры и положение на экране. В качестве управляющего элемента,<BR>
выбрана радиокнопка<BR>
</FONT>
</BODY>
</HTML>
В программе используется функция Msg=MsgBox("y= "&y, 31, "Посмотрите"), с помощью которой формируется промежуточное диалоговое окно для информирования пользователя о выводе нового рисунка в окне браузера (напоминаем, это могут быть любые файлы или приложения).
