1 reply to this topic

[ecbert]

Você pode fazer isso criando um banco de usuários com a definição do login, senha e acesso e fazendo a autenticação deste login e senha. Abra um recordset que receberá um select desse banco e armazene os dados digitados em sessions que serão utilizadas depois...

Arquivo para autenticação:

[SIZE=1]<% 
'Conexão com o banco=============
Dim StrCon	'String de conexão
Dim Conexao    'Objeto de conexão
 
Set Conexao = CreateObject("ADODB.CONNECTION")
Strcon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &    server.MapPath("banco/users")

'Autenticação do usuário============ 
Dim rs                    'recordset para receber o resultado do select

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from Usuarios Where Usuario='" & request.form("txtusuario") & "'" _
	& " And Senha='" & request.form("txtsenha") & "'", Conexao,3,3

if not rs.eof then   'encontrou o registro procurado
	session("logado")= true
                session("acesso")=rs("acesso")
	response.redirect("talpagina.asp")
else
	response.redirect("restrito.asp")
end if
%> [/SIZE]

e a rotina abaixo vc coloca no início da página que quer restringir, fazendo com que o usuário se logue no sistema pois caso não esteja (session("logado")=false) ele redireciona para uma determinada página e ao mesmo tempo se o acesso for diferente de, por exemplo, acesso 1 ele também é redirecionado para tal página.
Isso deve ser colocado no início de todas as páginas que quer restringir...

[SIZE=1]<% 
if not session("logado")=true then
if not session("acesso")=1 then
       response.redirect "restrito.asp"
end if
end if
%>[/SIZE]

Acho que é isso... Existem outras maneiras de se fazer, caso não seja essa sua necessidade poste novamente e o pessoal ajuda, ok?

Boa sorte.