Создание Web-приложений

Cредства для Internet-программирования появились еще в предыдущей версии Visual Basic 5.0. К ним, в частности, относятся возможности создания элементов управления ActiveX и ActiveX-документов, а также использования компонентов WinSock и Internet Transfer для передачи данных. Программистам был доступен элемент управления WebBrowser, входящий в состав Internet Explorer 4.0. Используя API-интерфейс для Active Server Pages (ASP), с помощью VB 5.0 также можно было создавать программные компоненты для сервера Microsoft Internet Information Server (IIS) 3.0. Но в действительности даже реализация такого простого проекта, как традиционное «Hello, World!», была далеко не тривиальной задачей, поскольку текст программы приходилось писать полностью вручную.

В VB 6.0 возможности Internet-программирования значительно расширены. В первую очередь это относится к появлению двух новых типов проектов: IIS Application (иначе WebClass Application — в пакете VB используются оба термина) и DHTML Application.

Первый обеспечивает обработку данных на сервере в среде IIS 4.0 и не зависит от ОС и типа браузера клиента. Во втором применена технология динамических HTML-страниц, он функционирует в среде браузера IE 4.0 (и выше) на пользовательском ПК. Оба типа проектов построены на основе принципа разделения компонентов HTML и программных модулей. При разработке Web-приложения используются HTML-шаблоны, которые дополняются программным текстом. Такая технология предопределяет разделение труда Web-дизайнеров и VB-программистов, что важно при создании профессиональных продуктов.

Краткая характеристика еще трех новшеств VB 6.0 для Internet:
  • Мастер Web Publishing Wizard позволяет выполнять установку упакованных приложений на Web-узел.
  • Средство AsyncRead расширяет возможности получения более полной информации о выполнении асинхронных операций обмена данными. Новые языковые конструкции включают события AsyncReadProgress, свойства BytesMax, BytesRead, Status, StatusCode и Target, а также ряд других усовершенствований.
  • Загрузка документов ActiveX работает теперь аналогично загрузке элементов управления ActiveX. (Например, выполняется поддержка относительных адресов URL.)

Создание IIS-приложения

Работа IIS-приложения в среде сервера очень похожа на действия давно применяемых ASP-приложений.

IIS-приложение — это программа на VB, состоящая из комбинации HTML- и VB-текстов, предназначенная для генерации активных динамических ASP-страниц. Приложение работает под управлением Web-сервера, получает запросы от него, обрабатывает их и возвращает ответную информацию. При этом может меняться не только содержимое, но и сама структура HTML-страницы, с которой имеет дело конечный пользователь.

Создание IIS-приложения похоже на разработку обычных VB-приложений, где в качестве диалогового интерфейса применяют не формы, а HTML-страницы. При этом IIS-приложения содержат уже знакомые VB-программистам модули и визуальные компоненты, которые хранятся в виде текстовых файлов с расширением DSR. Для файлов двоичного представления используется расширение DSX.

Законченное IIS-приложение — это объект WebClass, содержащий несколько элементов WebItem двух типов: HTML-шаблоны и Custom WebItem. Первые являются HTML-страницами с обозначением специальных полей, содержимое которых может динамически меняться, вторые же включают программируемые блоки обработки внешних запросов.

IIS-приложение функционирует в среде IIS 4.0 и Windows NT. При работе в Windows 9x следует воспользоваться пакетом Personal Web Server (иногда он называется Peer Web Services), который фактически является усеченным вариантом IIS для локального компьютера. Его установка выполняется с диска Setup VB 6.0. Для этого в стартовом окне укажите опцию Server Applications and Tools и нажмите Next. В следующем окне отметьте позицию NT Option Pack и Install. По запросу программы установите второй диск Setup. Далее укажите вариант записываемой конфигурации PWS (рекомендуем для первого раза Typical). После окончания загрузки в меню Windows появится новая группа MS Personal Web Server. Аналогичным образом мы рекомендуем установить компоненты Data Access Components 2.0 для работы с базами данных в среде сервера.

Создание проекта WebClass

Запустите VB 6.0 и в окне New Project выберите элемент IIS Application (рис. 4). После загрузки проекта переименуйте его из Project1 в WCSimple и сохраните на жестком диске с именем Simple.vbp. Затем дважды выберите папку Designers в окне Project. Это действие раскроет дерево проекта и покажет модуль WebClass1 (Web Class1.Dsr), входящий в состав IIS-приложения.

Рис. 4

Откройте WebClass1, и на экране появится конструктор, состоящий из двух панелей. В левой части показаны элементы модуля — HTML Template WebItems и Custom WebItems, а справа — соответствующие им теги HTML.

Следующий шаг разработки приложения — это импорт HTML-шаблонов, представляющих собой обычные HTML-файлы. Как правило, они создаются вне интегрированной среды VB, но когда вы импортируете их в проект, получите возможность корректировать их внутри VB IDE с помощью любого привычного редактора, например Notepad или FrontPage. Для установки редактора выберите команду Options из меню Tools, перейдите к закладке Advanced и введите путь к нужному вам редактору в поле ввода External HTML Editor.

Для примера создадим в редакторе Notepad следующий простой шаблон, состоящий всего из одной строки:

Привет всем!
Назовем его Simple.htm и импортируем в конструктор, либо щелкнув правой кнопкой мыши на дереве на левой панели конструктора, а затем выбрав Add HTML Template, либо нажав кнопку со значком IE Globe на панели инструментов. В результате модуль WebClass1 приобретает вид, показанный на рис. 5.
Рис. 5


При импорте шаблона конструктор создает его копию для защиты исходного файла. В описанном проекте используемый файл носит имя Simple1.htm. Данный момент является существенным, если вдруг возникнет желание отредактировать импортированный шаблон вне конструктора.
Событие WebClass_Start активизируется, когда пользователь запрашивает адрес приложения. Открыв процедуру этого события, вы увидите текст, сформированный VB 6.0 автоматически. Удалите его и введите вместо него всего несколько строк:
Private Sub WebClass_Start() 
	Template1.WriteTemplate 
End Sub

Вот и все — мы создали IIS-приложение Simple.vbp. Запустите его на выполнение и убедитесь в работоспособности. Чтобы закрыть приложение, выйдите из браузера и остановите выполнение программы в среде VB 6.0 (именно в такой последовательности).
Обратите внимание. При первом запуске приложения VB 6.0 попросит установить свойства проекта, а затем указать имя виртуального каталога для PWS. В обоих случаях оставляйте параметры, предлагаемые по умолчанию, и нажимайте OK. После нескольких секунд напряженной работы компьютера (непонятно, что он делает, но повторный запуск будет выполняться гораздо быстрее) вы увидите в окне IE созданную ASP-страницу. Обратите внимание на ее адрес: страница физически находится в виртуальном каталоге персонального Web-сервера (рис. 6).
Рис. 6


При работе с IE 5 в автономном режиме на локальном ПК при запуске приложения почему-то появляется предупреждение о том, что не установлено соединение с Internet. В этом случае нажмите Try Again.
WebClass_Start является аналогом события Form_Load в традиционном VB-приложении. Объект WebClass также имеет и другие события, например, Initialize и Terminate, аналогичные обычным в VB. Использованный выше метод WriteTemplate направляет шаблон в браузер. Однако если проект состоит из нескольких шаблонов, можно использовать свойство NextItem, чтобы сообщить проекту, с какого шаблона начинать:
Private Sub WebClass_Start() 
	Set NextItem = Template1 
End Sub

Необходимо поместить вызов WriteTemplate в событие Respond для соответствующего шаблона:
Private Sub Template1_Respond() 
	Template1.WriteTemplate 
End Sub

Свойство NextItem полезно также, если вы хотите осуществить обработку конкретного элемента в рамках выполнения программы. Тогда можно написать алгоритм, который гибко направляет пользователя страницы в соответствии с вводимыми им данными, не ограничиваясь жестко данным порядком презентации.
HTML-шаблоны можно создавать и в процессе выполнения приложения с помощью текста на VB. Для этого используется метод Write объекта Response, который направляет строковые данные в браузер. Однако при этом надо помнить, что следует включать соответствующие команды форматирования текста. Например, для разрыва строки следует использовать тег 

 вместо константы vbCrLf. Применение метода Write и обработки данных GET и POST продемонстрировано в листинге 1.
Листинг 1


Private Sub Template1_FormA()
	With Response   
	? Отправляет подтверждаемые параметры в браузер
	.Write ??    
	? Отправляет открывающие теги в браузер
	.Write ?Last data entered:
?
	.Write ?Raw POST data: ? & Request.Form & ?
?
	? неанализируемые данные POST 
	For c = 1 To Request.Form.Count 
	? количество параметров в форме
		? Отправляет имя и значение параметра в браузер
		? Вы можете обратиться к параметру по его номеру,

например:

		?    Request.Form(1)
		? или по его имени, например:
		?    Request.Form(?User?)
		.Write Request.Form.Key(c) & ?: ? & Request.Form(c) &
?
?
	Next
		.Write ?
?
	End With
	Template1.WriteTemplate   
	? Отправляет шаблон в браузер
End Sub
Private Sub Template1_Respond()
	Response.Write ?
?    
	? Отправляет открывающие теги в браузер
	Template1.WriteTemplate   
	? Отправляет шаблон в браузер
End Sub
Private Sub WebClass_Start()    
? Говорит, где начать - запускается Template1_Respond
	Set NextItem = Template1     
	? Это наиболее полезно, если у вас есть несколько
элементов
	? и вы хотите задать тот, который будет запускаться
по умолчанию
End Sub



Отслеживание событий
Проекты WebClass, аналогично традиционным VB-приложениям, являются событийно-управляемыми. Они откликаются на три основных типа событий. Первый тип — встроенные события, например Start или Respond. Второй — пользовательские события, создаваемые с помощью конструктора. Они используют стандартный синтаксис VB:
Private Sub ObjectName_EventName()

Рис. 7


Третий тип события — UserEvent, который использует процедуру WebItem1_UserEvent(ByValEventNameAs String) и получает имя с помощью аргумента EventName. Первые два типа аналогичны объявлениям «раннего связывания» (на этапе компиляции), поскольку их имена жестко заданы в объявлениях процедур событий. UserEvent реализован в стиле «позднего связывания» (динамического), поскольку имена событий передаются центральному обработчику в виде данных. Пример Events.vbp демонстрирует события всех трех типов WebClass, а также их активизацию и обработку (см. рис. 7 и листинг 2).
Пример демонстрирует различные типы событий WebClass, а также их активизацию и обработку
Листинг 2


Option Explicit
Private c As Long   ? переменная-счетчик
Private Sub WebClass_Start()
	WebClass.URLData = ?Тестирование свойства URLData?
	With Response
		.Write ??
		.Write ?WebItem1_Event1 (событие _
			WebItem — вызывается по имени процедуры, _
			передается один параметр)
?
		.Write ?WebItem1_UserEvent(EventA) _
			(событие UserEvent — вызывается по имени события, _
			передается один параметр)
?
		.Write ?WebItem1_UserEvent(EventB) _
			(событие UserEvent — вызывается по имени другого _
			события, передается один параметр)
?
		.Write ?WebItem1 (событие не задано — _
			запускается событие WebItem1_Respond, передается _
			один параметр)
?
		.Write ? WebItem1 _
			(событие не задано — запускается событие 
			WebItem1_Respond, параметры не передаются)?
		.Write ?
?
	End With
End Sub
Private Sub WebItem1_Event1()
	With Response
		.Write ??
		.Write ?WebItem1_Event1 (событие WebItem):
?
		.Write ?Необработанная строка запроса QueryString: ? & _
			Request.QueryString & ?
?
		For c = 1 To Request.QueryString.Count
			.Write Request.QueryString.Key(c) & ?: ? & _
				Request.QueryString(c) & ?
?
		Next
		.Write ?
?
		.Write ?Выделить содержимое запроса по имени (WCU):
?
		.Write Request.QueryString(?WCU?) & ?
?
		.Write ?
?
	End With
End Sub
Private Sub WebItem1_Respond()
	With Response
		.Write ??
		.Write ?WebItem1_Respond (событие не задано):
?
		.Write ?Необработанная строка запроса QueryString: ? & _
			Request.QueryString & ?
?
		.Write ?Парсинг имен и содержимого запросов:
?
		For c = 1 To Request.QueryString.Count
			.Write Request.QueryString.Key(c) & ?: ? & _
				Request.QueryString(c) & ?
?
		Next
		.Write ?
?
		.Write ?Выделить содержимое запроса по имени (WCU):
?
		.Write Request.QueryString(?WCU?) & ?
?
		.Write ?
?
	End With
End Sub
Private Sub WebItem1_UserEvent(ByVal EventName As String)
	With Response
		.Write ??
		.Write ?WebItem1_Event1 (UserEvent): ??? & _
			EventName & ???
?
		.Write ?Необработанная строка запроса QueryString: ? & _
			Request.QueryString & ?
?
		For c = 1 To Request.QueryString.Count
			.Write Request.QueryString.Key(c) & ?: ? & _
				Request.QueryString(c) & ?
?
		Next
		.Write ?
?
		.Write ?Выделить содержимое запроса по имени (WCU):
?
		.Write Request.QueryString(?WCU?) & ?
?
        .Write ?
?
    End With
End Sub


Приложение для Web может получать переменные от сервера, браузера или из информационных ресурсов Internet. Пользователь имеет доступ к этим переменным с помощью коллекции ServerVariables объекта Request. Пример Variables.vbp, приведенный в листинге 3, позволяет просматривать Web-страницу и составлять список имен и содержимого всех элементов коллекции, являющейся активной в момент выполнения приложения (см. листинг 3).
Листинг 3


Private Sub WebClass_Start()
	Dim sQuote As String, c As Integer, KeyName As String
	sQuote = Chr$(34)
	? Пишет ответ пользователю
	With Response
		.Write ??
		.Write ??
		.Write ?
Server Variables
?
		For c = 1 To Request.ServerVariables.Count
			KeyName = Request.ServerVariables.Key(c)
			.Write ?? & KeyName & ?: ? & _
				Request.ServerVariables(KeyName) & ?

?
		Next
		.Write ??
		.Write ??
	End With
End Sub


Кроме того, можно использовать переменные Application и Session. Первая из них является глобальной для проекта, а вторая ограничена рамками конкретной сессии, в которой она применяется. Обе имеют одинаковый синтаксис:
Application(?foo?) = ?bar? 
Session(?foo?) = ?foobar?

Переменные в Application и Session могут иметь одинаковые имена, но разные значения, поскольку их контексты отличаются. Application.Contents.Count возвращает количество переменных Application, а Application.Contents.key(1) — имя первой переменной Application. Для получения доступа к содержимому переменной нужно передавать ее имя в качестве строки (как показано в примере), либо ее номер. Все это также верно и для коллекции переменных Session.
Управление структурой HTML-страницы
Необходима возможность работы с данными, получаемыми от клиентов браузера. VB 6.0 осуществляет синтаксический разбор и пакетирование поступающих данных GET и POST, а с помощью описанных выше событий организуется доступ к этим данным. Для этого следует знать, какие части объектной модели возвращают данные GET и POST (см. таблицу). Пример Events.vbp (в листинге 2) показывает, как использовать данные GET (QueryString), а FormSubmit.vbp (в листинге 1) — как работать с возвращаемыми с помощью POST.
Важны еще два момента. Метод URLFor возвращает адрес URL, указывающий на элемент WebItem в проекте. Указывая этот адрес при вызове Write, вы снимаете необходимость ручного определения и составления сложных URL-адресов для доступа к конкретному проекту.
Теги HTML при отправке шаблона в браузер автоматически анализируются VB 6.0. Обнаруженный тег активизирует событие ProcessTag, которое возвращает имя и содержимое тега. Далее можно заменить содержимое или весь тег целиком перед тем, как отправить его в браузер. Тег состоит из открывающих и закрывающих HTML-операторов, которые служат в качестве логических скобок для содержимого:
TagOne Here

Раздел WC: сообщает VB о том, что здесь имеется тег WebClass. Текст, следующий за двоеточием (TagOne), является именем тега, возвращаемым в параметре TagName события ProcessTag. Вместо WC: можно задать любой префикс, установив свойство TagPrefix элемента WebItem в окне Property конструктора WebClass. TemplateHandling. vbp (листинг 4) продемонстрирует, как происходит синтаксический разбор и замена тегов для объекта WebClass и запись шаблона в браузер.
Листинг 4


Option Explicit
Private c As Long   ?переменная-счетчик
Private User As String
Private Sub WebClass_Start()
	Template1.WriteTemplate
End Sub
Private Sub Template1_FormA()
	With Response
		.Write ?
?
		For c = 1 To Request.Form.Count
			.Write Request.Form.Key(c) & ?, ? & _
				Request.Form(c) & ?
?
		Next
		.Write ?
?
	End With
	Template1.WriteTemplate
End Sub
Private Sub Template1_ProcessTag(ByVal TagName _
	As String, TagContents As String, SendTags As Boolean)
	?
	With Response
		.Write ?
?
		.Write ?————————————————
?
		.Write ?Имя тега: ? & TagName & ?
?
		.Write ?Исходное содержимое тега: ? & _
			TagContents & ?
?
		.Write ?————————————————
?
	End With
	?
	? Что бы мы ни присвоили аргументу TagContents,  это _
	? автоматически заменит исходное содержимое тега в шаблоне.
	? Если мы установим SendTags как True, то отправляться _
	? будут сами маркеры тега, поэтому замена произойдет внутри
	? тега. По умолчанию SendTags устанавливается как False, _
	? поэтому TagContents заменит и содержимое, и маркеры тега.
    	?
	User = Request.Form(?User?)
	If User = ?? Then
		User = ?Пользователь не ввел никаких данных!?
	End If
	TagContents = ?Имя пользователя: ? & User
End Sub



Создание DHTML-приложений
DHTML-приложения представляют собой комбинацию динамических HTML-страниц и программного кода на VB, как и IIS-приложения. Но в отличие от последних, они работают на клиентском ПК в среде браузера, используя DHTML-технологию, реализованную в Internet Explorer начиная с версии 4.0.
Создание DHTML-проекта на первый взгляд похоже на разработку Web-страниц при работе с ActiveX Control Pad. Однако на самом деле это не так. DHTML-проект отличается от VBScript, поскольку его полномасштабная компилированная DLL-библиотека выполняется локально на машине пользователя. С помощью DHTML-проектов VB 6.0 предоставляет возможность внедрять VB-приложение в браузер.
Концептуально DHTML-приложения — это те же VB-приложения, использующие Internet Explorer в качестве механизма для представления форм, что обеспечивает локальный доступ к объектной модели IE в процессе выполнения приложения. Можно управлять содержимым, свойствами, методами и событиями, подвергаемыми воздействию с помощью этой модели. Одновременно есть полный доступ ко всем функциональным возможностям VB 6.0.
Недостатком разработки DHTML-приложений является то, что надо освоить достаточно сложную модель IE4 Dynamic HTML Document Object Model, которая имеет очень мало общего с традиционным для VB синтаксисом.
Пример Hotmouse 
Hotmouse.vbp использует две процедуры для обработки всех событий onmouseover и onmouseout, которые происходят на Web-странице проекта (листинг 5). Эти события, не имеющие прямых аналогов в VB, запускаются при перемещении курсора мыши или установке его на каком-либо элементе.
Листинг 5


Option Explicit
Private LastColor As String 
? Хранит цвет ссылки перед изменениями
Private LastWeight As String 
? Хранит состояние ссылки перед изменениями
Private LastFontStyle As String 
? Хранит свойство fontStyle для ссылки перед изменениями
Private Sub Document_onmouseout()   
	? Когда курсор мыши перемещается с элемента
	If TypeName(BaseWindow.event.srcElement) = _
		?HTMLAnchorElement? Then ? Только если 
		BaseWindow.event.cancelBubble = True  
		? Прекращает всплытие событий
		BaseWindow.event.srcElement.Style.Color = LastColor  
		? Восстанавливает цвет
		Select Case BaseWindow.event.srcElement.className  
		? Восстанавливает атрибуты на базе свойства className
			Case ?ClassRed?
				BaseWindow.event.srcElement.Style.fontWeight =
 LastWeight 
				? Восстанавливает fontWeight
			Case ?ClassGreen?
				BaseWindow.event.srcElement.Style.fontStyle = 
LastFontStyle 
				? Восстанавливает fontStyle
		End Select
	End If
End Sub
Private Sub Document_onmouseover()   
	? Когда курсор мыши устанавливается на какой-либо элемент
	If TypeName(BaseWindow.event.srcElement) = _
		?HTMLAnchorElement? Then ? Только если 
		BaseWindow.event.cancelBubble = True  
		? Прекращает всплытие событий
		LastColor = Document.activeElement.Style.Color  
		? Хранит текущий цвет (поддерживает состояние link/vlink
state)
		Select Case BaseWindow.event.srcElement.className  
		? Устанавливает цвет на базе свойства className
			Case ?ClassRed?
				BaseWindow.event.srcElement.Style.Color = ?red?
				LastWeight = Document.activeElement.Style.
fontWeight  
				? Хранит текущий fontWeight
				BaseWindow.event.srcElement.Style.fontWeight =
?bold?
			Case ?ClassGreen?
				BaseWindow.event.srcElement.Style.Color = ?green?
				LastFontStyle = Document.activeElement.Style.
fontStyle  
				? Хранит текущий fontStyle
				BaseWindow.event.srcElement.Style.fontStyle =
?italic?
		End Select
	End If
End Sub


Установка курсора мыши на гиперссылке меняет ее цвет и атрибуты. Если же убрать курсор с этой гиперссылки, возвращаются исходные цвет и атрибуты. В данном примере используется окно Property в конструкторе DHTML для установки свойства className двух таких гиперссылок как ClassRed, а двух других — как ClassGreen. Эти имена являются произвольными. После этого осуществляется проверка значения свойства className, прежде чем решить, какой шрифт следует применять при запуске события:
Select Case BaseWindow.event.scrElement.className

Есть возможность отслеживать события в одном месте, поскольку в объектной модели используется технология «всплытия событий». Это означает, что на любом уровне вложенности в рамках объектной модели всякое необработанное событие «всплывает» на следующий, более высокий уровень, где оно может быть либо проигнорировано, либо перехвачено. В конечном счете события «всплывают» на самый верх объектной модели. В примере для централизации обработки всей страницы целиком используются события уровня Document.
Следует обратить внимание на иерархию в операторе Select Case. Для определения того, какой элемент запускает событие, осуществите проверку коллекции событий. Здесь же элементу присваиваются некоторые атрибуты:
Case ?ClassRed? 
	BaseWindow.event.scrElement.Style.Color = ?red? 
	LastWeight = Document.activeElement.Style.fontWeight
	BaseWindow.event.scrElement.Style.fontWeight = ?bold?

Кроме того, существует возможность игнорировать все события onmouseover и onmouseout за исключением тех, которые начинаются с гиперссылок типа , используя следующий текст:
If TypeName(BaseWindow.event.scrElement) = _ 
	?HTMLAnchorElement? Then

Для обработки некоторых ссылок особым образом можно индивидуально отследить каждое событие элемента, например Private Sub Hyperlink1_onmouseover(), и обработать его там. Чтобы приостановить любое дальнейшее «всплытие», установите свойство cancelBubble как True. Пример в листинге 5 показывает, как активизируется такое свойство.
Некоторые события являются функциями, а не подпрограммами. Рассмотрим такой пример. Если создать пустое событие Hyperlink1_onclick, то оно поглощает щелчок мыши. Это происходит потому, что данное событие является функцией и следовательно возвращает значение. Функция имеет тип Boolean, а любая подобная функция возвращает значение False, если во время выполнения не установлено иначе. Вот поэтому пропадает щелчок мыши. Чтобы избежать этого, надо установить значение функции как True перед выходом:
Private Function Hyperlink1_onclick() As Boolean 
	Hyperlink1_onclick = True 
End Function

Используйте такой подход для всех событий, являющихся функциями, если не хотите специально создать нулевое.
Создание проекта DHTML
Запустите VB 6.0 и в окне New Project выберите элемент DHTML Application. Обратите внимание, что панель инструментов Toolbox приняла вид, специально адаптированный для данного вида приложений (рис. 8).
Рис. 8


В окне проекта сразу появились две группы элементов: модули и конструкторы HTML-файлов (рис. 9). В папке Modules автоматически создается модуль modDHTML, содержащий две процедуры — GetProperty и PutProperty — с уже сформированным текстом для управления взаимодействием HTML-модулей приложения. Не корректируя содержимое модуля, можно закрыть этот узел дерева проекта.
В папке Designers вызовите DHTMLPage1, на экране появится конструктор, помогающий поддерживать существующие HTML-файлы. В качестве первого шага добавьте к проекту какой-либо HTML-шаблон. Для этого нажмите кнопку DHTML Page Designer Properties, находящуюся с самого левого края на панели инструментов конструктора. На экране открывается диалоговое окно Properties, в котором можно задать либо уже существующий HTML-файл, либо новый.
Рис. 9


Важно помнить. Прежде чем приступать к работе с новой DHTML-страницей, выберите способ сохранения этой страницы — как часть проекта или же в виде внешнего HTML-файла. Следует помнить, что невозможно изменить тип файла в процессе дальнейшей работы. При использовании внешнего файла нет доступа к его HTML-тексту, и работать с ним можно только внутри конструктора. Если же вы имеете дело с внутренним файлом, то можете редактировать его с помощью любого редактора.
Установите переключатель Save HTML in an external file, введите имя какого-либо существующего файла и нажмите OK. Это действие загрузит HTML-шаблон, как показано на рис. 10.
Рис. 10


Используя файлы, созданные вне конструктора, присвойте каждому элементу уникальный идентификатор, иначе VB 6.0 не сможет распознать их.
Конструктор состоит из панели инструментов и еще двух панелей. Левая содержит список элементов страницы в виде иерархического дерева, а правая отображает содержимое страницы, куда можно вставлять элементы управления (только HTML и ActiveX), создавать таблицы и гиперссылки.
В вашем распоряжении находится обширный набор средств управления внешним видом страницы. С их помощью можно преобразовывать элементы в гиперссылки, изменять тип шрифта и его размер, присваивать другие атрибуты текста и управлять форматированием базового текста. Кроме того, можно работать с функцией Absolute Positioning, предоставляющей возможность указывать местоположение элемента на HTML-странице с помощью координат x и y внутри текущего окна. Если при работе в конструкторе окно VB Properties активно, то для получения доступа к страницам свойств многих элементов достаточно использовать инструмент Custom в окне Properties или щелкнуть правой кнопкой мыши на этом элементе страницы и выбрать команду Properties из контекстного меню.
Чтобы отредактировать текст события какого-либо элемента страницы, просто выберите его точно так же, как это делается в традиционном VB-приложении. Например, если активизировать гиперссылку, то вы сразу же попадете в пустой блок текста события onClick. Будьте внимательны: пустое событие onClick уничтожает щелчок мыши, о чем говорилось выше.
Объектная модель документа очень обширна. Но если вы хорошо знакомы с VB, не составит особого труда освоить и Web-разработку, поскольку базовая концепция «событие—свойство—метод» остается неизменной.
В этой статье мы затронули только часть вопросов, возникающих при создании проектов WebClass и DHTML. На компакт-диске VB6 MSDN содержится свыше 100 страниц текста, освещающих эти темы, однако даже они не в состоянии представить вам глубокое описание объектных моделей. Для этого потребуется изучить разнообразную информацию, входящую в SDK, или долго бродить по VB 6.0 Object Viewer. Кстати, SDK также входит в состав компакт-диска MSDN Library.
Исходные тексты проектов, описанных в статье, можно найти по адресу: http://www.visual.2000.ru/develop/vb/source/.
Сравнение результатов запросов GET и POST
GET (URL/строка запроса)
Request.QueryString	возвращает весь адрес URL (GET)
Request.QueryString.Count	возвращает количество элементов в запросе
Request.QueryString.Key(Item)	Key — идентификатор элемента;

 Item — число или строка
Request.QueryString(Item)	содержимое элемента; Item — число или строка
POST (запуск формы)
Request.Form	возвращает исходные (необработанные) данные POST
Request.Form.Count	возвращает количество элементов в форме
Request.Form.Key(Item)	Key — идентификатор элемента управления; Item — число или строка
Request.Form(Item)	содержимое элемента управления; Item — число или строка
ОБ АВТОРАХ
Андрей Колесов и Ольга Павлова — независимые журналисты и консультанты, e-mail: akolesov@glasnet.ru, http://www.visual.2000.ru