Главная страницаОбратная связьКарта сайта
Попробуй магазин http://shop-digital.com.ua/category/ и покупай на выгодных условиях.

Счётчик посетителей сайта

Каждый автор или владелец сайта хочет, что бы на его сайт заходило много посетителей, как не упустить их? Конечно, вести полную и ясную статистику, для этого существует полно различных Интернет сервисов, которые представляют бесплатно счётчики посещений, но если Вас не устраивает дизайн или их информативность, тогда лучшего всего создать свой счётчик. С помощью ASP его можно создать засчитанные минуты.
Для начала, как всегда создадим базу данных Access «hit.mdb» с одной таблицей «сounter», со следующими полями: [ip] (текстовое поле для хранение хостов), [url] (адреса ссылок с которых пришли к вам) и [Dates] (дата посещения, по умолчанию делаем текущую дату).
Открываем любимый Вами редактор HTML и пишем там код для открытия базы данных:

Set db = Server.CreateObject(ADODB.Connection)
connect=Driver={Microsoft Access Driver (*.mdb)};DBQ=& server.mappath(hit.mdb)
db.Open connect

Добавляем в базу данных запись о посетителе:

h = Request.ServerVariables(remote_addr)
u = Request.ServerVariables(HTTP_REFERER)
db.Execute(INSERT INTO сounter( ip, url) SELECT & h & as ip, & u & as url;)

Выводим число уникальных хостов на текущую дату:

set rs=db.Execute(SELECT distinct сounter.ip, сounter.Dates FROM сounter WHERE (((сounter.Dates)=Date()));)
nn=0:do While NOT rs.Eof
nn=nn+1
rs.movenext
loop
Response.Write nn

Выводим число уникальных хитов:

set rs=db.Execute(SELECT distinct сounter.url, сounter.Dates FROM сounter WHERE (((сounter.Dates)=Date()));)
nn=0:do While NOT rs.Eof
nn=nn+1
rs.movenext
loop
Response.Write nn

Выводим общее число посетителей:

set rs=db.Execute(SELECT distinct сounter.url, сounter.Dates FROM;)
nn=0:do While NOT rs.Eof
nn=nn+1
rs.movenext
loop
Response.Write nn

Закрываем базу данных:

db.close

Ну вот и всё, оформить результаты Вы можете по своему вкусу, в прилагаемом примере исходников, результаты я поместил в разноцветную таблицу!


Скачать 7,7 Кб

Обсудить на форуме

Получить файл на e-mail


   


Copyright © 2008 - 2017 Дискета.info