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