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"> <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