Разработка INTRANET приложений




Встроенные объекты - часть 5


<% Setbc = Server.CreateObject("MSWC.BrowserType") %> Приветствуем на сервере пользователя броузера <B><% =bc.Browser %> версии <% =bc.Version %> </B>!

Затем можно определить, поддерживает ли клиентский броузер фреймы. На сервере может быть два набора страниц - с фреймами и без них. Определив, умеет ли клиентский броузер отображать фреймы или нет, можно загружать соответствующий набор страниц:

<% Setbc = Server.CreadteObject("MSWC.BrowserType" %> <% If (bc.Frames = TRUE) Then Response.Write "Есть поддержка фреймов!" Else Response.Write "Нет поддержки фреймов!" EndIf %>

Также перед отправкой страницы, содержащей программу на каком-либо скриптовом языке, полезно было бы определить, поддерживает ли броузер этот скриптовый язык. Например, для проверки поддержки языка VBScript можно написать такой код:

<% Setbc = Server.CreateObject("MSWC.BrowserType") %> <% If (bc.VBScript = TRUE) Then Response.Write "Есть поддержка VBScript" Else Response.Write "Нет поддержки VBScript" EndIf %>

Компонент DatabaseAccess обеспечивает доступ к данным, хранящимся в базах данных. Рассмотрение этого компонента вынесено в отдельный раздел.

Компонент ContentLinking применяется для управления списком URL-адресов, которые являются ссылками на страницы, расположенные на Web-узле. С помощью этого компонента можно создавать таблицы содержания для всего Web-узла, что весьма актуально для онлайновых публикаций и списков статей различных электронных конференций. Кроме того, компонент ContentLinking может использоваться для изменения порядка следования страниц.

Компонент FileAccess использует объекты FileSystemObject и TextStream и обеспечивает доступ к хранимым на сервере файлам. Вот пример использования этого компонента:

<% 'создадим файл SetFileObject = CreateObject("Scripting.FileSystemObject") SetFile = FileObject.CreateTextFile("user.txt", True) 'запишем данные в файл File.Writeline(Now()) File.Writeln(Request.ServerVariables("REMOTE_ADDR")) File.Writeln(Request.ServerVariables("REMOTE_HOST")) 'закроем файл File.Close %>




Содержание  Назад  Вперед