Sistema de Loginho e Senha com Session

Esta pagina terá o formulário
que manda as informações para a pagina
acesso.asp !

Entra.htm

<html↳HTML45 conteúdosA importância do HTML e CSS para quem trabalha com UI Design e Design SystemProduto & UX · dez 2024Como hostear seu site HTML gratuitamente com GitHub PagesDev (Back & Front) · jun 2025SQL Server – Como criar um versionamento de código das suas Stored Procedures em HTML e com comentários da alteraçãoData · nov 2020Ver tudo em Dev (Back & Front) →>
<head>
<title>Entrar</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form method="get" action="acesso.asp">
<table width="22%" border="0"
cellspacing="0" cellpadding="0"
align="center">
<tr>
<td width="44%">
<div align="right"><font size="2"
face="Arial" color="#000000">login</font><font
size="2" face="Arial" color="#f08810">:</font></div>
</td>
<td width="56%">
<div align="left">
<input type="text" name="login"
size="11" maxlength="11">
</div>
</td>
</tr>
<tr>
<td width="44%" height="35">

<div align="right"><font size="2"
face="Arial" color="#000000">senha</font><font
size="2" face="Arial" color="#f08810">:</font></div>
</td>
<td width="56%" height="35">

<div align="left">
<input type="password" name="senha"
size="11" maxlength="15">
</div>
</td>
</tr>
<tr>
<td width="44%">&nbsp; </td>
<td width="56%">
<div align="center"><font face="Verdana,
Arial, Helvetica, sans-serif">
<input type="submit" name="Submit"
value="entrar">
</font> </div>
</td>
</tr>
</table>
<p></p>
</form>
</body>
</html>

Acesso.asp

<%@ Language=VBScript
%>
<% ‘Conexão com o banco de dados↳Banco de dados134 conteúdosSQL ou NoSQL: eis a questão!!Data · mar 2020Banco de dados: como organizar e dar segurança para milhões de dados de loteriasData · mai 20215 serviços gratuitos na cloud para bancos de dados PostgresData · fev 2025Ver tudo em Data →
conexao="DBQ=c:seu_diretoriosenha.mdb;Driver={Microsoft
Access Driver (*.mdb)}"
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open conexao
login=(Request.QueryString("login"))
senha=(Request.QueryString("senha"))
set acesso=DB.Execute("SELECT * FROM acesso WHERE
login=’"&login&"’ AND senha=’"&senha&"’
")

‘ Caso os dados
não estiverem corretos o usuário é
enviado para a entrar.htm
if acesso.eof then
Response.Redirect"entrar.htm"

else
Session("login")=login
Session("usuario")= acesso("usuario")
Session("Email")= acesso("Email")

Session("login")= acesso("login")
‘vc pode colocar quais sessions vc quiser aqui que o
restante do site vai ler.
Response.Redirect"identificado.asp"
end if
DB.close
%>

Caso a o loginho
e senha do usuário estiver errado a pagina acesso.asp
encaminha ele para pagina de entrar.htm,
caso contrario ele envia a pagina para indentificado.asp

Identificado.asp

<html>
<head>
<title>Identificado</title>
</head>
<body topmargin="0" leftmargin="0"
background="images/fundo1.gif">
<div align="center">
<table border="0" cellpadding="0"
cellspacing="0" width="639" background="images/topo.jpg"
height="63">
<tr>
<td width="641" valign="bottom">
<div align="right"></div>
</td>
</tr>
</table>
</div>

<div align="center">
<table border="0" cellpadding="0"
cellspacing="0" width="640" height="70">
<tr>

<td width="471" bgcolor="#FFFFFF"
rowspan="2" valign="top" height="379">

<div align="center">
<p>&nbsp;</p>
<p><font size="2" face="Arial"
color="#f08810">Olá,
<% response.write session("Usuario") %>

<% ‘
aqui ele vai ler a session, todas as session que foi
armazenadas
‘ na pagina acesso.asp, o restante do site vai ler
‘exemplo você poderia colocar isso
‘ response.write session("Email") para mostrar
o e-mail da pessoa
‘ ou
‘ response.write session("login") para mostrar
o loginho da pessoa
%>

<br>
bem-vindo ao<br>
Seu Site</font></p>
</div>
<p align="center"> <a href="logout.asp">Sair
do Sistema</a>
</td>
</tr>
<tr>
</tr>
<tr>
</tr>
</table>
</div>

<div align="center">
<table border="0" cellpadding="0"
cellspacing="0" width="640" bgcolor="#FFFFFF">
<tr>
<td valign="bottom">
<p align="right">&nbsp;
</td>
</tr>
</table>
</div>
</body>
</html>

Se o usuário quiser sair do sistema
ele pode usar o logout.asp

Existe cinco maneiro de terminar uma
sessão são elas

1º O servidor abandona uma session,
após um intervalo definido sem nenhuma atividade,
você pode definir a duração de intervalo
com a propriedade Session.timeout

2º Você pode abandonar uma
session no código, usando o método session.abandon

3º Você pode desligar o IIS,
Isso, é claro, interrompe o aplicativo e termina
todas as sessões.

4º Você pode modificar o arquivo
global.asa, se você modificar o arquivo e salvar
as alterações o próximo pedido
de um navegador para seu aplicativo forçara o
IIS a interromper o aplicativo, finalizando todas as
sessões.

5º O Navegador pode recusar o cookie
SessionID. Note que esse é o único controle
que o navegador tem sobre a sessão. Ele não
pode evitar que o servidor inicie uma nova sessão:
ele só pode se recusar a permitir que a sessão
continue por mais tempo do que um único pedido.
Você deve saber que o servidor inicia uma sessão
mesmo para navegadores que recusam o cookie. Lembre-se
de que o servidor não tem meios de saber antecipadamente
quais navegadores recusarão um cookie e quais
não recusarão.

<%
session.abandon("login")=""
response.redirect "entrar.htm"
%>

Travar.asp

<%
‘ Verifica o loginho
if session("login")="" then
response.redirect"restrito.htm"

End If %>

Pagina_segura.asp

Você coloca essa código
antes do <html>

<%@ Language=VBScript
%>
<!– #include file="travar.asp" –>

Até a próxima