Пример статистики, которая может читать посетителей, посещения записи, IP и время
Я сделал веб -сайт, www.zydn.net, конечно, как и все остальные, я также поставил на это счетчик. Я видел, как счетчики постоянно перевернулись каждый день, и я был очень счастлив, но позже я подумал, кто смотрел мой сайт? Новый друг или старый друг? Я не знаю, сколько раз они приходили, но я все еще хочу их все, поэтому я подал заявку на бесплатную статистику, но я не был удовлетворен изменением N подряд. Увы, кажется, что только делая это самостоятельно, у вас есть достаточно еды и одежды, и сделать это так, как вы это говорите. Уровень вонючий. Я надеюсь, что мастера будут смеяться над этим и не просить совета.
Я беру библиотеку доступа в качестве примера. На самом деле, используя библиотеку SQLServer, вы можете просто изменить операторы в библиотеке ссылок.
Структура библиотеки выглядит следующим образом
Имя файла библиотеки: продолжение.
Имя таблицы: вкладка
Имя поля Тип данных Описание
ID автоматически числа номер посетителя
IP -текст используется для записи IP -адреса посетителя
Dat1 Date Time используется для записи последнего посетителя
Дата дата используется для записи времени, когда посетитель впервые посещает
Номер CS, целочисленный тип используется для записи количества посещений посетителя
Программа очень проста, есть только два файла, DispCont.asp используется для отображения статистических результатов, ContPage.asp используется для отображения статистической информации,
Давайте сначала посмотрим на статистику contpage.asp, а код заключается в следующем:
<%
SetConn = server.createObject ("adodb.connection")
Connstr = "dbq ="+server.mappath ("cont.asp")+"; defaultdir =; driver = {microsoft accessdriver (*. Mdb)};"
Conn.openconnstr '***** Приведенный выше оператор используется для подключения к библиотеке, а Cont.asp - имя файла библиотеки.
keren = request.cookies ("keren") 'Читать файлы cookie, название файлов cookie: "keren", хаха. Полем Литература YU настолько плох, что он только знает, как использовать пининина.
ifkeren = "" Тогда 'Judge, пустые ли cookie. Если они пусты, они должны быть новыми друзьями, иначе они старые друзья.
SQL = "SELECT*OUTABWHEWHEREID = -1"
setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 1,3
Rs.Addnew'If это новый посетитель, добавьте новую запись в библиотеку.
rs ("cs") = 1 'Примечание. Количество посещений составляет 1
rs ("ip") = request.servervariables ("remote_addr") 'Обратите внимание на ip,
rs ("dat") = теперь нынешняя дата и время,
rs ("dat1") = date'tell текущая дата и дата, которая будет использоваться для первого посещения в будущем.
response.cookies ("keren") = rs ("id") 'написать cookie, а контент такой же, как идентификатор.