USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  login com página protegida
Postada em 31/7/2003 por DTLucchesi            
(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ç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!"
%>


Bom sigam os passos e teste no servidor
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página