Sistema de Login e Senha em ASP


A seguir estaremos desenvolvendo um sistema de login e senha show de bola, preste bastante atenção nas dicas adiante.

Para começar > Criamos 3 páginas e um banco de dados, pode ser em access.

“form.asp” | “logar.asp” | “logout.asp” e “banco.mdb”

“banco.mdb” > Banco de dados

Crie uma tabela chamada de “usuarios” com os campos “nome”, “login” e “senha”

“form.asp” > formulário de login

Ela que chamará “logar.asp”

Campo Login > com o nome “login” – sem aspas
Campo Senha > com o nome “senha” – também sem aspas

lembre-se, o modo de enviar os dados aqui estão em GET OK!!!!

e a página “logar.asp” com o seguinte código

<%

' CONEXÃO ACCESS

Set conn=Server.CreateObject("ADODB.Connection")
drv= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("banco.mdb") & ";"
conn.Open drv

login=Request.QueryString("login") 'aqui recuperamos o login digitado, através da QueryString
senha=Request.QueryString("senha") 'aqui recuperamos a senha digitado, através da QueryString

'SQL QUE SELECIONA OS DADOS DO USUARIO CASO O LIGN E A SENHA ETEJAM CORRETOS
sql = "SELECT * FROM usuarios WHERE login = '" & login &"' AND senha = '" & senha & "' "

'SETAMOS A VARIAVEL rsLogar e ABRIMOS O COMANDO SQL
Set rsLogar = Server.CreateObject("ADODB.Recordset")
rsLogar.Open sql, conn

'A CONDIÇÃOˆ -  SE CHEGOU AO FIM "eof" DO BANCO DE DADOS, SIGNIFICA QUE
'NAO EXISTE NADA COM ESSE LOGIN E COM ESSA SENHA
'SENAO "Else" ELE ABRE A SESSAO 'Entrada' que é igual a "sim" E JUNTAMENTE PEGA OS DADOS DO USUARIO PARA USAR NAS PAGINAS SEGUINTES...

'Segue abaixo 

if (rsLogar.eof) Then

Response.Write "ERRO - Login ou Senha incorretos"

Else

Session("entrada") = "sim"
Session("nome") = rsLogar("nome")

Response.redirect("pagina_restrita.asp")

End If

%>

Feito isso, para impedir que o usário entre na página restrita caso nao esteja logado,
inclua esse codigo nela

<%
'AQUI CASO NAO ESTEJA LOGADO VAI PARA A PAGINA DE LOGIN
if Session("entrada") <> "sim"  then
response.Redirect("login.asp")
end if
%>

e para finalizar a sessão, crie um link para a página “logout.asp” com o código

<%
Session.Abandon()
Respopnse.Write "Sessão Finalizada"
%>

Bom gente, esse script é muito bom e eu testei aqui e funcionou corretamente, sem problemas.
Qualquer dúvida, podem postar suas dúvidas.

Um forte abraço, Alex Araújo.

Publicado em 17 de dezembro de 2008, em ASP. Adicione o link aos favoritos. Deixe um comentário.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: