3 replies to this topic

[Matrix2003]

olá amigos precisa da ajuda de vocês mais uma vez tenho um codigo de usuarios online cuja o cara se loga e o nome do cara fica logado mais para o cara sair do sistema ele precisa ir em sair do sistema ai vai par uma onlineoff.asp que faz com que o cara deixe de existir queria ver se a possibilidade de o cara não precisar clicar em sair sei lá não deria jeito de a cada 10 minutos o sistema fazer um uptade sozinho. olhem o codigo.

online.asp pagiana que fiz para mostrar os users online.

<%

Set vC = Server.CreateObject("ADODB.Connection")
vC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") &";Persist Security Info=False"

vConta2="SELECT COUNT(ehmembro) AS monline FROM users WHERE ehmembro=1"
Set vConta=vC.Execute(vConta2)

vMembros2="SELECT * FROM users WHERE ehmembro=1"
Set vMembros=vC.Execute(vMembros2)

%></font><% IF vMembros.EOF THEN
Response.Write "<tr><td width='100%'><p align=center font face=Verdana font color=#FFFFFF size=1>Nenhum membro online.</a></font></td></tr>"
ELSE
while not vMembros.EOF %><tr><td width="100%"><font face=Verdana size=1><p><font color="#FFFFFF"><img border="0" src="images/arrow1.gif">&nbsp;
                  <a href="mailto:<%=vMembros("email")%>"><font color="#FFFFFF"><%=vMembros("login")%></a></font></font></td></tr>
<%

vMembros.MoveNext
Wend

END IF

%><tr><td width="100%"><font color="#FFFFFF" face="Verdana" size="1">Total: <%=vConta("monline")%></f

valida login.asp codigo para validar o login e mardar o users logao para o db

<!--#include file="conectar.asp"-->
<% AbreConexao
	login = Replace(request.form("login"), "'", "/")
   senha = Replace(request.form("senha"), "'", "/")
	Sql = "SELECT * FROM users WHERE login = '"&login&"' "
	Sql = Sql & "AND senha='"&senha&"' "
	Set Rs = Conexao.Execute(Sql)
	if not rs.eof then
	Session("yep") = True
	Session("id") = RS("id")
	Session("login") = RS("login")
	Session.Timeout = 360
	
Sql = "UPDATE users SET UltimaVisita=NOW WHERE login = '" & login & "'"
Sql = "UPDATE users SET vezes=vezes+1 WHERE login = '" & login & "'"
Sql = "UPDATE users SET ehmembro=1 WHERE login = '" & login & "'"

Response.Cookies("login") = rs("login")
Set Rs = Conexao.Execute(Sql)

if stayloggedin = "yes" then

rs.close
set rs = nothing
conn.close
set conn = nothing
end if

	Response.Redirect "menu.asp"
	else
	Response.Redirect "erro.asp"
	end if
FechaConexao %>

onlineoff.asp pagina que a pagina sair vai para o cara sair do sistema

<%

Set vC = Server.CreateObject("ADODB.Connection")
vC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") &";Persist Security Info=False"

username = request.cookies("username")

IF NOT username = "" THEN
	vOn = "UPDATE users SET ehmembro='0' WHERE username = '" & username & "'"
	vC.Execute(vOn)
ELSE
	nada = "nada"
END IF
%>

espero que alguém possa me ajudar

[lazerediversao]

Cara a única forma de se fazer isso é utilizando o Global.asa mas para isso vc terá que reformular todo o seu código.

Só não posso te ajudar mais pois não conheço todas as propriedades do Global.asa mas dê uma procurada que vc vai encontrar mais informações.

t+ !!!

Desculpe ai !!!

Eu entendi errado esqueça o que eu disse acima !!!

Mas com o Global.asa também dá mas tem como fazer de outras formas sim !!!

Edição feita por: lazerediversao, 26/05/2005, 20:14.

[Felipe Pena]

Você pode inserir um valor de tempo assim para o usuário:

timeReg = time() + 300

600 = 60segs * 10 == 10 minutos.

Daí você registra na coluna time.

Daí a cada página que o usuário visitar, você dá um UPDATE nessa data, sempre adicionando mais 600 segs.

Daí deixa na página o código abaixo também para deletar os registros que vencerem, ou seja, que ficaram 10 ou mais minutos sem haver modificação.

Set vC = Server.CreateObject("ADODB.Connection")
vC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") &";Persist Security Info=False"

timeAtual = time()

sqlDel = "DELETE FROM users WHERE time < timeAtual"
vC.Execute(sqlDel)

[edmais]

ou então apenas uma meta tag com o refresh de 10 minutos