4 апреля в Институте развития прессы Группа monitoring.ru представила отчет исследования "Мониторинг российского интернета" и объявила о начале онлайн-исследований. Данные опросов показывают, что численность аудитории Интернета активно растет. Пока, в основном, за счет тех, кто приобрел первый опыт, но не стал пока регулярным пользователем. Максимальная аудитория (все посетители Интернета включая тех, кто имел хотя бы единичный опыт посещения сети) за минувший год удвоилась и составляет 11,4 млн., нерегулярная (все посетители Интернета исключая тех, кто имел только единичный опыт посещения) - 6 млн., недельная (регулярно посещающие Интернет минимум раз в неделю) - 2,5 млн., активная (проводящие в Интернете не менее часа в неделю) - 1,7 млн., ядро (не менее трех часов в неделю) почти не изменилось с начала прошлого года - 900 тыс. Каждый десятый россиянин получает или имеет опыт получения информации из Интернета. Однако реальные масштабы влияния сети на российское общество значительно выше. С учетом того, что 16 млн. россиян имеют друзей, регулярно посещающих Интернет, зона влияния сети охватывает более 27 млн., то есть каждого четвертого жителя России. Если закон роста, наблюдающийся на протяжении последнего года, сохранится, то к концу 2001 года максимальная аудитория Рунета достигнет 18 млн. человек.
Данный пример будет полезен тем, кто хочет отобразить на своей странице количество активных пользователей на сайте. Приведенный ниже код должен размещаться в файле Global.asa.
<script language=vbscript runat=server>
Sub Application_OnStart
Application("Active") = 0
End Sub
Sub Application_OnEnd
'nothing needed here for this app
End Sub
Sub Session_OnStart
Application.Lock
'add 1 to active user count when new visitor arrives
Application("Active") = Application("Active") + 1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
'subtract 1 from active user count when visitor leaves
Application("Active") = Application("Active") - 1
Application.Unlock
End Sub
</script>
Теперь чтобы показать значение счетчика добавьте в страницу следующий код:
На сайте <%=Application("Active")%> активных пользователей.