ASP создает код статистики доступа, пример 1. Создать таблицу базы данных
Название таблицы онлайн
Установите следующие поля
id 'session.sessionid, используемый для записи каждого доступа
name 'Если это посетитель, он будет записан как посетитель.
online 'если это посетитель, то это 0, если это участник, то это 1
datetime 'Время последней активности
username 'Имя пользователя для входа в систему, гость пусто.
ip 'Запишите IP-адрес для входа в систему
head.asp 'Запишите количество людей в сети в таблицу базы данных. Эта страница должна быть включена в каждую страницу ASP, используемую для просмотра.
<%
установите rs=Server.CreateObject(ADODB.Recordset)
если session(username)=, то определяет, что пользователь не вошел в систему
sql=select * from online, где id='&session.sessionid&' 'Определите, существует ли этот идентификатор сеанса в таблице базы данных.
rs.Open sql,Conn,1,3
если rs.eof, то «первый визит посетителя»
rs.addnew
rs(id)=session.sessionID
rs(имя)=посетитель
rs(online)=0 '0 означает, что пользователь не вошел в систему и является посетителем.
rs(datetime)=сейчас()
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Если юзерип = Тогда
userip = Request.ServerVariables(REMOTE_ADDR)
конец, если
rs(ip)=userip
else 'Посетитель не просматривает в первый раз
rs(datetime)=now() 'Обновление времени активности
RS.обновление
RS.закрыть
конец, если
еще
sql=select * from online, где id=' & session.sessionID & ' или admin='&session(username)&' 'Определите, существует ли уже запись sessionid или username в таблице данных.
rs.Open sql,Conn,1,3
если rs.eof тогда
rs.addnew 'Участник впервые заходит на сайт (может войти прямо с главной страницы сайта, чтобы войти на форум).
rs(id)=session.sessionID
rs(name)=session(show) 'Записываем никнейм пользователя
rs(username)=session(username) 'Записываем имя пользователя для входа
rs(online)=1 'Указывает, что пользователь вошел в систему и является участником
rs(datetime)=now() 'Устанавливаем текущее системное время на время входа пользователя в систему
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Если юзерип = Тогда
userip = Request.ServerVariables(REMOTE_ADDR)
конец, если
rs(ip)=userip
else //Это не первый раз, когда участник просматривает веб-сайт и посетитель входит на него.
rs(name)=session(show) обновляет псевдоним пользователя
rs(имя пользователя)=сессия(имя пользователя)
rs(online)=1 'Указывает, что пользователь вошел в систему и является участником
rs(datetime)=сейчас()
конец, если
RS.обновление
RS.закрыть
конец, если
установить rs=ничего
%>
conn.execute(delete from online, где dateiff('s',datetime,now())>60) 'Удалить посетителей, которые были неактивны в течение 60 секунд. Время можно настроить самостоятельно.