Categoria Dicas ASP - Sistema de Login e Senha em ASP
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”
%>