Счётчик посетителей сайтаКаждый автор или владелец сайта хочет, что бы на его сайт заходило много посетителей, как не упустить их? Конечно, вести полную и ясную статистику, для этого существует полно различных Интернет сервисов, которые представляют бесплатно счётчики посещений, но если Вас не устраивает дизайн или их информативность, тогда лучшего всего создать свой счётчик. С помощью 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 Кб
Обсудить на форуме