1 reply to this topic

[WeeD]

Ae alguem pode me da um help aqui fazendo favor, tipo eu tava tentando faze esse sitema de usuarios online com db e tal, só que to tendo problemas. é o seguinte quando eu me logo ele imprimi ali meu nome de usuario normal a contagem tambem, só que quando outra pessoa se loga junto comigo pro exemplo tem eu e mais um "MEMBRO" online, ele só mostra eu e na maquina do cara mostra só ele online, e tbm não aparece que tem visitante online. outra coisa é que quando eu do um "reflash" na pagina ele duplica o registro de user online. alguem pode me da uma força fazendo favor.

<%
IF Session("sesaousuario") = "" THEN
usuario = "Nenhum"
ELSE
usuario = Session("sesaousuario")
END IF
horas = Time()
ip = Request.ServerVariables("REMOTE_ADDR")
conexao.execute("INSERT INTO users_online (usuario,ip,horas) VALUES ('"&usuario&"','"&ip&"','"&horas&"')")
set rs = conexao.execute("SELECT * FROM online")
While Not rs.EOF
Response.Write(""&usuario&"")
rs.movenext
Wend
%>
<%
sql = ("SELECT DISTINCT ip FROM users_online WHERE usuario <> '' AND usuario <> 'nenhum'")
set rs = server.createobject("adodb.recordset")
rs.open sql,conexao,3,3
Response.Write("Cadastrados: "<b>"&rs.recordcount&"<b>"") 
%>
<%
rs.close 
set rs = nothing
sql = ("SELECT DISTINCT ip FROM users_online WHERE usuario = '' OR usuario = 'nenhum'")
set rs = Server.Createobject("adodb.recordset")
rs.open sql,conexao,3,3 
Response.Write("Visitantes: "<b>"&rs.recordcount&"<b>"")
%>
<%
rs.close
set rs = nothing
sql = ("SELECT DISTINCT ip FROM users_online")
set rs = server.createobject("adodb.recordset")
rs.open sql,Conexao,3,3 
Response.Write("Total: "<b>"&rs.recordcount&"<b>"")
%>
<% 
END IF
rs.close 
set rs = nothing
%>

Edição feita por: WeeD, 11/12/2004, 00:07.

[WeeD]

tem algum geito de arrumar isso ? :/