login multinivel

OFaro.COM · Outubro 21, 2004

pessoal...to desde ontem tentando faze um login multinivel...

so q como so novo na linguagem to apanhando bastante,,,

fui me baseando num artigo q tinha aqui no imaster..mas msm assim surgiu alguns probleminhas se alguem puder me ajuda...

<%Option Explicit %> <% Dim conexao, rs set conexao=server.createobject("ADODB.Connection")  conexao.connectionString="Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("dados/site.mdb")  conexao.Open %><%Dim Nome, SenhaNome=request.Form("Nome")Senha=request.Form("Senha")Dim sqlSQL = "select * from Usuarios where Ativo='S' and login = '" & Nome & "' and senha = '" & Senha & "' "Set rs=Conexao.Execute (SQL)%><%If rs.EOF then	response.write "Nome de usuario ou senha invalidos"Else  'Grava a variavel de Sessao para autenticar  Session("usuario")=Nome  Session("nivel_acesso")= rs("Nivel")  'Redireciona para a pagina de assinantes  Response.Redirect "assinantesSession.asp"End If%><HTML><HEAD>  <TITLE> Login</TITLE></HEAD><BODY><form method="post"><table>  <tr>    <td>Nome</td>	<td><input name="nome" type="text"></td>  </tr>  <tr>    <td>Senha</td>	<td><input name="senha" type="password"></td>  </tr>  <tr>    <td></td>	<td><input type="submit" value="Confirmar"></td>  </tr></table></form></BODY></HTML>

Queria saber se isso q estou fazendo esta certo se tem coisa a mais q seja inutil , e outra coisa..qndo entro na pagina ja fica aparecendo "Usuario e senha unvalidos " ao invez de aparecer isso so apos eu clicar no botao entrar

na outra pagina eu verico a session e dependedo do numero dela mostra os links...

pessoal desculpe esse monte de duvida e q to apreendendo ainda...

Mário Monteiro · Outubro 21, 2004

bem parece que teria uma page antes pois istoNome=request.Form("Nome")Senha=request.Form("Senha")está pegando dados de uma form, o que você poderia fazer era passar um parametro no submit para testar ou não o login e senha

OFaro.COM · Outubro 21, 2004

nao tem nenhuma pagina antes....sera q preciso fazer uma entao so com o formulario e na outra por os request.???como q eu passo o parametro no submit para testar o login?

Mário Monteiro · Outubro 21, 2004

não precisa fazer uma page só pra isso nãopoe na action do form a propria page assim com um parametro assimaction="arquivo.asp?login=true"e o codigo que testa coloca num ifIF login THENcodigo aquiEND IFaqui embaixo apenas garrega o form caso não seja autenticado ou caso ainda tenha sido testado nadatesta ai se não funcionar poe o codigo denovo

OFaro.COM · Outubro 21, 2004

marioufpa

me perdi td agora nao aparece mais nem o input de nome do usuario aonde to errando..,???

<%Option Explicit %> <% Dim conexao, rs set conexao=server.createobject("ADODB.Connection")  conexao.connectionString="Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("dados/site.mdb")  conexao.Open %><%Dim Nome, SenhaNome=request.Form("Nome")Senha=request.Form("Senha")Dim sqlSQL = "select * from Usuarios where Ativo='S' and login = '" & Nome & "' and senha = '" & Senha & "' "Set rs=Conexao.Execute (SQL)%><%If rs.EOF then	response.write "Nome de usuario ou senha invalidos"Else  'Grava a variavel de Sessao para autenticar  Session("usuario")=Nome  Session("nivel_acesso")= rs("Nivel")  'Redireciona para a pagina de assinantes  Response.Redirect "assinantesSession.asp"End If%><HTML><HEAD>  <TITLE> Login</TITLE></HEAD><BODY><form method="post" action="loginsession.asp?login=true><table>  <tr>    <td>Nome</td>	<td><input name="nome" type="text"></td>  </tr>  <tr>    <td>Senha</td>	<td><input name="senha" type="password"></td>  </tr>  <tr>    <td></td>	<td><input type="submit" value="Confirmar"></td>  </tr></table></form></BODY></HTML>

desculpa se nao entendi direito o q você disse no ultimo post...

a oiutra pagina q chama e essa

<%Option Explicit %><%If Session("usuario")=Empty then  Response.Redirect "loginSession.asp"End if%><HTML><HEAD>  <TITLE> Pagina para Assinantes</TITLE>  <LINK href="estilo.css" type="text/css" rel="stylesheet"></HEAD><BODY><H1>Página exclusiva para Assinantes usando Session</H1>Você está em uma área exclusiva para assinantes do site.<%If session("nivel_acesso") = 3 Then 'gerentes%>  <a href="consultar.asp">Consultar usuário   <a href="inserir.asp">Inserir usuário</a>  <a href="alterar.asp">Alterar usuário< /a>  <a href="inserir.asp">Deletar usuário</a>  <a href="relatorios.asp">Verificar relatórios</a> <%Elseif session("nivel_acesso") = 2 Then 'supervisores%>  <a href="consultar.asp">Consultar usuário</a>  <a href="alterar.asp">Alterar usuário</a><%Else 'estagiários%>  <a href="consultar.asp">Consultar usuário</a> <%End If%><P><A HREF="default.asp">Voltar</A><BR></BODY></HTML>

Mário Monteiro · Outubro 21, 2004

[tr][/tr][tr][/tr]

ASP

<%Option Explicit %>

<%

IF Resquest("login") = true THEN

Dim conexao, rs

set conexao=server.createobject("ADODB.Connection")

conexao.connectionString="Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("dados/site.mdb")

conexao.Open

%>

<%

Dim Nome, Senha

Nome=request.Form("Nome")

Senha=request.Form("Senha")

Dim sql

SQL = "select * from Usuarios where Ativo='S' and login = '" & Nome & "' and senha = '" & Senha & "' "

Set rs=Conexao.Execute (SQL)

%>

<%

If rs.EOF then

response.write "Nome de usuario ou senha invalidos"

Else

'Grava a variavel de Sessao para autenticar

Session("usuario")=Nome

Session("nivel_acesso")= rs("Nivel")

'Redireciona para a pagina de assinantes

Response.Redirect "assinantesSession.asp"

End If

END IF

%>

<HTML>

<HEAD>

<TITLE> Login</TITLE>

</HEAD>

<BODY>

<table>

<tr>

</tr>

<tr>

<td>Senha</td>

</tr>

<tr>

</tr>

</table>

</form>

</BODY>

</HTML>

OFaro.COM · Outubro 21, 2004

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01F4)Variável não definida: 'Resquest'/login/LoginSession.asp, line 4

??? :mellow: :mellow:

e ainda continua aparecendo a msg de erro de login e usuario qndo entro na tela..se antes verificar....

Mário Monteiro · Outubro 21, 2004

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01F4)Variável não definida: 'Resquest'/login/LoginSession.asp, line 4
??? :mellow: :mellow:

e ainda continua aparecendo a msg de erro de login e usuario qndo entro na tela..se antes verificar....

foi mal ta errado lá em cima troca

Resquest por Request

OFaro.COM · Outubro 21, 2004

marioufpa desculpa esse monte de coisa nao e falta de vonta to tentando desde ontem e ja to ficando loco..agora ta indo...so q aqndo coloco login errado ele nao da msg de senha e usuario errado...e qndo coloco certo ele continua indo para a msm pagina do form e nao para oputramas msm assim mto obrigado por ta me ajudando

Mário Monteiro · Outubro 21, 2004

marioufpa desculpa esse monte de coisa nao e falta de vonta to tentando desde ontem e ja to ficando loco..agora ta indo...so q aqndo coloco login errado ele nao da msg de senha e usuario errado...e qndo coloco certo ele continua indo para a msm pagina do form e nao para oputramas msm assim mto obrigado por ta me ajudando

aguada ai vou testar no server e já retorno...

OFaro.COM · Outubro 21, 2004

marioufpa você qr q eu te passe um zip com os arquivos e o bd..pra ficar mais facil você testar..?

Mário Monteiro · Outubro 21, 2004

[tr][/tr][tr][/tr]

ASP

<%Option Explicit %>

<%

IF Request("login") THEN

Dim conexao, rs

set conexao=server.createobject("ADODB.Connection")

conexao.connectionString="Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("dados/site.mdb")

conexao.Open

%>

<%

Dim Nome, Senha

Nome=request.Form("Nome")

Senha=request.Form("Senha")

Dim sql

SQL = "select * from Usuarios where Ativo='S' and login = '" & Nome & "' and senha = '" & Senha & "' "

Set rs=Conexao.Execute (SQL)

%>

<%

If rs.EOF then

response.write "Nome de usuario ou senha invalidos"

Else

'Grava a variavel de Sessao para autenticar

Session("usuario")=Nome

Session("nivel_acesso")= rs("Nivel")

'Redireciona para a pagina de assinantes

Response.Redirect "assinantesSession.asp"

End If

END IF

%>

<HTML>

<HEAD>

<TITLE> Login</TITLE>

</HEAD>

<BODY>

<table>

<tr>

</tr>

<tr>

<td>Senha</td>

</tr>

<tr>

</tr>

</table>

</form>

</BODY>

</HTML>

não precisa criei um BD com os campos que acho quwe tem no seu

login|senha|Ativo|Nivel

numa tabela usuarios e rolou aqui, ve ai

OFaro.COM · Outubro 21, 2004

marioufpa MTO OBRIGADO DEU CERTINHO...VALEUUUU http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Mário Monteiro · Outubro 21, 2004

OK cara, qualquer duvida posta ai B) B) B) B) B)

OFaro.COM · Outubro 21, 2004

aproveitando esse msm topico..como q eu fasso pro redirect abrir em outro targeta pagina esta dividida em frame e um fica o conteudo outro fica a parte de login qndo fazer o login a pagina restrita abrir aonde tava o conteudo e a parte q tava o login muda para uma msg qualquer..??!!

Mário Monteiro · Outubro 21, 2004

bem você pode no lugar do redirect usar javasript tipo assim

<script language="JavaScript">	window.open("principal.asp","dir")	window.open("login.asp","esc")</script>

ai muda no lugar de principal.asp poe a page de destino e no lugar de login uma outra page que você queira que fique no lugar, no lugar de dir e esc você poe os nomes dos frames respectivos

OFaro.COM · Outubro 21, 2004

Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0400)Instrução esperada/login/login.asp, line 34<script language="JavaScript">

como arrumo esse erro.?

Salgado · Outubro 21, 2004

Creio que o Mário quis dizer é para fazer um Response.Write dessa Instrução JavaScript.

OFaro.COM · Outubro 21, 2004

Creio que o Mário quis dizer é para fazer um Response.Write dessa Instrução JavaScript.

Salgado mas msm assim deu o erro ??!! :mellow: :mellow: consengui faze nao da eero mas tbm nao ta funcionando...

Mário Monteiro · Outubro 21, 2004

Creio que o Mário quis dizer é para fazer um Response.Write dessa Instrução JavaScript.

bem você pode fazer o que o salgado disse:

[tr][/tr][tr][/tr]

ASP

response.write("<script language='JavaScript'>")

response.write("window.open('principal.asp','dir')")

response.write("window.open('login.asp','esc')")

response.write("</script>")

ou usar assim mesmo mas não pode ser dentro do codigo ASP fecha a tag poe o codigo e abre denovo a tag ASP

[tr][/tr][tr][/tr]

ASP

%>

window.open("principal.asp","dir")

window.open("login.asp","esc")

</script>

<%

Arquivado

login multinivel

Recommended Posts

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

OFaro.COM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179