Сделайте простую статистику веб -сайта
Идеи проектирования: запустите Service SessionID, чтобы записать статус входа пользователя При использовании запроса веб -страницы пользователя Пользователь - 20 минут, пользователь, когда нет запроса веб -страницы, удалите этого пользователя.
1. Таблица данных: мы добавляем две таблицы в базу данных
Таблица строки: SessionId Тип символа 20 -bit для записи уникальной отметки запроса веб -страницы клиента
Пользовательский тип времени даты для записи времени последней веб -страницы клиента
Id автоматический тип номера
Вы также можете записать другую информацию в этой таблице, например, как учетные записи, IP и другая информация
Таблица подсчета: Пользовательский тип времени даты используется для записи даты дня
Count Digital Type используется для записи тома на сайт.
Сегодня цифровой тип используется для записи сегодняшнего объема доступа
Max Digital Type используется для записи максимальных посещений дня
В этой таблице, поскольку есть только одна запись, нет необходимости использовать полевое поле, но сохранение поля идентификатора - хорошая привычка
2. Используйте Con.ASP для обработки таблицы линии
(1) Подключить базу данных
Dim Conn
Dim Connstr
Dim DB
db = "date/date.mdb"
Установить conn = server.createObject ("adodb.connection")
Connstr = "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("" & db & "")
Conn.Open Connstr
(2) Чистые записи тайм -аута
conn.execute ("Удалить из строки, где датиф (" "s", userdate, теперь ())> = 1200 ")
(3) Записать информацию о клиенте в таблицу линии и выполнить статистическую обработку сайта
Dim SQL, SQL1, RS, RS1
Установить rs = server.createObject ("adodb.oldset")
sql = "select * из строки, где [sessionId] =" "& session.sessionId &" "" определить, является ли начальная запрос веб -страницы клиента
Rs.oopen SQL, Conn, 1,3
Если не rs.eof, то «Если это исходный запрос веб -страницы, запишите информацию о клиенте, в противном случае он только изменит время запроса
Rs ("userdate") = теперь ()
еще
Установить rs1 = server.createObject ("adodb.oldset") "
sql1 = "select * from [count]"
Rs1.open sql1, conn, 1,3
Если RS.EOF, то «Если в таблице нет записи, инициализируйте эту таблицу
Rs.addnew
Rs ("count") = 1
rs ("max") = 1
Rs ("сегодня") = 1
Rs ("userdate") = date ()
еще
Rs1 ("count") = rs1 ("count") 1 "сайт сайта
Если rs1 ("userdate") = date (), то «Если система системы такая же, как и последняя дата записи данных, добавьте 1 посещение 1
Rs1 ("сегодня") = rs1 ("сегодня") 1
Если еще не по -другому, установите дневной доступ к объему 1 и измените дату записи данных на дату сервера
Rs1 ("сегодня") = 1
Rs1 ("userdate") = date ()
конец, если
Rs1.update
Если rs1 ("max") <= rs1 ("сегодня"), то, если статистика дня превысила максимальные ежедневные посещения, обновите максимальные ежедневные посещения
Rs1 ("max") = rs1 ("сегодня")
конец, если
конец, если
Rs1.update
Rs1.close
установить rs1 = ничего
Rs.addnew "Ниже приведена информация пользователя
rs ("sessionId") = session.sessionId "для записи SessionId в таблицу данных
RS ("userDate") = теперь () Напишите дату системы в таблицу данных
конец, если
Rs.Update
Rs.close
Установить RS = ничего
Вышеуказанная обработка просто готова к статистике.
<!-#include file = "conn.asp"->
<% Dim count, сегодня, макс, линия
Установить rs = server.createObject ("adodb.oldset")
sql = "select * from [count]" "
Rs.oopen SQL, Conn, 1,1
Сегодня = Rs ("Сегодня")
Count = rs ("count")
max = rs ("max")
Rs.close
Установить RS = ничего
Установить rs = server.createObject ("adodb.oldset")
SQL = "Выберите счет (*) из строки"
Rs.oopen SQL, Conn, 1,1
Line = rs (0)
Rs.close
Установить RS = ничего
%>
Мы подготовили статистику веб -сайта выше и поместили их в количество переменных, сегодня, максимум. Нет, поэтому мы должны использовать следующие предложения для вывода статистического содержания:
Document.Write ("Посещения веб -сайта: <%= count%> люди <br>")
Document.Write («Сегодня: <%= сегодня%> люди посетили этот сайт <br>»)
Document.Write («Самые высокие ежедневные посещения этого сайта: <%= max%> люди <br>»)
Document.Write («Текущий онлайн: <%= line%> люди»)
Мы используем <script src = "line.asp"> </script> для цитирования этого файла