<%@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("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!" %>