ASP cria código de estatísticas de acesso, Exemplo 1. Criar tabela de banco de dados
O nome da tabela está online
Defina os seguintes campos
id 'session.sessionid usado para registrar cada acesso
name 'Se for um visitante, será registrado como visitante.
online 'se for visitante é 0, se for membro é 1
datetime 'Hora da última atividade
nome de usuário 'Nome de usuário de login do membro, convidado está vazio.
ip 'Registra o IP de login da visita
head.asp 'Escreva o número de pessoas online na tabela do banco de dados. Esta página deve ser incluída em todas as páginas ASP usadas para navegar.
<%
definir rs=Server.CreateObject(ADODB.Recordset)
if session(username)=então determina que o usuário não está logado
sql=select * from online where id='&session.sessionid&' 'Determine se este sessionid existe na tabela do banco de dados.
rs.Open sql,Conn,1,3
if rs.eof then 'Primeira visita do visitante
rs.addnew
rs(id)=sessão.sessionID
rs(nome)=visitante
rs(online)=0 '0 significa que o usuário não está logado e é um visitante.
rs(datahora)=agora()
userip = Solicitação.ServerVariables(HTTP_X_FORWARDED_FOR)
Se userip = então
userip=Solicitação.ServerVariables(REMOTE_ADDR)
terminar se
rs(ip)=userip
else 'O visitante não está navegando pela primeira vez
rs(datetime)=now() 'Atualizar horário da atividade
rs.atualização
rs.fechar
terminar se
outro
sql=select * from online where id=' & session.sessionID & ' or admin='&session(username)&' 'Determine se o registro sessionid ou nome de usuário já existe na tabela de dados.
rs.Open sql,Conn,1,3
se rs.eof então
rs.addnew 'O membro entra no site pela primeira vez (pode fazer login diretamente na página inicial do site para entrar no fórum).
rs(id)=sessão.sessionID
rs(nome)=sessão(show) 'Escreve o apelido do usuário
rs(nomedeusuário)=sessão(nomedeusuário) 'Escrever nome de usuário de login
rs(online)=1 'Indica que o usuário efetuou login e é membro
rs(datetime)=now() 'Define a hora atual do sistema para a hora de login do usuário
userip = Solicitação.ServerVariables(HTTP_X_FORWARDED_FOR)
Se userip = então
userip=Solicitação.ServerVariables(REMOTE_ADDR)
terminar se
rs(ip)=userip
else //Esta não é a primeira vez que o membro navega no site e o visitante faz login no site.
rs(nome)=sessão(show) atualiza o apelido do usuário
rs(nome de usuário)=sessão(nome de usuário)
rs(online)=1 'Indica que o usuário efetuou login e é membro
rs(datahora)=agora()
terminar se
rs.atualização
rs.fechar
terminar se
definir rs = nada
%>
conn.execute(delete from online where datediff('s',datetime,now())>60) 'Exclua visitantes que estiveram inativos por 60 segundos O tempo pode ser ajustado por você mesmo.