Depois Do Cadastro
#1
Posted 18/06/2005, 10:50
Estou com uma duvida nova (hehe).
Como eu faço para aparecer a msg pro visitante se logar qnd acessar uma determinada pagina ? A principio só kero obrigar a pessoa se logar na parte de fotos. Como eu faço isso ?
#2
Posted 18/06/2005, 10:59
Coloque isso na pagina de fotos, logo no inicio.
<% If Session("Login") <> True Then Response.Redirect "Logar.asp" End if %>
T+
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#3
Posted 18/06/2005, 11:24
Implementando..
<% If Session("Login") <> True Then %> <script language="javascript"> alert("Para acessar esta página, você deve estar logado"); location.href = "Logar.asp"; </script> <% End if %>
Abs.
#4
Posted 18/06/2005, 13:22
------
codigo asp para se logar
------
<html>
<head>
.
.
.
Pelo pouco q entendo de java script, esse codigo vai aparecer um aviso com um botao ok e dps q clicar em ok vai direcionar para pagina de login, eh isso?
Se a pessoa ja estiver logada nao vai aparecer essa msg nao neh ?
#5
Posted 18/06/2005, 13:29
T+
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#6
Posted 18/06/2005, 14:10
vou aplicar esse codigo, obrigado.
Sem kerer abusar mas ja abusando keria pedir mais uma coisa.
Eu tenho o cadastro com nome e email da pessoa. Gostaria q dps q ela logasse, aparecesse algo assim: Bem vindo nomedapessoa, eh mto dificil ?
#7
Posted 18/06/2005, 14:32
Response.Write "Seja Bem Vindo"&Session("Nome")
T+
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#8
Posted 18/06/2005, 15:59
testei o codigo e deu certo, mas esta com erro. Coloquei o bloqueio na pagina fotos.htm e ele me redireciona para a pagina de login. Eu configurei para qnd fizer o login voltar para a pag de fotos. Mas qnd ele volta para fotos.htm e pede pra eu fazer o login novamente. Abaixo estao os codigos da fotos.htm e logar.asp.
Espero q me ajude !
fotos.htm
<%
If Session("Login") <> True Then
%>
<script language="javascript">
alert("Para acessar esta página, você deve estar logado");
location.href = "login.htm";
</script>
<%
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
pagina onde o action do form de login esta direcionada: logar.asp
<%
' vamos fazer o request do nosso login e senha que foi digitado no formulário
login = request.Form("login")
' agora vamos usar o replace para evitar que engraçadinhos tenter furar nosso sistema de login
login = replace(login,"'","''")
login = replace(login,"#","''")
login = replace(login,"$","''")
login = replace(login,"%","''")
login = replace(login,"¨","''")
login = replace(login,"&","''")
login = replace(login,"'or'1'='1'","''")
login = replace(login,"--","''")
login = replace(login,"insert","''")
login = replace(login,"drop","''")
login = replace(login,"delet","''")
login = replace(login,"xp_","''")
login = replace(login,"select","''")
login = replace(login,"*","''")
' feito isso vamos mudar o nome das variaveis para evitar outra tentativa de furos
Session("lgn") = login
'aqui abrimos a conexão com um banco acess onde estão armazenadas as senhas
set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("cada.mdb")
conexao.open constr
set rs = conexao.execute("SELECT * FROM cadast WHERE email='"&Session("lgn")&"' ")
if rs.eof then
response.Redirect("permissao.htm") 'se o cara errar a senha ele vai ser redirecionado para essa pagina
else
'agora criamos os cookies ou as sessions de acordo com nossas necessidades
Session("login") = "logado"
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"
response.redirect "http://www.portaldam...m.br/fotos.htm"
end if
%>
#9
Posted 18/06/2005, 16:10
T+
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#10
Posted 18/06/2005, 21:13
eu renomeei a pagina fotos e funcionou, mas apareceu mais um erro.
Eu coloquei na pagina inicial a opcao para a pessoa se logar, o form funciona legal e até aparece a pagina q coloquei caso o login esteja certo. Mas soh q, a pessoa se logou atraves desse form e qnd acessa a pagina restrita, pede para se logar novamente. Como eu posso fazer para que a pessoa se logue apenas uma vez enqto esta visitando o site ?
Espero q me ajude mais uma vez.
Desde ja agradeco.
#11
Posted 18/06/2005, 21:47
if rs.eof then
response.Redirect("permissao.htm") 'se o cara errar a senha ele vai ser redirecionado para essa pagina
else
'agora criamos os cookies ou as sessions de acordo com nossas necessidades
Session("login") = True
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"
response.redirect "http://www.portaldam...m.br/fotos.htm"
end if
t+
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#12
Posted 18/06/2005, 23:40
eu substituindo esse logado por true e dps na continuacao do codigo q tem logado, nao vai dar erro nao ?
Session("login") = True
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"
Obrigado mais uma vez.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)