Bloqueio de Usuários

[acfelipesilva 0]

Meus amigos, estou já a algusn dias pesquisando aqui na net, uma forma de bloquear um usuário quando o mesmo tentar logar-se em outra máquina usando o mesmo usuário e senha... Bom, todo mundo aqui fala muito bem mas na hora de mostrar o script mesmo que funciona nunca tem, sendo assim solicito a ajuda de quem realmente conhece do assunto para me dar uma luz , fornecendo um script que possa atender a esta minha solicitação, pois sei que é a dúvida de muitos outros usuários assim como eu...

Minha página que trata o usuário despois que ele preenche login e senha é essa...

 

<%
'Efetuando a conexão com a base de dados criada
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("../../dados/dakza.mdb")
Conn.open

'Vamos capturar o login e a senha digitada no firmulário
login2 = UCASE(Request.Form("txt_login"))
senha2 = Request.Form("txt_senha")

'Agora verificamos se o usuário e a senha estão corretos
SQL = "select * from tb_usuarios where login_user = '"&login2&"' and senha_user = '"&senha2&"' "
Set RS = Conn.Execute(SQL)

'Caso não esteja correto, indicamos o erro
If RS.EOF Then
  Response.Redirect "mensagem.asp?id=1"
  Response.End
End If

'Vamos então verificar o nível de acesso do usuário.
session("niv") = RS("nivel_user") 'Session pois iremos utiliza-las em outras páginas
session("log") = RS("login_user")

rs.close
conn.close
set rs=nothing
set conn=nothing

Response.Redirect "padrao.asp" 'página restrita

%>

Bom, conforme vocês podem observar eu criei a session("log") onde fica o login do usuário, queira saber como posso bloquear quando um outro usuário tentar logar-se no meu sistema usando o mesmo login e senha???w Favor postem o script, please!

 

Um abraço,

 

Augusto

[xanburzum 169]

você tem k ter um campo no bd, tipo flag, onde a hora k o user fizer login, você atualiza no bd...