Visual Basic 6. Руководство разработчика


         

Web-приложение - часть 3


Рис. 22.10. Страница, генерируемая файлом VIEWERS.ASP

В программе 22.11 приведен код страницы

VIEWERS.ASP, который совместно с кодом файла GLOBAL.ASA генерирует страницу, показанную на рис. 22.10.

Страница VI EWERS.ASP может располагаться в любой виртуальной папке на вашем сервере, а файл GLOBAL.ASA – обязательно в корневой папке (обычно это папка C:\INETPUB\WWWROOT). Страница отображает количество пользователей, подключенных к серверу, IP-адрес сеанса и основные свойства броузера клиента.

Программа 22.11. Файл VIEWERS.ASP

<HTML>

<FONT FACE= "Comic Sans MS" SIZE=3>

<H1>Welcome to ASP</H1>

There are <% "Application("Viewers") %> users currently connected to

the server.

<P>

You have connected from the following IP address:

<% ^Session ("User") %>

(<% "Session ("HName") %>)

<P>

We already know that your browser:

<BR>

1.

<% Set Browser = Server. CreateObject ("MSWC.BrowserType") %>

<% If Browser.VBscript Then

Response.Write "Can"

Else

Response.Write "Can't "

End If

%> execute VBScript code.

<BR>

2.

<% If Browser.Frames Then

Response.Write "Can"

Else

Response.Write "Can't"

End If

%> display frames.

<BR>

3.

<% If Browser.Tables Then

Response.Write "Can"

Else

Response. Write "Can't"

End If

%> display tables.

</FONT>

</HTML>

Код файла VIEWERS.ASP считывает значения переменных Visitors, Viewers, User и HName

и отображает их на странице. Кроме того, он демонстрирует использование компонента BrowserType (Тип броузера), который возвращает информацию о броузере клиента. Будет разумно проверять основные характеристики броузера клиента перед пересылкой документа, чтобы убедиться, что он будет отображен надлежащим образом. Почти все броузеры способны отображать панели и таблицы, но это не значит, что они могут выполнять VBScript-код.




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