Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor Lucas

[Resolvido] "Session" Autenticar usuario.

Por , em ASP Clássico

Recommended Posts

Igor Lucas    0

Igor Lucas
Postado

Olá galera,

 

Por favor eu preciso fazer funcionar esse script para que minha pagina restrita aos usuarios funcione efetivamente.

 

Abaixo estão os codigos que eu utilizei.

 

 

NO FLASH

username_field.text = "";
password_field.text = "";
stop();
function doValidation() {
	if (_url.substr(0, 4) == "file") {
		adminURL = "http://www.maisbartenders.com.br/parceiros/validacao.asp";
	} else {
		adminURL = "validacao.asp";
	}
	adminLogin = new LoadVars();
	adminLogin.nome = username_field.text;
	adminLogin.senha = password_field.text;
	loginData = new LoadVars();
	loginData.onLoad = loginDone;
	loginMessage.text = "Checando  usuário e senha";
	adminLogin.sendAndLoad(adminURL,loginData);
}
function loginDone(success) {
	if (success) {
		if (this.varAccess == "ok") {
			loginMessage.text = "Acesso Permitido";
			//aqui você escolhe o arquivo que quer 
			//que abra após a validação
			//no meu caso eu coloquei um MC instanciado
			//como teste e pedi para um swf externo abrir ali
			getURL("userindex.asp");
		} else {
			loginMessage.text = "Acesso Negado - Nome ou senha inválidos";
		}
	} else {
		loginMessage.text = "Ocorreu um problema";
	}
}
submit_btn.onRelease = doValidation;
reset_btn.onRelease = function() {
	UserName_field.text = "";
	password_field.text = "";
};

NO VALIDAÇÃO.ASP

 

<%
	Dim conn
	Dim rs
	Dim varGranted
	set conn = server.createobject("adodb.connection")
	set rs = server.createobject("adodb.recordset")

	conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("login.mdb")

	rs.open "select * from login where nome='" & request("nome") & _
			"' and senha='" & request("senha") & "'",conn

	if rs.eof=false then
		varGranted="ok"
		Session("logado") = false
	else
		varGranted="no"
	end if

	conn.close

	set rs = nothing
	set conn = nothing
	Response.write ("varAccess="&varGranted)
	
%>

E NO USERRINDEX.ASP que é a pagina restrita. Mas que não sei pq não está restrita, mesmo sem login estou conseguindo acessar através do caminho direto no ie.

 

<%
If NOT Session("logado") = false Then
Response.redirect("http://www.maisbartenders.com.br/parceiros")
Response.End
End If
%>
<html>
<body>
Você conseguiu acessar, você está logado. Clique <a href="http://www.maisbartenders.com.br/parceiros">aqui</a> para voltar para a pagina de login.
</body>
</html>

Agradeço a atenção de todos galera!

 

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o que nao funciona?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor Lucas    0

Igor Lucas
Postado

A autenticação Mario,

 

Se você digitar o caminho no ie, ele acessa a pagina que deveria ser restrita. Ao invés de redirecionar para o login novamente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

em momento algum voce definiu a sesion com true?

 

Precisa fazer isso

 

E isso aqui esta muito POG

 

If NOT Session("logado") = false Then

A mesma coisa de forma menos suja seria

 

If Session("logado") Then

Ou seja o seu codigo esta fazendo o contrario aqui pois se tiver logago redireciona

 

Tem qeu corrigir alguns detalhes

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

poe o igual a true

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor Lucas    0

Igor Lucas
Postado

Mas eu não sei pq, nesse script, a variavel que manda para o "ok" flash, está =false. E deveria ser nessa mesma variavel que eu coloco a autenticação? Não é isso.. Vo tentar essa agora.

Compartilhar este post

Link para o post
Compartilhar em outros sites

gubergamo    0

gubergamo
Postado

if rs.eof=false then

varGranted="ok"

Session("logado") = false

else

varGranted="no"

Session("logado") = true

end if

 

 

Não sou perito em encontrar erros mas eu acho que essa condição está meio errada.

porque se ele chegou no fim, não encontrou nada e não vai logar.

 

na pagina USERINDEX.ASP

 

você teria que colocar

If Session("logado") = false

Response.Redirect ("url")

End If

 

ou

 

If Sessin("logado") <> true

Response.Redirect ("url")

End If

 

da na mesma..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor Lucas    0

Igor Lucas
Postado

Aeeeeee

 

Não acredito nisso!!! Era tão obvio que me mordeu!!! Mas sem a ajuda do Mario, acho que eu iria ficar aqui mais alguns dias!!!! huhuhuhuhuh

 

Funcionou direitinho Mario! Valeu mesmo pela ajuda!

 

Era isso, Agora vo colocar os codigos do jeito que funcionou se alguem precisar!

 

VALIDACAO.ASP

 

<%
	Dim conn
	Dim rs
	Dim varGranted
	set conn = server.createobject("adodb.connection")
	set rs = server.createobject("adodb.recordset")

	conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("login.mdb")

	rs.open "select * from login where nome='" & request("nome") & _
			"' and senha='" & request("senha") & "'",conn

	if rs.eof=false then
		varGranted="ok"
		Session("logado")=true
	else
		varGranted="no"
	end if

	conn.close

	set rs = nothing
	set conn = nothing
	Response.write ("varAccess="&varGranted)
	
%>

USERINDEX.ASP (Pagina restrita a usuarios autenticados)

 

<%
If NOT Session("logado") Then
Response.redirect("http://www.maisbartenders.com.br/parceiros")
Response.End
End If
%>
<html>
<body>
Você conseguiu acessar, você está logado. Clique <a href="http://www.maisbartenders.com.br/parceiros">aqui</a> para voltar para a pagina de login.
</body>
</html>

Muito obrigado mesmo a atenção de todos principalmente do Mario, que eu enchi o saco agora a pouco no msn.. rsrsrs

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Traquilo Igor

 

Que bom qeu resolveu

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor Lucas    0

Igor Lucas
Postado

Nuu desde sexta nesse script, ta doido!

 

Agora eu vo ir pro flash que vo ter que criar essa pagina que eu tanto queria.

 

Se trata de uma pagina restrita aos parceiros de nossa empresa. Orçamento on line. Ai eu preciso de uma calculadora variavel tipo de excel. Tipo de 0 até 100 convidados é um calculo, de 100 a 200 outro. sabe... Vo pesquisar agora ve se eu consigo alguma coisa parecida.

 

Abraços galera até mais! brigaduuuuu

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito