740__________________Часть V. Разработка программ и написание скриптов

Создание бегущего сообщения в строке состояния

В этом примере элемент управления ActiveX Timer используется для периодического обновления строки состояния. Как показано в примере, данная возможность может быть использована для создания бегущего сообщения. В примере также иллюстрируется использование некоторых функций обработки строк, в частности:Len, Right, Left и String. Код скрипта приведен в листинге 29.2.

<HTML>

<HEAD>

<TITLE>Timer Example</TITLE>

</HEAD>

<BODY BGCOLOR="White">

<OBJECT ID="Timer"WIDTH=0 HEIGHT=0

CLASSID="CLSID:59CCB4AO-727D-11CF-AC36-OOAAOOA47DD2"> -<PARAM NAME="Interval"VALUE="150"></OBJECT>

<SCRIPT LANGUAGE="VBScript"><!—Option Explicit

Dim strStatus

strStatus= String(150, "")&"This is a message that scrolls across the status line :-)"

Sub TimerJTimer

status= strStatus strStatus= Right( strStatus, Len(strStatus) - 1 )&

Left( strStatus, 1 )End Su ~~> </SCRIPT></BODY></HTML>

Разработка собственного варианта реализации изображения-карты

В главе 12 мы обещали показать пример создания клиентского варианта изображения-карты, реализуемого с помощью языка VBScript. Выполняем