Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mkboy

Usuários on line....

Recommended Posts

Tem como eu fazer algo que identifique quantos usuários tem on-line na presente página!E quantos tem no sistema!Para usar assim:Tenho a área administrativa, e quando eu entrar na página produtos.asp do admin, quero ver no topo, se tem algum usuário on-line na pagina produtos.asp, e outro mostrando quantos usuarios tem on-line nas demais páginas do sistema administrativo?É possivel?

Compartilhar este post


Link para o post
Compartilhar em outros sites

sim carausando qualquer forma de armazenamento de informações globaisapplication, BD, XML, etc

Compartilhar este post


Link para o post
Compartilhar em outros sites

sem é melhor...DB é mais confiavel

Compartilhar este post


Link para o post
Compartilhar em outros sites

ASP [/tr][tr]<%

IPVisitante = Request.ServerVariables("REMOTE_ADDR")

Email = Session("Email")

Hora = Time()

 

If Request.ServerVariables("QUERY_STRING") <> "" Then

EnderAtual = "?" & Request.ServerVariables("QUERY_STRING")

End If

 

EnderAtual = "http://www.upbalada.com" & Request.ServerVariables("URL") & EnderAtual

 

SQLDel = "DELETE FROM online WHERE Hora < '"&DateAdd("n", -1, Time())&"'"

cnUPBalada.Execute(SQLDel)

 

SQLCheck = "SELECT * FROM online WHERE IPVisitante = '"&IPVisitante&"'"

Set RsCheck = cnUPBalada.Execute(SQLCheck)

 

If RsCheck.EOF Then

SQLNovo = "INSERT INTO online(IPVisitante, Hora, Email, Endereco)Values('"&IPVisitante&"', '"&Hora&"', '"&Email&"', '"&EnderAtual&"')"

cnUPBalada.Execute(SQLNovo)

Else

SQLAtivo = "UPDATE online SET Hora = '"&Hora&"', Endereco = '"&EnderAtual&"' WHERE IPVisitante = '"&IPVisitante&"'"

cnUPBalada.Execute(SQLAtivo)

End If

 

SQLCount = "SELECT COUNT(*) AS Total FROM online"

Set RsC1 = cnUPBalada.Execute(SQLCount)

 

SQLCount2 = "SELECT COUNT(*) AS Total FROM online WHERE Email <> ''"

Set RsC2 = cnUPBalada.Execute(SQLCount2)

 

TotalOnLine = RsC1("Total")

Logados = RsC2("Total")

%>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

por uma garrafa de absinto ainda faõ aparecer os nomes de quem ta on... tipo aqui no forum....rsja desenvolvi isso :P

Compartilhar este post


Link para o post
Compartilhar em outros sites

10 pila.ahahahahazueiramas se quiser.hahahaha

Óia, vou passar uns freela pro C, o preço ta bom! hahahahhahavaleu

por uma garrafa de absinto ainda faõ aparecer os nomes de quem ta on... tipo aqui no forum....rs

Opa opa, aqui ficou mais barato! Serve um velho barreiro? hihihih

Compartilhar este post


Link para o post
Compartilhar em outros sites

Oi

 

Eu peguei esse codigo em um Fórum uma vez:

ASP [/tr][tr]<%

Public Sub ContaVisitas()

url_conexao = Server.MapPath("banco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

nIP = Request.ServerVariables("REMOTE_ADDR")

 

Conexao.Execute("INSERT INTO tbl_online (Hora, IP) VALUES ('" & Time() & "','" & nIP & "')")

 

Set rsApagaAntigas = Conexao.Execute("SELECT * FROM tbl_online WHERE hora < '" & DateAdd("n", -5, Time()) & "'")

If rsApagaAntigas.EOF <> True Then

Do Until rsApagaAntigas.EOF

Conexao.Execute("DELETE * FROM tbl_online WHERE ID=" & rsApagaAntigas("ID"))

rsApagaAntigas.Movenext

Loop

End If

rsApagaAntigas.Close

Set rsApagaAntigas = Nothing

 

Set rsLista = Server.CreateObject("ADODB.Recordset")

rsLista.Open "SELECT DISTINCT ip FROM tbl_online",Conexao, 3, 3

Response.Write rsLista.RecordCount

rsLista.Close

Set rsLista = Nothing

 

Conexao.Close

Set Conexao = Nothing

End Sub

 

'para mostrar só chamar a função

call contavisitas%>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.