1. Crie uma tabela de banco de dados
O nome da tabela está online
Defina os seguintes campos
id 'é usado para gravar a sessão.SessionId de cada acesso
Nome 'Se for um visitante, é registrado como um visitante.
online 'se estiver visitando, cada um é 0 se for um membro 1
Evento DateTime'latest
Nome do login do membro do nome de usuário, o visitante está vazio.
Acesso IP'Record a todos os IP de login
Head.asp 'grava o número de pessoas on -line na tabela de banco de dados e a página deve ser pesquisada em cada página usada para navegar no ASP.
<%
setrs = server.createObject ("adodb.recordset")
ifSession ("nome de usuário") = "" então determina que o usuário não está conectado
sql = "Selecione*FROMLINEDEID = '" & session.SessionId & "' '' '' Determine se esse SessionID existe na tabela de banco de dados.
Rs.opensql, Conn, 1,3
ifrs.eofthen'Visitor a primeira visão
Rs.Addnew
rs ("id") = session.SessionId
rs ("nome") = "convidado"
rs ("online") = 0'0 significa que o usuário não está conectado e é a identidade do turista
rs ("DateTime") = agora ()
userip = request.servervariables ("http_x_forwarded_for")
Ifuserip = "" então
userip = request.servervariables ("remote_addr")
endif
rs ("ip") = usuário
mais ou menos na primeira vez que os visitantes navegam
rs ("DateTime") = agora () 'Atualizar tempo de atividade
rs.update
rs.close
endif
outro
sql = "Selecione*de linewhed = '" & session.sessionId & "' Oadmin = '" & session ("nome de usuário") e "" "" "apenas determine que o registro do nome de usuário ou o nome de usuário já existe na tabela de dados.
Rs.opensql, Conn, 1,3
ifrs.eofthen
Os membros da Rs.Addnew entram no site pela primeira vez (talvez faça login diretamente na página inicial do site para entrar no fórum).
rs ("id") = session.SessionId
rs ("nome") = session ("show") 'escreva para o apelido do usuário
rs ("nome de usuário") = sessão ("nome de usuário") 'escreva para fazer o nome de usuário de login
rs ("online") = 1 'significa que o usuário fez login e é um membro
rs ("DateTime") = agora () 'Defina o tempo atual do sistema como o tempo de login do usuário
userip = request.servervariables ("http_x_forwarded_for")
Ifuserip = "" então
userip = request.servervariables ("remote_addr")
endif
rs ("ip") = usuário
Else // Um membro não está navegando no site pela primeira vez, e o visitante é registrado no site.
rs ("nome") = sessão ("show") Atualizar apelido do usuário