Ir para conteúdo

POWERED BY:

Arquivado

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

romulorasec

Login Multi Úsuario

Por , em ASP Clássico

Recommended Posts

romulorasec    0

romulorasec
Postado

Pessoal estou tentando criar um login, onde o colunista só ver no menu o que ele tem acesso a inserir, editar, excluir, listar, tipo o menu será um só sendo pra todos os niveis, mas ou o colunista quando logado ver somente o que ele tem acesso(a inserir, editar, excluir, listar), ou apareci todos os menus normalmente sendo que ficara tipo desativado. Se alguem tiver alguma ideia por favor me ajudem nessa!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Crie um tabela no seu banco chamada "Acessos", lá você coloca as colunas baseadas no acesso, exemplo:

 

Irá ter umas colunas de: CODIGO - CODIGO_USUARIO - ACESSO_INSERIR - ACESSO_EDITAR (...)

 

depois você colcar um valor nelas por exemplo, se tiver o valor "1" eles podem ver e se tiver o valor "0" está bloqueado, depois você faz uma condição para mostrar cada link do menu (OBS: o CODIGO_USUARIO é para fazer a comparação com a pessoa logada

 

ASP
If RS("acesso_inserir") = "1" Then

Response.Write("Ela pode ver o link")

Else

Response.Write("Ela não pode ver o link")

End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

romulorasec    0

romulorasec
Postado

Crie um tabela no seu banco chamada "Acessos", lá você coloca as colunas baseadas no acesso, exemplo:

 

Irá ter umas colunas de: CODIGO - CODIGO_USUARIO - ACESSO_INSERIR - ACESSO_EDITAR (...)

 

depois você colcar um valor nelas por exemplo, se tiver o valor "1" eles podem ver e se tiver o valor "0" está bloqueado, depois você faz uma condição para mostrar cada link do menu (OBS: o CODIGO_USUARIO é para fazer a comparação com a pessoa logada

 

ASP
If RS("acesso_inserir") = "1" Then

Response.Write("Ela pode ver o link")

Else

Response.Write("Ela não pode ver o link")

End If

 

Estou usando o seguinte codigo, adaptado por mim:

A questão é o seguinte, queria criar uma forma que toda vez que fosse criar uma coluna, naum tivesse que mexer no codigo justamente a quela parte dos CASES, como esta toda vez que criar outra tenho que por um case pra testar lá e mostrar o menu somente da quela coluna, lenbrando que, pelo que to vendo os menus e sempre os mesmos, ou seja a pagina de Adm de cada colunista vai conter o mesmo em todas porem, au logar quero fazer pra abrir o adm mas quando for editar pegar tipo pelo id do nick ou da coluna sei lá, inserir os dados na quela coluna com o login do colunista d kela coluna, já o setor administrativo mostrara todos o menus e areas em que os colunistas trabalhao e as do administrado geral mesmo mas tam bem usando o mesmo administrador, estou totalamente sem ideia de como fazer isso, naum sei se criu um tabela so de colunas e faço um inner join pra juntar a tabela de colunas e de usuario naum sei gente me ajuda. Se naum fui claro poste algo por favor, agradeço aos amigos que ja responderam obrigado mesmo.

 

ESSA É A PARTE QUE VALIDA OS DADOS QUE VEM DO FORMULARIO

ASP
<%

 

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:/domains/bd/dados.mdb"

 

login = Replace(Request.Form("login"),chr(39),"''")

senha = Replace(Request.Form("senha"),chr(39),"''")

 

Set Rs = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT * FROM administrador WHERE  nick='"&login&"' AND senha='"&senha&"'"

 Set Rs = conn.execute(SQL)

 

If Not Rs.EOF then

 

Session("id") = Rs("id")

Session("nick") = Rs("nick")

Session("nome") = Rs("nome")

Session("senha") = Rs("senha")

Session("Admin") = Rs("admin")

Session("ok") = true

session("nivel") = Rs("nivel")

 

Response.Redirect ("default4.asp")

else

Response.Redirect ("default.asp")

end if

 

 

rs.close

set rs = nothing

conn.close

set conn=nothing

%>

ESSA E A PARTE DO PAINEL DEPOIS DA VALIDAÇÃO DOS DADOS

ASP
<!--#include file="travar.asp" -->Olá! <strong><%=Session("nome")%></strong> Seja Bem Vindo(a)!<p>

 

<%SELECT CASE Session("nivel")%>

 

<%CASE 1%>

<table width="160" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">

  <tr>

    <td bgcolor="#999999">Administração Geral </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td bgcolor="#999999">Blog </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td bgcolor="#999999">Coluna 01 </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

</table>

<%CASE 2%>

<table width="160" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">

  <tr>

    <td bgcolor="#999999">Blog </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

  <tr>

    <td> </td>

  </tr>

</table>

<p>

 

 

<%END SELECT%>

 

Você está logado como <strong><%= Session("Admin") %>    </strong> Nivel:  <strong><%= Session("nivel") %></strong> -

<strong>

<%

                          ip = Request.ServerVariables("REMOTE_ADDR")

                          response.Write(ip)

                          %>

  </strong>-

                <strong>

                <%

                                response.write Now()

                                %>

                <% IF session("nivel")= 1  THEN %>

                </strong>  

              - <a href="inserir_administrador.asp" class="texto3">Inserir Administrador!</a>                - <a href="administradores.asp" class="texto3">Ver Administradores!</a>

                <% end if %>

              - <a href="logout.asp" class="texto3">Fazer Logoff</a>

ESSA E A PAGINA TRAVAR O INCLUDE

ASP
<%

Session.TimeOut = 10

If Session("Admin") = "" Then

Response.Redirect ("restrito.asp")

End If

%>

ESSE É O FORMULARIO

ASP
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Identifique-se!</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="estiloadmin.css" rel="stylesheet" type="text/css">

<script language="JavaScript">

 

function submit_page(){

{

if (document.form1.login.value == "") {

alert("Você esqueceu de preencher o seu Login!");

document.form1.login.focus();

return false;

}

}

{

if (document.form1.senha.value == "") {

alert("Você esqueceu de preencher a sua Senha!");

document.form1.senha.focus();

return false;

}

}

}

</script>

</head>

 

<body bgcolor="#EFEFEF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div align="left">

  <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

    <tr>

      <td valign="middle"><div align="center">

          <table width="650" height="200" border="0" cellpadding="0" cellspacing="1" bgcolor="#486C98">

            <tr>

              <td valign="top" bgcolor="#FFFFFF"><table width="100%" height="172" border="0" cellpadding="0" cellspacing="0">

                  <tr>

                    <td height="30"><div align="center">

                        <p class="titulo">Identifique-se!</p>

                      </div></td>

                  </tr>

                  <tr>

                    <td valign="middle"><div align="center">

                        <form name="form1" method="post" action="valida.asp" onSubmit="return submit_page();">

                          <table width="90%" border="0" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2">

                            <tr>

                              <td width="19%" height="18" bgcolor="#FFFFFF" class="texto">

                                <p align="right" class="texto">Login:</p></td>

                              <td width="81%" bgcolor="#FFFFFF" class="texto"><input name="login" type="text" class="isp" id="login"></td>

                            </tr>

                            <tr>

                              <td height="18" bgcolor="#FFFFFF" class="texto"><div align="right">Senha:</div></td>

                              <td bgcolor="#FFFFFF" class="texto"><input name="senha" type="password" class="isp" id="senha"></td>

                            </tr>

                            <tr>

                              <td height="18" colspan="2" bgcolor="#FFFFFF" class="texto"><div align="center">

                                  <input name="Submit" type="submit" class="botao" value="Entrar!">

                                </div></td>

                            </tr>

                          </table>

                        </form>

                       

                      </div></td>

                  </tr>

                </table>

               

              </td>

            </tr>

          </table>

        </div></td>

    </tr>

  </table>

</div>

</body>

</html>

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