знакомство с asp: счетчик для iis за 5 минут

Знать сколько человек посещают твой сайт порой очень важно. Именно для этого написана эта статья. В ней будут предложены варианты как написать счетчик на языке ASP для сайтов построенных на базе IIS 3, 4, 5, PWS, GoAhead. Статья написана для начинающих программистов, по этому код облегчен для восприятия.

Классификация.


По признаку своей функциональности счетчики можно подразделить на счетчики: с накоплением; в рамках сессии; ементами персонификации; с возможностью дальнейшего анализа информации о клиенте;

По способу хранения информации: хранение в переменных сессии (приложения); хранение в файле на стороне сервера; хранение в файле на стороне клиента; хранение в базе данных; комбинированные;

По способу визуализации: текстовые; графические; информеры ( как комбинация первых двух );

Cчетчик от Microsoft


Возможности: счетчик с накоплением, поддержка "виртуальных" сайтов, отдельных asp-страниц.

Для создания данного счетчика необходимо с сайта Microsoft скачать серверный компонент PageCounter и установить его. Весь код счетчика оформлен в виде ISAPI-dll (распространяется вместе с исходными текстами) и число обращений к конкретной странице или инициалиазация/сброс счетчика вызываются как метод серверного объекта PageCounter.

Для установки счетчика на сервер необходимо скопировать PageCnt.dll в каталог InetPubASPSampComponentsPageCntDLLi386 и зарегистрировать его: regsvr32 PageCnt.dll В случае, если Вы планируете подсчитывать обращения к нескольким виртуальным сайтам, Вам необходимо конфигурировать их как приложения.

Счетчик поддерживает 2 метода HITS и RESET

Код инициализации счетчика для конкретного сайта:
Распологать его лучше всего в верхней части страницы, в первых строках. <% Set MyPageCounter = Server.CreateObject("IISSample.PageCounter") HitMe = MyPageCounter.Hits %>

Отображение количества заходов:
Данный фрагмент размещайте сообразуясь с дизайном своего сайта. <% =HitMe %>

Для подсчета на конкретной странице сайта код несколько изменится: <% Set MyPageCount = Server.CreateObject("IISSample.PageCounter") MyPageCount.PageHit HitMe = MyPageCount.Hits %> <% =HitMe %> или <% Set MyPageCounter = Server.CreateObject("IISSample.PageCounter") %> This Web page has been viewed <%= MyPageCount.Hits %> times.

Page Myscript.asp has been viewed <%= MyPageCounter.Hits("/VirtualDir1/Myscript.asp") %> times.

Для того, чтобы запустить счетчик с какого-либо начального значения (12345) используйте следующий код: <% =HitMe + 12345 %>

Сброс счетчика (RESET). <% Set MyPageCounter = Server.CreateObject("IISSample.PageCounter") MyPageCounter.Reset MyPageCounter.Reset("/VirtualDir1/Mypage.asp") %>

Простейшиe счетчики


Возможности: счетчик с накоплением. Хранит информацию о количестве обращений в текстовом файле.

Используется объект VBScript (WSH) FileSystemObject.

Порядок действий. Создайте текстовый файл c:mycount.txt Для инициализации счетчика укажите в текстовом файле начальное значение. На пример 0. В тело вашей страницы впишите следующий код: <% 'Декларирование переменных Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f, myCounter 'Создаем объект Set fso = CreateObject("Scripting.FileSystemObject") 'открываем файл на чтение, и считываем из него ВСЕ содержимое 'если файл отсутствует, то создаем его (Trye). Set f = fso.OpenTextFile("c:mycount.txt", ForReading, True) 'отключаем обработку ошибок On error resume next 'считываем содержимое, в случае пустого (Empty)значения 'присваиваем значение 0 переменной myCounter myCounter = f.readAll If myCounter = Empty Then myCounter = 0 'если все в порядке, то увеличиваем значение переменной myCounter на 1 Else myCounter = myCounter + 1 End If 'открываем файл на запись и обновляем значение счетчика Set f = fso.OpenTextFile("c:mycount.txt", ForWriting, True) f.Write myCounter 'закрываем файл f.Close 'очищаем память Set f = nothing Set fso = nothing %> В соответствии с дизайном разместите счетчик. <% = myCounter %>

Счетчик с накоплением. Хранит данные в переменных сесии ( приложения ), отображает количество пользователей, находящихся в данный момент на сайте.

В рут - каталоге сайта создайте файл global.asa

Код:

В теле asp-страницы разместите код: <% Dim vist, currentcount visit = Application("visitors") currentcount = Application("myCounter") %>

В соответствии с дизайном поместите счетчик общего числа обращений/текущего количества пользователей <% = currentcount & "/" & visit %>

В следующих статьях будут рассмотрены способы создания более сложных счетчиков с использованием баз данных и информеров.