Sistema de Login e Senha em ASP

[fernandosena]

Vamos criar aqui um Sistema de Login e Senha em ASP, super 10, bom...

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"
%>