Preciso restringir a entrada de vários usuarios

[Web Design Valdeci 0]

Bom Dia pessoal,

 

Utilizo um sisteminha simples de login e senha para acesso restrito, funciona normal, mas ele permite que muitos usuarios entrem com o mesmo login. Gostaria de saber como faço para restringir se o usuário estiver logado ele não deixar entrar. Vou postar o código que utilizo abaixo:

 

Form:

 

<form id="form1" name="form1" method="post" action="logar.asp">
			  <table width="453" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EAF5FF">
				<tr bgcolor="#E8E8E8">
				  <td height="59" colspan="2" background="../assets/img/login-header.gif" bgcolor="#EAF5FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
					<tr>
					  <td> </td>
					  <td class="branca_menor"><strong class="sub_branco12">Área exclusiva de clientes e parceiros </strong></td>
					  <td> </td>
					</tr>
					<tr>
					  <td width="19%"> </td>
					  <td width="68%" class="branca_menor"><strong class="sub_branco12">Palova Amisses & Advogados Associados </strong></td>
					  <td width="13%"> </td>
					</tr>
				  </table></td>
				</tr>
				<tr bgcolor="#E8E8E8">
				  <td height="19" bgcolor="#EAF5FF" class="txt_cinza_11"> </td>
				  <td height="19" bgcolor="#EAF5FF"> </td>
				</tr>
				<tr bgcolor="#E8E8E8">
				  <td width="180" height="19" bgcolor="#EAF5FF" class="txt_cinza_11"><div align="right" class="fonte_preta_11">usuário </div></td>
				  <td width="599" height="19" bgcolor="#EAF5FF"><div align="left">
					  <input name="login" type="text" class="txt" id="login" />
				  </div></td>
				</tr>
				<tr>
				  <td height="19" bgcolor="#EAF5FF" class="txt_cinza_11"><div align="right">senha </div></td>
				  <td height="19" bgcolor="#EAF5FF"><div align="left">
					  <input name="senha" type="password" class="txt" id="senha" />
				  </div></td>
				</tr>
				<tr>
				  <td bgcolor="#EAF5FF" class="txt_cinza_11"> </td>
				  <td bgcolor="#EAF5FF"><div align="left">
					  <input name="Submit" type="submit" class="botao" value="Login" />
				  </div></td>
				</tr>
				<tr>
				  <td colspan="2" bgcolor="#EAF5FF"> </td>
				</tr>
				<tr>
				  <td bgcolor="#EAF5FF"> </td>
				  <td bgcolor="#EAF5FF"><div align="right"><a href="../index.asp" class="link_menu_under">Voltar ao site</a> </div></td>
				</tr>
			  </table>
		  </form>

 

Página Logar.asp

 

<!--#include file="../assets/conexao/conexao.asp" -->
<%
' vamos fazer o request do nosso login e senha que foi digitado no formulário
login = request.Form("login")
senha = request.Form("senha")

' agora vamos usar o replace para evitar que engraçadinhos tenter furar nosso sistema de login
login = replace(login,"'","''")
login = replace(login,"#","''")
login = replace(login,"$","''")
login = replace(login,"%","''")
login = replace(login,"¨","''")
login = replace(login,"&","''")
login = replace(login,"'or'1'='1'","''")
login = replace(login,"--","''")
login = replace(login,"insert","''")
login = replace(login,"drop","''")
login = replace(login,"delet","''")
login = replace(login,"xp_","''")
login = replace(login,"select","''")
login = replace(login,"*","''")

' e agora pra a senha
senha = replace(senha,"'","''")
senha = replace(senha,"#","''")
senha = replace(senha,"$","''")
senha = replace(senha,"%","''")
senha = replace(senha,"¨","''")
senha = replace(senha,"&","''")
senha = replace(senha,"'or'1'='1'","''")
senha = replace(senha,"--","''")
senha = replace(senha,"insert","''")
senha = replace(senha,"drop","''")
senha = replace(senha,"delet","''")
senha = replace(senha,"xp_","''")
senha = replace(senha,"select","''")
senha = replace(senha,"*","''")


' feito isso vamos mudar o nome das variaveis para evitar outra tentativa de furos
Session("lgn") = login
Session("snh") = senha


'aqui abrimos a conexão com um banco acess onde estão armazenadas as senhas
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open ("SELECT * FROM usuarios WHERE usuario='"&Session("lgn")&"' AND senha='"&Session("snh")&"'"), Conexao

if rs.eof then
response.Redirect("errou_senha.asp") 'se o cara errar a senha ele vai ser redirecionado para essa pagina
else

'agora criamos os cookies ou as sessions de acordo com nossas necessidades
Session("login") = "logado"
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"

response.redirect ("menu.asp") ' esse aqui é o endereço da pagina pra onde a pessoa será redirecionada após o login
end if

%>

Aí ele direciona para o menu que tem um bloqueador se não estiver logado:

 

<%
If IsEmpty(Session("login")) Then
Response.redirect("index.asp")
End if
%>

Se alguem puder me ajudar. valeu

[xanburzum 169]

você pode fazer um sistema de login, baseado em banco de daods, quando o user logar, você cria sua sessão tudo direitinho, implementa seu global.asa e dentro do banco uma tabela com um campo tipo true/false, onde se ele estiver logado será igual a true e quando fizer logoff (dae o global.asa) você dá um UPDATE no bd para false.