Ir para conteúdo

POWERED BY:

Arquivado

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

Didiron

[Resolvido] Sistema de Login com Níveis de usuários

Por , em ASP Clássico

Recommended Posts

Didiron    0

Didiron
Postado

Só que é ai que eu quero chegar, eu não passei pelo login e senha, eu não fiz, imagine um fórum quando voce entra pela primeira vez vai ter um menu : faça se Cadastro/ Logar. É isso que eu gostaria que aparecesse. Só que eu preciso fazer uma verificação também para ver se caso tenha um usuário logado exiba também um menu correspondente ao seu nivel de acesso.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Didiron    0

Didiron
Postado

Então eu coloquei o Session("logado") = false, e agora ele já deixa abrir a página index.asp e como ainda não tem uma Session("Nivel_Acesso") criada ele exibe um menu para se logar, eu só nao entendi muito bem aonde colocar o Session("logado") = true, antes do Session("logado") = false?

 

 

Meu código:

 

<%@LANGUAGE="VBSCRIPT"%>
<%         Set Conexao = Server.CreateObject("ADODB.Connection")
            Conexao.ConnectionString = ("Driver=MySQL ODBC 5.1 Driver;DataBase=Forum;Server=localhost;Uid=root;PassWord=123456;")
        Conexao.Open %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="estilos.css" rel="stylesheet" type="text/css" />
<title>Untitled Document</title>
</head>

<body>
<div id="topo">
  <h1>Fórum Dionei Cardozo</h1>
</div>

<div id="menu">
<%  

if session("logado") = false then
  
If not isempty(Request.Form) then
    
    Login = Request.Form("Usuario")
    Senha = Request.Form("Senha")
    
    
    SQLUsuarios = "SELECT * FROM usuarios WHERE Login ='"& Login &"' and Senha='"& Senha &"' "
    Set ListarUsuarios = Conexao.Execute(SQLUsuarios)

    session("nivel_acesso") = ListarUsuarios("nivel")
                        
    If session("nivel_acesso") = 1 then

        response.Write("<div align='center'><a href='PainelContole.asp'><img src='imagens/PControle.jpg' border='0' /></a><a href='Sair.asp'><img src='imagens/sair.jpg' border='0' /></a></div>")
                                
    End if
                                    
                                
    If session("nivel_acesso") = 2 then
    
        response.Write("<div align='center'><a href='PainelContole.asp'><img src='imagens/PControle.jpg' border='0' /></a><a href='Sair.asp'><img src='imagens/sair.jpg' border='0' /></a></div>")
                                
    End if

                               
    If session("nivel_acesso") = 3 then
        response.Write("<div align='center'><a href='AlterarUsuarios.asp'><img src='imagens/AlterarUsuarios.jpg' border='0' /></a><a href='PainelContole.asp'><img src='imagens/PControle.jpg' border='0' /></a><a href='Sair.asp'><img src='imagens/sair.jpg' border='0' /></a></div>")

    End if
    End if                                           

Else
        response.Write("<div align='center'><a href='logar.asp'><img src='imagens/menu-logar.jpg' border='0' /></a><a href='CadastrarUsuario.asp'><img src='imagens/menu-cadastrar.jpg' border='0' /></a></div>")                    



End if
%>

</div>
<br />
<table width="93%" border="0" align="center">
  <tr>
    <td align="left"><a href="newtopic.asp"><img src="imagens/novo-topico.jpg" width="130" height="25" /></a></td>
  </tr>
</table>
<div class="exibicoes">

<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="11"><img src="imagens/bg-esquerdo.jpg" width="10" height="30" /></td>
    <td width="530" align="center">Tópicos</td>
    <td width="10" align="center"> </td>
    <td width="10"><img src="imagens/bg-borda.jpg" width="2" height="30" /></td>
    <td width="251" align="center">Autor</td>
    <td width="12" align="left"><img src="imagens/bg-borda.jpg" width="2" height="30" /></td>
    <td width="197" align="center">Visualizações</td>
    <td width="25"><img src="imagens/bg-direito.jpg" width="10" height="30" align="right" /></td>
    </tr>
</table>

</div>
<div class="topicos">
<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="11"></td>
    <td width="530" align="center">Palmeiras sem Pierre, Edinho e Marcos Assunção domingo contra o Ceará</td>
    <td width="10" align="center"> </td>
    <td width="10"><img src="imagens/bg-borda.jpg" width="2" height="30" /></td>
    <td width="251" align="center">Dionei Cardozo</td>
    <td width="12" align="left"><img src="imagens/bg-borda.jpg" width="2" height="30" /></td>
    <td width="197" align="center">35 Visualizações</td>
    <td width="25"></td>
    </tr>
</table>
<br />

</div>

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Didiron    0

Didiron
Postado

Obrigado a todos que ajudaram, mas enfim consegui resolver o problema.

Eu refiz todo o código e agora funcionou.

:clap: :clap: :clap: :clap: :clap: Imagem PostadaImagem PostadaImagem PostadaImagem PostadaImagem PostadaImagem Postada

Segue o código correto:

Login = Request.Form("Usuario")    Senha = Request.Form("Senha")       If Request.Form = "" then        response.Write("<div align='center'><a href='Logar.asp'><img src='imagens/menu-logar.jpg' border='0' /></a><a href='CadastrarUsuario.asp'><img src='imagens/menu-cadastrar.jpg' border='0' /></a></div>")Else    SQL = "SELECT * FROM usuarios WHERE Login ='"& Login &"' and Senha='"& Senha &"' "    Set ListarUsuarios = Conexao.Execute(SQL)    Session("Nivel_Acesso") = ListarUsuarios("Nivel")        Nivel_Usuario = Session("Nivel_Acesso")        If Nivel_Usuario = 1 then              response.Write("<div align='center'><a href='PainelContole.asp'><img src='imagens/PControle.jpg' border='0' /></a><a href='Sair.asp'><img src='imagens/sair.jpg' border='0' /></a></div>")        End if        If Nivel_Usuario = 2 then              response.Write("<div align='center'><a href='PainelContole.asp'><img src='imagens/PControle.jpg' border='0' /></a><a href='Sair.asp'><img src='imagens/sair.jpg' border='0' /></a></div>")        End if        If Nivel_Usuario = 3 then                response.Write("<div align='center'><a href='AlterarUsuarios.asp'><img src='imagens/AlterarUsuarios.jpg' border='0' /></a><a href='PainelContole.asp'><img src='imagens/PControle.jpg' border='0' /></a><a href='Sair.asp'><img src='imagens/sair.jpg' border='0' /></a></div>")        End ifEnd if

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