Экземпляр ASP: мгновенное отображение текущего просмотра страниц

<!-#Включите файл = dbconn.asp->

<%

onlinetimeout = 10 '' Определите интервал времени для онлайн -деятельности

Function userip ()

GetClientip = request.servervariables (http_x_forwarded_for) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Если getClientip = или isnull (getClientip) или isempty (getClientip), тогда

GetClientip = request.servervariables (remote_addr) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Конец, если

Userip = getClientip

Конечная функция

SQL = SELECT O_ID из C_ONLINE, где O_IP = '' & userip () & '' Найдите идентификатор полученного IP -адреса в базе данных

Установить rs = conn.execute (sql)

Если rs.eof и rs.bof, тогда

SQL = INSERT INTO C_ONLINE (O_IP) VALUES ('' & userip () & '') Если в базе данных нет, это означает, что это новый IP, то операция вставки

conn.execute (sql)

Еще

sql = update c_online set o_ltime = now (), где o_ip = '' & userip () & '' Текущее время базы данных

conn.execute (sql)

Конец, если

SQL = DELETE FROM C_ONLINE, где DateAdd ('' S '', & onlinetimeout*60 &, o_ltime) <Теперь () Определите десять минут, чтобы обновить

conn.execute (sql)

Rs.close

Установить RS = ничего

Функция Allonline ()

tmprs = conn.execute (выберите count (o_id) из c_online)

Allonline = tmprs (0)

Установить TMPRS = ничего

конечная функция

%>

<%Response.write Document.Write (Online & Allonline () и People)%>