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


         

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


Application.Lock

Application ("Viewers")="Application("Viewers")+1

Application ("Visitors")="Application("Visitors")+1

Application.Unlock

Session ("User") "Request.ServerVariables("REMOTE_ADDR")

End Sub

Sub Session_OnEnd

Application.Lock

Application ("Viewers")="Application("Viewers")-1

Application.Unlock

End Sub

</SCRIPT>

При запуске Web-сервер создает новую переменную Viewers. Этой переменной присваивается значение 0, которое увеличивается на 1, когда начинается новый сеанс, и уменьшается на 1, когда сеанс заканчивается. Таким образом, значение этой переменной всегда равно количеству пользователей, которые подключились к серверу.

Значение переменной Visitors

увеличивается на 1, когда начинается новый сеанс. Она предназначена для хранения общего числа пользователей, посетивших Web-узел. Переменная сбрасывается в 0, когда Web-сервер выключается, поэтому ее значение необходимо сохранить в файле с тем, чтобы его можно было восстановить при следующем запуске приложения.                     <>

Обработчик события OnStart каждого сеанса запоминает значение IP-адреса клиента в переменной User. Поскольку областью видимости этой переменной является объект Session, т.е. сеанс с конкретным пользователем, ее можно использовать для идентификации клиента.

Обратите внимание: объект Application должен быть заблокирован во время изменения его переменных. Для объекта Session делать это необязательно, поскольку каждый объект Session имеет собственный набор локальных переменных.

При тестировании файла GLOBAL.ASA необходимо создать ASP-файл для доступа к переменным Application и Session, объявленным в файле GLOBAL.ASA. Ниже приведен текст файла VIEWERS.ASP, который генерирует страницу, показанную на рис. 22.10. Для проверки этого файла запустите утилиту WINIPCFG (выберите команду Run меню Start и напечатайте WINIPCFG), которая отобразит ваш IP-адрес. Передайте этот адрес нескольким знакомым и попросите их подключиться к вашему серверу. Теперь при каждом новом подключении переменные Viewers и Visitors должны увеличиваться на единицу, а при отключении - уменьшаться.




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