Agora basta acompanhar o passo-a-passo:
(login.html):
<html><body>
<form action="login.asp">
<h3>Login:</h3><input type="text" name="login"><br>
<h3>Senha:</h3><input type="password" name="senha"><br>
<input type="submit" value="Entrar">
</form></body></html>
(login.asp):
<%@Language=VBScript%>
<%response.buffer="true"%>
<%
'Recupero o texto que foi escrito no formulário
vlogin=request.form("login")
vsenha=request.form("senha")
'Façoa conexão com o banco de dados
db=Server.MapPath("pasta/qualquer/bancodedados.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
%>
Obs: Todas as páginas protegidas deverão conter o seguinte código(antes de qualquer outro):
<%
if session("logado")="" then
response.redirect"login.html"
end if
%>
Obs2:Para fazer com que uma sessão do visitante termine basta criar um link em qualquer página e direcioná-lo para uma página que contenha o seguinte código:
<%
session.abandon
response.write"Você saiu da área restrita com sucesso!"
%>
Edição feita por: Rafael 001, 19/03/2003, 00:12.