Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
ae pessoaleu achei ou no imasters ou no wmonline esse codigo que mostra usuários online no site:
> <% Dim brow,conn,hora_off,minuto_off,segundo_off,hora,user_off,rs,troca,rs2,Sql1,agora,Sql2,Sql,RS1,Sql3,rs3agora=Time()If Session("admin") = "" Then brow=""Else brow=Session("admin")End IflojaDB.Execute("INSERT INTO online (hora,ip,user) VALUES ('"&agora&"','"&ip&"','"&brow&"')")hora_off= mid(agora,1,2)minuto_off= mid(agora,4,2) - 5 segundo_off="00"if minuto_off - 5 < 0 then minuto_off = "00" hora_off= hora_off - 1 if hora_off < 0 then hora_off= "00" end ifend ifif len(hora_off) = 1 thenhora_off= "0" & hora_offend ifif len(minuto_off) = 1 thenminuto_off= "0" & minuto_offend ifuser_off= hora_off &":"& minuto_off &":"& segundo_offlojaDB.Execute("DELETE FROM online WHERE hora < '"&user_off&"' ")Sql = "SELECT DISTINCT ip FROM online"Set RS = Server.CreateObject("ADODB.Recordset")RS.open Sql,lojaDB, 3, 3 If rs.EOF Then %> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">Nenhum usuario está online! </font> <% else %><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> Administradores online agora:(<%=rs.recordcount%>) - </font><%set troca=lojaDB.execute("SELECT DISTINCT ip FROM online WHERE user <> ''") if not troca.eof then while not troca.eof lojaDB.execute("delete from online where ip='"&troca("ip")&"' and user = '' ") troca.movenext wend end if Sql1 = "SELECT DISTINCT ip FROM online WHERE user <> '' "Set RS1 = Server.CreateObject("ADODB.Recordset")RS1.open Sql1,lojaDB, 3, 3 %><%Sql2 = "SELECT DISTINCT ip FROM online WHERE user = '' "Set RS2 = Server.CreateObject("ADODB.Recordset")RS2.open Sql2,lojaDB, 3, 3 %><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Visitantes online no momento:(<%=rs2.recordcount%>) </font><% Sql3= "Select * from online"Set rs3=LojaDB.Execute(Sql3)If rs3.EOF then %><% else %><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Os membros online são:</font> <% While Not rs1.EOF %><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><%=rs3("user")%>,</b></font><%rs1.MoveNextWend End If End If%>o codigo aparentemente esta correto, no meu micro esta rodando, uso IIS e banco de dados Acess, agora quando eu mando pro servidor da erro, veja o erro abaixo:
Microsoft VBScript runtime error '800a000d' Type mismatch: '[string: "4:"]' /7200799891186821/online.inc, line 15
tipo imcompativeleu nao entendi, alguem pode me ajudar com isso?Grato
po valeu cara, mais eu queria resolver o problema do meu codigo que roda, de qualquer forma gratoFalou!!
qual é a linha do erro?falows
nao me pareceu ser isso, eu tava pensando nisso agorao estranho e que esse codigo roda perfeitamente no meu micro, quando mandei para o servidor ele apresentou o errovo seguir tentando aquiGrato
Olá,
Você pode usar o Fast Online Users, muito mais simples. Confiável, funciona direitinho. Só lembre de apagar do código aquela parte que dá link para outros sites e popups, ponha apenas o link para o http://www.fastonlineusers.com/
Abraço,
Maria Beatriz
Eu de novo, experimente colocar este código na sua página. Ponha o nome do seu site, faça o upload e pronto, terá os seus usuários online.<a href="[http://www.fastonlineusers.com">http://fastonlineusers.com/online.php?d=http://www.yoursite.com.br></script> online</a>Abraços,Bia
mais esse code ai mostra o nome das pessoas que estao online?tipo "estao online no momento: paulo, maria, dandan, salgado, etc"o codigo acima eu to tentando fazer issoaliás tentei arruamr ate agora e nao conseguitentei fazer alguma coisa usando a propriedade minute para substituir o mid mais nao deu certose alguem puder me ajudar ae, eu agradeçoGrato
resolvi o problema, segui o que o Luiz me disseagora vou quebrar a cabeça para mostrar todo mundo onlinemais me digam o seguinteo sistema lista o nome dos users online, no final da função mostra como você apresenta os users online, mais ta alguma coisa errada, por que ele lista um user 2,3 vezes o mesmo... alguem sabe como resolver essavou quebrando a cabeça por aquiFalou!!
http://www.aspclube.net/artigos.asp?tecnol...954-0508709132}