como criar um sistema de login

[cillani 0]

salve salve amgosgostaria de saber como faço para criar uma sistema de login com banco de dados multi usuario para um site ja tentei fazer usando um tutorial do imaster mas nao funcionou vcs poderiam me ajudarobrigao :natalmad:

[Cidre 0]

Isso não é muito complicado, poste aqui as dificuldades que você está tendo que nós lhe ajudamos!

[cillani 0]

:natalw00t: o sistemas de login que eu peguei no tutorial.. é assim sao 3 paginas basicas.. default.htm, login.asp, e adm.asp.

a default.htm é onde contem o form de login e senha, login.asp faz captura das informações da default.htm e abre a conexao com o banco de dados.. a adm é como se fosse um teste onde temos varios links que ficam ativos ou nao dependendo do nivel.. pois bem quando acesso atraves do iis a default.htm para fazer o login ele nao da mensagem alguma.. mas quando tento acessa a adm.asp ela reconhece que nao esta logado.. e as outra tb mas a login da um probleminha.,.. vou postar o codigo.. :natalw00t:

 

Esse é o login.asp

<%

'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("C:\Inetpub\wwwroot\Estudo\cadastro.mdb")

Conn.open

'vamos capturar o login e a senha digitada no formulario

login2= Request.Form("txt_login")

senha2= Request.Form("txt_senha")

'agora verificamos se o usuario e a senha estao corretos

SQL = "select * from usuarios where login = "&login2&" and senha= "&senha2&""

Set RS = Conn.Execute(SQL)

'caso nao esteja correto, indicamos o erro

if RS EOF Then

Response.Write("usuario ou senha invalidos")

Response.End()

End if

'se chegou ate aqui é porque o login e a senha estao corretos.

'vamos entao verificar o nivel de acesso do usuario.

session("nivel_acesso")= RS("nivel") 'colocando numa session pois iremos utiliza-las e outras paginas

Response.Redirect("adm.asp")'pagina restrita

%>

 

 

 

Esse é o default.html

 

<table width="20%" action="login.asp" border="1" align="center" cellpadding="5" cellspacing="0" bgcolor="#cccccc" class="categoria">

<tr>

<td><strong>Login</strong></td>

<td><div align="left">

<input name="txt_login" type="text" class="form" id="txt_login" size="10" maxlength="8">

</div>

</td>

</tr>

<tr>

<td><strong>Senha:</strong></td>

<td><div align="left">

<input name="txt_senha" type="text" class="form" id="txt_senha" size="10" maxlength="8">

</div></td>

</tr>

<tr>

<td> </td>

<td align="right"> <div align="left">

<input name="Enviar" type="submit" class="Botao" id="Enviar" value="login.asp" >

    </div></td>

</tr>

</table>

 

e o adm.asp

 

<%

'a primeira coisa a ser feita é verificar se o usuario esta logado

if session("nivel_acesso")=""Then

Response.Write("Você nao esta Logado!!!")

Response.End()

End if

 

'vamos entao verificar o nivel de acesso do usuario e inserirmos o coteudo correspondente

'aqui cada um insere o que desejar.

if session("nivel_acesso")=3 then 'gerente

%>

<a href="consulta.asp">Consulta usuario <a/>

<a href="inserir.asp">Inserir Usuario </a>

<a href="Alterar.asp">Alterar usuario </a>

<a href="Inserir.asp">Deletar usuarios</a>

<%

Elseif session("nivel_acesso")=2 then 'supervisores

Else 'estagiarios

%>

<a href="consulta.asp">Consultar usuario</a>

<%

End if

%>

 

 

se vcs poderem indentificar os erros eu agradeço pois sou novato em asp e tenho um pouco de dificuldade

 

brigado

[ultra 0]

Algumas observações:

 

1- a default.html não tem uma tag <form> , portanto não vai direcionar para o login.asp (se você esqueceu de postar aqui, ignore)

 

2- a login.asp não tem alguma mensagem para caso não encontrar alguém com o login e senha cadastrados no banco, portanto vai aparecer uma página em branco nesse caso

 

3- troque a linha if RS EOF Then por if RS.EOF Then

 

experimenta corrigir esses 3 erros, e posta novamente aqui

 

[]'s

[cillani 0]

Bem fiz as auterações mas ele continua dando problema na linha 12 do login.asp e me diz uma coisa

essa linda nao mostra caso o usuario nao estiver no banco

 

'caso nao esteja correto, indicamos o erro

if RS EOF.Then

Response.Write("usuario ou senha invalidos")

Response.End()

End if

 

 

a linha do erro é essa

SQL = "SELECT login.nivel_acesso, login.Login, login.Senha FROM login; = "&login2&" and senha= "&senha2&""

Set RS = Conn.Execute(SQL)

[Magnoweb 0]

dá uma acertada nisso...

'caso nao esteja correto, indicamos o erroif RS EOF.Then Response.Write("usuario ou senha invalidos")Response.End()End if

O certo é

if RS.EOF Then Response.Write("usuario ou senha invalidos")Response.End()End if

Outro

SQL = "SELECT login.nivel_acesso, login.Login, login.Senha FROM login; = "&login2&" and senha= "&senha2&""Set RS = Conn.Execute(SQL)

Verifique a instrução SQL

SQL = "SELECT * FROM tabela WHERE campo1 = '"&valor1&"' AND campo2= '"&valor2&"' "

Faça um teste ai, qualquer coisa posta de novo.t+Magnoweb© :natalbiggrin: