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-код.
