O banco de dados:
Você deve ter um tabela com os dados dos cadastrados em seu site...
Crie uma tabela chamada online com os campos
hora - texto
ip - texto
user - texto
A página:
Na pagina em que faz o login do user adicione uma Session que loga o login do usuario. Aqui irei usar como se fosse a session login.
<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("online")
Conexao.Open ConStr
agora=Time()
ip=Request.ServerVariables("REMOTE_ADDR")
If Session("login") = "" Then
user=""
Else
user=Session("login")
End If
Sql="INSERT INTO online VALUES ('"&agora&"','"&ip&"','"&user&"')"
Conexao.Execute(Sql)
Sql="DELETE * FROM online WHERE hora < Time()-60 "
Conexao.Execute(Sql)
Sql = "SELECT DISTINCT ip FROM online"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conexao, 3, 3
If rs.EOF Then %>
Nenhum usuario está online!
<% else %>
Existem <%=rs.recordcount%> online<BR>
<% Sql1 = "SELECT DISTINCT ip FROM online WHERE user <> '' "
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.open Sql1,Conexao, 3, 3 %>
Sendo <%=rs1.recordcount%> membros e
<%Sql2 = "SELECT DISTINCT ip FROM online WHERE user = '' "
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.open Sql2,Conexao, 3, 3 %>
<%=rs2.recordcount%> visitantes.<BR>
<% Sql="Select * from online"
Set rs3=Conexao.Execute(Sql)
If rs1.EOF then %>
<% else %>
Os membros online são:
<% While Not rs1.EOF %>
<%=rs3("user")%>,
<% rs1.MoveNext
Wend
End If
End If %>------------------
EH so isso.....se pode dar umas mlehoradas e tal..espero ter ajudado..qualquer duvida perguntem..
