Ir para conteúdo
Fórum Script Brasil
  • 0

Menu Sanfona Dinamico

raphanasc

Perguntado por raphanasc,

 Share

Pergunta

raphanasc

raphanasc

Postado
Postado

Ola,

Estou com um probleminha... meu site é em asp, mas estou usando essas funções em java pra ler um menu de acordo com o banco de dados, mas sempre que eu carrego a pagina os menus já iniciam aberto... alguém sabe como faço pra iniciar fechado...

<!--#include file="../net/conn.net"-->
<!--#include file="../net/utilitarios.net"-->
<!--#include file="../net/util_per.net"-->

<script type="text/javascript">
var persistmenu = "sim";
var persisttype = "site";

if(document.getElementById) {
    document.write('<style type="text/css">\n')
    document.write('.submenu{display: none;}\n')
    document.write('</style>\n')
}

function abrir_menu(obj) {
    if(document.getElementById) {
        var el = document.getElementById(obj);
        var ar = document.getElementById("menu").getElementsByTagName("span");
        if(el.style.display != "block") {
            for(var i=0; i<ar.length; i++) {
                if(ar[i].className=="submenu") {
                    ar[i].style.display = "none";
                }
            }
            el.style.display = "block";
        }
        else {
            el.style.display = "none";
        }
    }
}

function abrir_menu2(obj) {
    if(document.getElementById) {
        var el = document.getElementById(obj);
        var ar = document.getElementById("menu2").getElementsByTagName("span2");
        if(el.style.display != "block") {
            for(var i=0; i<ar.length; i++) {
                if(ar[i].className=="submenu2") {
                    ar[i].style.display = "none";
                }
            }
            el.style.display = "block";
        }
        else {
            el.style.display = "none";
        }
    }
}

function abrir_menu3(obj) {
    if(document.getElementById) {
        var el = document.getElementById(obj);
        var ar = document.getElementById("menu3").getElementsByTagName("span3");
        if(el.style.display != "block") {
            for(var i=0; i<ar.length; i++) {
                if(ar[i].className=="submenu3") {
                    ar[i].style.display = "none";
                }
            }
            el.style.display = "block";
        }
        else {
            el.style.display = "none";
        }
    }
}

function get_cookie(Name) {
    var search = Name + "="
    var returnvalue = "";
    if(document.cookie.length > 0) {
        offset = document.cookie.indexOf(search)
        if(offset != -1) {
            offset += search.length
            end = document.cookie.indexOf(";", offset);
            if(end == -1) end = document.cookie.length;
            returnvalue = unescape(document.cookie.substring(offset, end))
        }
    }
    return returnvalue;
}

function onloadfunction() {
    if(persistmenu=="sim") {
        var cookiename = (persisttype=="site")? "abrir_menu" : window.location.pathname
        var cookievalue = get_cookie(cookiename)

        if(cookievalue!="") {
            document.getElementById(cookievalue).style.display="block"
        }
    }
}

function savemenustate() {
    var inc=1, blockid=""
    while(document.getElementById("submenu"+inc)) {
        if(document.getElementById("submenu"+inc).style.display=="block") {
            blockid="submenu"+inc
            break
        }
    inc++
    }
    var cookiename = (persisttype=="site")? "abrir_menu" : window.location.pathname
    var cookievalue = (persisttype=="site")? blockid+";path=/" : blockid
    document.cookie = cookiename+"="+cookievalue
}

if(window.addEventListener) {
    window.addEventListener("load", onloadfunction, false)
}
else if(window.attachEvent) {
    window.attachEvent("onload", onloadfunction)
}
else if(document.getElementById) {
    window.onload = onloadfunction
}

if(persistmenu=="sim" && document.getElementById) {
    window.onunload = savemenustate
}
</script>
<!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" xml:lang="pt" lang="pt">
<head>
<title>ERP (menu sanfona)</title>
</head>
<body>
<a href="cad_alt_class_prod.asp?opcao=1">inserir novo grupo</a> 
<%
Call ConexaoSistema()
    cSql = "SELECT gr_int_id, gr_var_nome FROM t_grupo_produto" 
    response.Flush()
    Set rs = cConexao.Execute( cSql )
    do while not rs.eof
%>
<div id="menu">
<div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>'" onClick="abrir_menu('<%=rs("gr_int_id")%><%=rs("gr_var_nome")%>')">
  <%
 ctsql = "select subcat_int_id from t_subcategoria_produto as subcat inner join t_categoria_produto as cat on (subcat.cat_int_id = cat.cat_int_id) inner join t_subgrupo_produto as subgr on (cat.subgr_int_id = subgr.subgr_int_id) inner join t_grupo_produto as gr on (subgr.gr_int_id = gr.gr_int_id) where gr.gr_int_id='"&rs("gr_int_id")&"'"
    set rsct = cconexao.execute(ctsql)
  %>
  <img src="../img_sistema/icon/icon_mais.gif"/><b> <%=rs("gr_var_nome")%> (<%=rsct.RecordCount%>)</b>
  </div>
<span id="<%=rs("gr_int_id")%><%=rs("gr_var_nome")%>" class="TextoCampoFormulario">
<%SQL2 = "SELECT subgr_int_id, subgr_var_nome FROM t_subgrupo_produto WHERE gr_int_id='"&rs("gr_int_id")&"'"
    response.Flush()
    %>
    <a href="cad_alt_class_prod.asp?opcao=1&gr_id=<%=rs("gr_int_id")%>">inserir novo subgrupo em <%=rs("gr_var_nome")%></a>
    <%
    Set rs2 = cConexao.Execute( SQL2 )
            do while not rs2.eof
%>
            <div id="menu2">
<div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>'" onClick="abrir_menu2('<%=rs2("subgr_int_id")%><%=rs2("subgr_var_nome")%>')">
  <%
 ctsql2 = "select subcat_int_id from t_subcategoria_produto as subcat inner join t_categoria_produto as cat on (subcat.cat_int_id = cat.cat_int_id) inner join t_subgrupo_produto as subgr on (cat.subgr_int_id = subgr.subgr_int_id) where subgr.subgr_int_id='"&rs2("subgr_int_id")&"'"
    set rsct2 = cconexao.execute(ctsql2)
  %>
<img src="../img_sistema/icon/icon_mais.gif"/><img src="../img_sistema/icon/icon_mais.gif"/><b> <%=rs2("subgr_var_nome")%> (<%=rsct2.RecordCount%>)</b></div>
<span id="<%=rs2("subgr_int_id")%><%=rs2("subgr_var_nome")%>" class="TextoCampoFormulario">
                    
                    <%SQL3 = "SELECT cat_int_id, cat_var_nome FROM t_categoria_produto WHERE subgr_int_id='"&rs2("subgr_int_id")&"'"
                    response.Flush()
                    %>
                    <a href="cad_alt_class_prod.asp?opcao=1&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>">inserir nova categoria em <%=rs2("subgr_var_nome")%></a>
                    <%
                    Set rs3 = cConexao.Execute( SQL3 )
                    do while not rs3.eof
%>
                    <div id="menu3">
<div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>&cat_id=<%=rs3("cat_int_id")%>'" onClick="abrir_menu3('<%=rs3("cat_int_id")%><%=rs3("cat_var_nome")%>')">
<%
 ctsql3 = "select subcat_int_id from t_subcategoria_produto as subcat inner join t_categoria_produto as cat on (subcat.cat_int_id = cat.cat_int_id) where cat.cat_int_id='"&rs3("cat_int_id")&"'"
    set rsct3 = cconexao.execute(ctsql3)
  %>
<img src="../img_sistema/icon/icon_mais.gif"/><img src="../img_sistema/icon/icon_mais.gif"/><img src="../img_sistema/icon/icon_mais.gif"/><b> <%=rs3("cat_var_nome")%>(<%=rsct3.RecordCount%>)</b></div>
<span id="<%=rs3("cat_int_id")%><%=rs3("cat_var_nome")%>" class="TextoCampoFormulario">
                         <%SQL4 = "SELECT subcat_int_id, subcat_var_nome FROM t_subcategoria_produto WHERE cat_int_id='"&rs3("cat_int_id")&"'"
                        response.Flush()
                        %>
                        <a href="cad_alt_class_prod.asp?opcao=1&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>&cat_id=<%=rs3("cat_int_id")%>">inserir nova subcategoria em <%=rs3("cat_var_nome")%></a><br/>
                        <%
                        Set rs4 = cConexao.Execute( SQL4 )
                        do while not rs4.eof
%>
                        <div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>&cat_id=<%=rs3("cat_int_id")%>&subcat_id=<%=rs4("subcat_int_id")%>'">                   ◊ <%=rs4("subcat_var_nome")%></div>
                        <%
                        rs4.movenext
                        loop%>
                    </span>
                    </div>
                    <%
                    rs3.movenext
                    loop
%>
                    </span>
                    </div>
            <%
            rs2.movenext
            loop
%>
</span>
</div>
    <%     
    rs.movenext
    loop

call fechaconexaosistema()%>
</body>
</html>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...