1. Создать таблицу базы данных
Название таблицы онлайн
Установить следующие поля
ID 'используется для записи Session.SessionId каждого доступа
Название. Если это посетитель, он записан как посетитель.
онлайн, если он посещает, каждый равен 0, если это участник 1
DateTime'latest событие
Имя пользователя участника пользователя, посетитель пуст.
IP'Record Access ко всем IP входа в систему
Head.asp 'записывает количество людей в Интернете в таблице базы данных, и страница должна искать на каждую страницу, используемую для просмотра ASP.
<%
setrs = server.createObject ("adodb.recordset")
IfSession ("username") = "" "Затем определяет, что пользователь не вошел в систему
SQL = "SELECT*FROANWHEREID = '" & session.sessionId & "" ""' 'Определите, существует ли этот SessionID в таблице баз данных.
Rs.opensql, Conn, 1,3
IFRS.EofThen'Visitor первое представление
Rs.addnew
rs ("id") = session.sessionid
rs ("имя") = "Гость"
rs ("online") = 0'0 означает, что пользователь не вошел в систему и является личности туриста
rs ("dateTime") = теперь ()
userip = request.servervariables ("http_x_forwarded_for")
Ifuserip = "" Тогда
userip = request.servervariables ("remote_addr")
эндиф
rs ("ip") = пользователь
еще не впервые, когда посетители просматривают
rs ("dateTime") = now () 'Обновление времени активности
Rs.Update
Rs.close
эндиф
еще
sql = "select*fromlinewhere = '" & session.sessionid & "' oradmin = '" & session ("username") & "" "" "" просто определите, что запись SessionId или имени пользователя уже существует в таблице данных.
Rs.opensql, Conn, 1,3
ifrs.eofthen
Участники RS.Addnew впервые въезжают на веб -сайт (возможно, войдите в систему непосредственно с домашней страницы веб -сайта, чтобы ввести форум).
rs ("id") = session.sessionid
rs ("name") = session ("show") 'write to pusnemememe
rs ("username") = session ("username") 'Напишите, чтобы войти в систему имя пользователя
RS ("Online") = 1 'означает, что пользователь вошел в систему и является участником
rs ("dateTime") = теперь () 'Установите текущее системное время как время входа в систему пользователя
userip = request.servervariables ("http_x_forwarded_for")
Ifuserip = "" Тогда
userip = request.servervariables ("remote_addr")
эндиф
rs ("ip") = пользователь
else // Участник не просматривает веб -сайт в первый раз, и посетители входят в систему на веб -сайте.
rs ("name") = session ("show") обновить прозвище пользователя