Ir para conteúdo

POWERED BY:

Arquivado

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

EliteRio Web

[Resolvido] Menu Accordion usando SQL Server

Por , em ASP Clássico

Recommended Posts

EliteRio Web    0

EliteRio Web
Postado

Boa tarde amigos, estou desenvolvendo um sistema interno aqui na empresa e preciso solucionar um problema no menu que puxa as informações do banco Sql Server.

 

Ele puxa o Menu mas não puxa corretamente o Submenu. Gostaria de contar com a ajuda dos amigos do Forum.

 

Abs.

<% SESSION.LCID = 3082
'Para evitar o Cache ou Proxy
Response.Buffer = True
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=0

'****************************************************************************
***********************
'* ABERTURA DA CONEXÃO E RECORDSET - SQL
'****************************************************************************
***********************
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'---- ExecuteOptionEnum Values ----
Const adRunAsync = &H00000010
'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3
'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &Hc
Const adModeShareDenyNone = &H10
'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
'---- Text Files ----
Const forReading = 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TriFalse = 0


'---------------------------------------------------------------------------------------------
' AREA QUE REALIZA CONEXAO COM O BANCO DE DADOS SQL.
'---------------------------------------------------------------------------------------------
  CNX = "PROVIDER=SQLOLEDB;DATA SOURCE=10.1.1.3;DATABASE=SCO;UID=yyyy;PWD=xxxx;"	
 'DICAS = SL("A",SQL,CNX)
	  
  SQL_DICAS = "SELECT ID_DICAS, DICAS_NOME FROM TB_MENU_DICAS"
 'Response.Write SQL_DICAS 
 'Response.End
	SET RS_DICAS = Server.CreateObject("ADODB.Recordset")
		RS_DICAS.ActiveConnection = CNX
		RS_DICAS.Source = SQL_DICAS
		RS_DICAS.CursorType = 0		 'adOpenForwardOnly
		RS_DICAS.CursorLocation = 3	 'adUseClient
		RS_DICAS.LockType = 3		   'adLockOptimistic
		RS_DICAS.Open()
		If not RS_DICAS.EOF then
			DICAS = RS_DICAS.GetRows()
		Else
			DICAS = ""
		End If
		SQL_DICAS = ""
		RS_DICAS.Close()
	SET RS_DICAS = Nothing
	
	'If Not IsArray(DICAS) then 
	 'FOR D = 0 TO UBOUND(DICAS,2)
		'Response.Write DICAS(0,D) & "|"& DICAS(1,D) &"<br>" 
		'Response.End
	'NExt
	'End If
	
	SQL_SUBDICAS = "SELECT ID_SUB_DICAS, ID_DICAS, NOME_SUB FROM TB_SUB_DICAS WHERE ID_DICAS='"& DICAS(0,0) & "'"
 'Response.Write SQL_DICAS 
 'Response.End
	SET RS_SUBDICAS = Server.CreateObject("ADODB.Recordset")
		RS_SUBDICAS.ActiveConnection = CNX
		RS_SUBDICAS.Source = SQL_SUBDICAS
		RS_SUBDICAS.CursorType = 0		 'adOpenForwardOnly
		RS_SUBDICAS.CursorLocation = 3	 'adUseClient
		RS_SUBDICAS.LockType = 3		   'adLockOptimistic
		RS_SUBDICAS.Open()
		If not RS_SUBDICAS.EOF then
			SUBDICAS = RS_SUBDICAS.GetRows()
		Else
			SUBDICAS = ""
		End If
		SQL_SUBDICAS = ""
		RS_SUBDICAS.Close()
	SET RS_SUBDICAS = Nothing
%>
<html>
<head>
<title><%= Application("TITULO") %></title>
<script language="JavaScript" TYPE="text/javascript" src="scripts/general.js"></script>
<link href="css/sistemas.css" rel="stylesheet" type="text/css">
<script type="text/javascript">
function IEHoverPseudo() {

var navItems = document.getElementById("primary-nav").getElementsByTagName("li");

for (var i=0; i<navItems.length; i++) {
if(navItems[i].className == "menuparent") {
navItems[i].onmouseover=function() { this.className += " over"; }
navItems[i].onmouseout=function() { this.className = "menuparent"; }
}
}

}
window.onload = IEHoverPseudo;

</script>

<style type="text/css">

body { font: normal 62.5% verdana; }

ul#primary-nav,
ul#primary-nav ul {
margin: 0;
padding: 0;
width: 150px; /* Width of Menu Items */
border-bottom: 1px solid #ccc;
background: #fff; /* IE6 Bug */
font-size: 100%;
}

ul#primary-nav li {
position: relative;
list-style: none;
}

ul#primary-nav li a {
display: block;
text-decoration: none;
color: #777;
padding: 5px;
border: 1px solid #ccc;
border-bottom: 0;
}

/* Fix IE. Hide from IE Mac \*/
* html ul#primary-nav li { float: left; height: 1%; }
* html ul#primary-nav li a { height: 1%; }
/* End */

ul#primary-nav ul {
position: absolute;
display: none;
left: 149px; /* Set 1px less than menu width */
top: 0;
}

ul#primary-nav li ul li a { padding: 2px 5px; } /* Sub Menu Styles */

ul#primary-nav li:hover ul ul,
ul#primary-nav li:hover ul ul ul,
ul#primary-nav li.over ul ul,
ul#primary-nav li.over ul ul ul { display: none; } /* Hide sub-menus initially */

ul#primary-nav li:hover ul,
ul#primary-nav li li:hover ul,
ul#primary-nav li li li:hover ul,
ul#primary-nav li.over ul,
ul#primary-nav li li.over ul,
ul#primary-nav li li li.over ul { display: block; } /* The magic */

ul#primary-nav li.menuparent { background: transparent url(arrow.gif) right center no-repeat; }

ul#primary-nav li.menuparent:hover,
ul#primary-nav li.ove???d?r { background-color: #f9f9f9; }

ul#primary-nav li a:hover { color: #E2144A; }

</style>
</head>
<body background="imagens/lineback.jpg">
<%

				
pagina = "#"
Response.Write "<ul id='primary-nav'>"
			   FOR D = 0 TO UBOUND(DICAS,2)
					Response.Write "<li class='menuparent'><a href='java script:;'>"& DICAS(1,D) &"</a>" 
						 If ISARRAY(SUBDICAS) Then
							Response.Write "<ul>"
							 FOR  S = 0 TO UBOUND(SUBDICAS,2)
							 Response.Write "<li><a href='"&pagina&"?id_sub_cat="& SUBDICAS(0,S) &"'>" & SUBDICAS(2,S) & "</a>"
							 Response.Write"</li>"
							 Next
						   Response.Write "</ul>"
						 End IF
	 				Response.Write "</li>"
					
				NEXT	
	Response.Write "</ul>"

	   'Response.Write "<ul id='primary-nav'>"
	   'FOR D = 0 TO UBOUND(DICAS,2)
	   'Response.Write "<li class='menuparent'><a href='java script:;'>"& DICAS(1,D) &"</a>"
	   'Response.Write "</li>"
	   		
		'If ISARRAY(SUBDICAS) Then
			'Response.Write "</li>"
			'Else
		  
		 ' Response.Write "<ul>"
		  'FOR S = 0 TO UBOUND(SUBDICAS,2)
		  'Response.Write "<li><a href='"&pagina&"?id_sub_cat="& SUBDICAS(0,S) &"'>" & SUBDICAS(2,S) & "</a>"
		  'Response.Write"</li>"
		  
		  'Next
		  'Response.Write "</ul>"
		  'Response.Write "</li>"
		  
		
		'End if
	   ' NEXT
	  'Response.Write "</ul>"	
		
	'*********************************** TS ****************************************		
	
						
%>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você verificou o js, como ele esta puxando seus sub-itens ???

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