ASP - Компонент Page Counter
Компонент Page Counter создает объект PageCounter, который подсчитывает и отображает число посещений веб-страницы. Объект регулярно записывает число посещений в текстовый файл, поэтому данные не теряются при отключении сервера. Для определения числа посещений каждой страницы приложения компонент Page Counter использует внутренний объект Central Management.
Когда экземпляр объекта PageCounter создается на странице с помощью метода Server.CreateObject, он запрашивает текущее число посещений данной страницы у объекта Central Management. После этого объектом можно управлять с помощью предоставляемых им методов.
Компонент Page Counter использует следующие файлы:
| Имена файлов | Description |
| Pagecnt.dll | Компонент Page Counter. |
| Hit Count Data file | Текстовый файл, в котором компонент Page Counter сохраняет текущее число посещений. |
Синтаксис
Set ИмяОбъекта = Server.CreateObject( "MSWC.PageCounter" )
Параметры
ИмяОбъекта
Указывает имя объекта PageCounter, создаваемого вызовом метода Server.CreateObject.
Параметры реестра
Компонент Page Counter добавляет в реестр параметр MSWC.PageCounter при компиляции или регистрации объекта. Этот параметр добавляется в раздел HKEY_CLASSES_ROOT и содержит следующие именованные значения.
| Именованное значение | Description |
| File_Location | Строка, задающая путь и имя файла данных, в котором хранится число посещений. По умолчанию этот файл имеет имя Hitcnt.cnt и расположен в каталоге Windows. |
| Save_Count | Значение типа DWORD, определяющее, сколько посещений должно быть выполнено перед тем, как число посещений будет сохранено в файле. Имейте в виду, что здесь задается общее число посещений, а не число посещений конкретной страницы. По умолчанию задается значение 25. |
Методы
| Hits | Выводит число посещений указанного URL. |
| PageHit | Увеличивает счетчик посещений. |
| Reset | Устанавливает счетчик посещений указанной страницы в 0. |
Пример
В следующем примере объект PageCounter используется для отслеживания числа посещений страницы; миллионному посетителю отправляется специальное сообщение.
<%
Set MyPageCounter = Server.CreateObject("MSWC.PageCounter")
HitMe = MyPageCounter.Hits
If HitMe = 1000000 Then
%>
Вы стали миллионным посетителем узла!!! <BR>
<% Else %>
Вы являетесь посетителем номер <%= HitMe %> <BR>
<% End If %>