Ocultar/Exibir Div's

thicomp · Setembro 13, 2010

Oi Pessoal, bom dia!!

Estou com um probleminha com divs.

Os "Item 1" são um conjunto de links, onde cada um contem informações específicas.

Dentro desse "Item 1", possuo links "Item 2", "Item 3" e "Item 4" (todas essas informações referentes ao "Item 1" selecionado).

O meu problema é que ele não identifica o "Item 1". Se eu clicar no link "Item 1 - 2"(ou seja, o segundo link "Item 1"), ele me disponibiliza as informações ("Item 2","Item 3","Item 4") do primeiro "Item 1".

Não sei se a explicação está adequada, mas se alguém puder me ajudar...

Abraços

<script language="JavaScript">

function showdiv(ativar,id1,id2)
{
var A=document.getElementById(id1);
var B=document.getElementById(id2);

if(ativar=='sim')
{
B.style.display = 'block';
A.style.display= 'none';
}
else
{
A.style.display = 'block';
B.style.display= 'none';
}
}

function showdiv1(ativar1,id1,id2)
{
var A1=document.getElementById(id1);
var B1=document.getElementById(id2);

if(ativar1=='sim1')
{
B1.style.display = 'block';
A1.style.display= 'none';
}
else
{
A1.style.display = 'block';
B1.style.display= 'none';
}
}

function showdiv2(ativar2,id1,id2)
{
var A2=document.getElementById(id1);
var B2=document.getElementById(id2);

if(ativar2=='sim2')
{
B2.style.display = 'block';
A2.style.display= 'none';
}
else
{
A2.style.display = 'block';
B2.style.display= 'none';
}
}

function showdiv3(ativar3,id1,id2)
{
var A3=document.getElementById(id1);
var B3=document.getElementById(id2);

if(ativar3=='sim3')
{
B3.style.display = 'block';
A3.style.display= 'none';
}
else
{
A3.style.display = 'block';
B3.style.display= 'none';
}
}
</SCRIPT>
<%
Const forReading=1, forWriting=2, forAppending=8
Dim Obj
Set ObjFile=CreateObject("Scripting.FileSystemObject")
Set FSO=CreateObject("Scripting.FileSystemObject")
response.write "<HTML><HEAD><STYLE>TD{font-family:verdana;font-size:8pt;}</STYLE></HEAD><BODY>"

response.write "<TABLE cellpadding='1' cellspacing='1' border='0' width='500'>"
response.write "<TR><TD>"
Dim fs,fo,x
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder("F:\"&right(nrped, 4)&"\"&replace(nrped, "/", "_")&"\")

For Each x In fo.SubFolders
'Print the name of all subfolders in the test folder
dataant=0
data1=x.Name
Set fo=fs.GetFolder("F:\"&right(nrped, 4)&"\"&replace(nrped, "/", "_")&"\"&data1&"\")

For Each x1 In fo.SubFolders
'Print the name of all subfolders in the test folder
data2=x1.Name
Set fo=fs.GetFolder("F:\"&right(nrped, 4)&"\"&replace(nrped, "/", "_")&"\"&data1&"\")

IF FSO.FileExists("F:\"&right(nrped, 4)&"\"&replace(nrped, "/", "_")&"\"&data1&"\"&data2&"\"&data2&".txt")=TRUE Then
Set ObjFile=FSO.GetFile("F:\"&right(nrped, 4)&"\"&replace(nrped, "/", "_")&"\"&data1&"\"&data2&"\"&data2&".txt")
Set ObjStream=ObjFile.OpenAsTextStream(forReading, FALSE)
Dim num, num1, num2
Texto=ObjStream.ReadAll
Dados=Split(Replace(Texto, Chr(13), ""), Chr(10)) //substitui o enter pelo tab
Set Folder=FSO.GetFolder("F:\"&right(nrped, 4)&"\"&replace(nrped, "/", "_")&"\"&data1&"\"&data2&"\Fornecedores\")
Set Folder1=Folder.subFolders

For Each Folder In Folder1
d=Folder.Name
Next

response.write "<TR><TD><TABLE cellpadding='1' cellspacing='0' border='1' bordercolor='#FFFFFF' width='450'>"

For x2=0 To LBound(Dados)
%>
<TABLE cellpadding='0' cellspacing='0' width='600' border='0'><TR><TD>
<DIV id="faq1A"><A href="teste3.asp?nrped=<%=nrped%>&tip=cad&proj=<%=request.querystring("proj")%>&vis=<%=request.querystring("vis")%>&sit=cad&pedins=<%=dados(2)%>" onclick="showdiv('sim','faq1A','faq1B'); return false">
<STRONG>+ ITEM 1</STRONG></A></DIV>
<DIV id="faq1B" style="display:none">
<DIV align="left"><A href="teste3.asp?nrped=<%=nrped%>&tip=cad&proj=<%=request.querystring("proj")%>&vis=<%=request.querystring("vis")%>&sit=cad&pedins=<%=dados(2)%>" onclick="showdiv('não','faq1A','faq1B'); return false">
<STRONG>- ITEM 1</STRONG></A><BR>

<TABLE cellpadding='0' cellspacing='0' width='600' border='0'><TR><TD>
<DIV id="faq1A3"><A href="teste3.asp?nrped=<%=nrped%>&tip=cad&proj=<%=request.querystring("proj")%>&vis=<%=request.querystring("vis")%>&sit=cad&pedins=<%=dados(2)%>" onclick="showdiv3('sim3','faq1A3','faq1B3'); return false">
<STRONG><UL><LI>+ ITEM 2</STRONG></A></DIV>
<DIV id="faq1B3" style="display:none">
<DIV align="left"><A href="teste3.asp?nrped=<%=nrped%>&tip=cad&proj=<%=request.querystring("proj")%>&vis=<%=request.querystring("vis")%>&sit=cad&pedins=<%=dados(2)%>" onclick="showdiv3('nao3','faq1A3','faq1B3'); return false">
<STRONG><UL><LI>- ITEM 2</STRONG></A><BR>
<%
response.write "<TABLE cellpadding='1' cellspacing='0' border='1' width='500' bordercolor='#FFFFFF' bgcolor='#EEF3F9'>"

'DADOS DO ITEM 2

%>
</DIV>
</TABLE>
<TABLE cellpadding='0' cellspacing='0' width='600' border='0'><TR><TD>
<DIV id="faq1A1"><A href="#" onclick="showdiv1('sim1','faq1A1','faq1B1'); return false">
<STRONG><UL><LI>+ ITEM 3</STRONG></A></DIV>
<DIV id="faq1B1" style="display:none">
<DIV align="left"><A href="#" onclick="showdiv1('nao1','faq1A1','faq1B1'); return false">
<STRONG><UL><LI>- ITEM 3</STRONG></A><BR>
<%

IF FSO.FileExists("F:\"&right(nrped, 4)&"\"&nrped&"\"&data1&"\"&dados(2)&"\escolhido.txt")=TRUE Then
response.write "<TABLE cellpadding='1' cellspacing='0' border='0' bordercolor='#000000' width='500'>"
Set ObjFile=FSO.GetFile("F:\"&right(nrped, 4)&"\"&nrped&"\"&data1&"\"&dados(2)&"\escolhido.txt")
Set ObjStream=ObjFile.OpenAsTextStream(forReading, FALSE)
Texto1=ObjStream.ReadAll
Dados1=Split(Replace(Texto1, Chr(13), ""), Chr(10)) //substitui o enter pelo tab

For x3=0 To LBound(Dados1)

'DADOS ITEM 3

Next
response.write "</table>"
End IF
response.write "</table>"
%>
</DIV>
</TABLE>
<TABLE cellpadding='0' cellspacing='0' width='600' border='0'><TR><TD>
<DIV id="faq1A2"><A href="#" onclick="showdiv2('sim2','faq1A2','faq1B2'); return false">
<STRONG><UL><LI>+ ITEM 4</STRONG></A></DIV>
<DIV id="faq1B2" style="display:none">
<DIV align="left"><A href="#" onclick="showdiv2('nao2','faq1A2','faq1B2'); return false">
<STRONG><UL><LI>- ITEM 4</STRONG></A><BR>
<%

IF FSO.FileExists("F:\"&right(nrped, 4)&"\"&nrped&"01.txt")=FALSE Then
Set Folder=FSO.GetFolder("F:\"&right(nrped, 4)&"\"&replace(nrped, "/", "_")&"\"&data1&"\"&dados(2)&"\Fornecedores\")
Set Folder1=Folder.subFolders

For Each Folder In Folder1
nrforn=Folder.Name
Set ObjFile=FSO.GetFile("F:\"&right(nrped, 4)&"\"&nrped&"\"&data1&"\"&dados(2)&"\Fornecedores\"&nrforn&"\"&nrforn&".txt")
Set ObjStream=ObjFile.OpenAsTextStream(forReading, FALSE)
Texto1=ObjStream.ReadAll
Dados1=Split(Replace(Texto1, Chr(13), ""), Chr(10)) //substitui o enter pelo tab

'DADOS ITEM 4

Next
End IF
response.write "</DIV></TABLE>"
Next
End IF
Next
Next
%>

Cardon · Setembro 20, 2010

Putz veio explica melhor

de se consegue desenhar ou

fazer um estilo arvore ramificando isso pra gente entender

falow

thicomp · Setembro 21, 2010

Olá cara, é mais ou menos isso que eu preciso.

A ramificação da árvore. A parte do LINK 1-3-1, ao ser selecionada, deve aparecer um formulário de cadastro, e esse, após enviado, deverá mostrar a página com os divs que já estavam abertos antes de envio do formulário. O que está acontecendo, é que quando eu envio o formulário, todas divs que estavam abertas, ela se fecham.

Será que agora está mais claro?

Muito Obrigado!!!

Abraços

LINK 1

[tab]LINK 1-1

[tab][tab] INFORMAÇÕES DO LINK 1-1

[tab]LINK 1-2

[tab][tab] INFORMAÇÕES DO LINK 1-2

[tab]LINK 1-3

[tab][tab] LINK 1-3-1

[tab][tab] INFORMAÇÕES DO LINK 1-3

LINK 2

[tab]LINK 2-1

[tab][tab] INFORMAÇÕES DO LINK 2

LINK 3

[tab]LINK 3-1

[tab][tab] INFORMAÇÕES DO LINK 3

Editado Setembro 21, 2010 por thicomp

Entrar

Ocultar/Exibir Div's

Pergunta

thicomp

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Cardon

Link para o comentário

Compartilhar em outros sites

thicomp

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades