<% 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.