<%@Language=VBScript%>
<%response.buffer="true"%>
<%
'Recupero o texto que foi escrito no formulário
vlogin=request.form("login")
vsenha=request.form("senha")
'Faça conexão com o banco de dados
db=Server.MapPath("bd.mdb")
Set con = Server.CreateObject( "adodb.Connection" )
con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"
set rs=con.execute("select * from tabela_do_banco where login='"&vlogin&"' and senha='"&vsenha&"'")
'Se não for encontrado nenhum registro aparecerá uma mensagem de erro.
'Caso contrário o visitanmte receberá um nome de sessão para poder navegar nas demais paginas protegidas e será redirecionado para a página protegida
if rs.EOF then
response.write"Senha ou Login inválido! Volte e tente novamente."
else
session("logado")="sim"
response.redirect"pagina_protegida.asp"
end if
%>
Pergunta
BRuckey
Simple sistema de login
ligin.html
login.aspLink para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.