三级动态树形菜单

piperzero

墨衍会员 · AI 创作全网分发码龄21年

关注

原创最新推荐文章于 2026-04-23 11:41:28 发布 2.8k 阅读 AI 写同款· GEO 优化 ›

三级树形菜单动态获取数据,自己设置样式控制关闭与打开,可适合多及菜单立即下载

三级树形菜单,之前有发过一个那个和这个还是有区别的.表结构仍然是我一直发的那样的.注意,不能打开二级类

就是说只能打开大类和三级类.当有类别无三级类时候,就不适用了.

< ! -- #include file = " inc/conn.asp " -->

< TABLE width = 190 >

< TR >

< TD width = " 100% " >

< %

set rsBigClass1 = server.CreateObject( " adodb.recordset " )

rsBigClass1.open " Select * From BigClass " ,conn, 1 , 1

i = 100

do while not rsBigClass1.eof

i = i + 100

% >

< TABLE id = LeftMenu_ < % = i% > _off cellSpacing = 0 cellPadding = 0

width = " 100% " >

< TBODY >

< TR class = tree_button_title

onmouseover = " this.className='tree_button_title_on'; "

onclick = " document.getElementById('LeftMenu_<%=i%>_on').style.display=(document.getElementById('LeftMenu_<%=i%>_on').style.display == 'none')?'':'none';document.getElementById('LeftMenu_<%=i%>_off').style.display=(document.getElementById('LeftMenu_<%=i%>_off').style.display=='none')?'':'none' "

onmouseout = " this.className='tree_button_title' " >

< TD >< B >< A

href = " Product.asp?bigclassname=<%=rsBigClass1( " BigClassName " )%> "

>< % = rsbigclass1( " bigclassname " )% ></ A ></ B >& nbsp; & nbsp; </ TD >

< TD align = right >< IMG

src = " newegg_menu/plus.gif " ></ TD ></ TR ></ TBODY ></ TABLE >

< TABLE id = LeftMenu_ < % = i% > _on style = " DISPLAY: none " cellSpacing = 0

cellPadding = 0 width = " 100% " > < TBODY >

< TR >

< TD >

< TABLE cellSpacing = 0 cellPadding = 0 width = " 100% " >

< TBODY >

< TR class = tree_button_title

onmouseover = " this.className='tree_button_title_on'; "

onmouseout = " this.className='tree_button_title' " >

< TD >< B >< A

href = " Product.asp?bigclassname=<%=rsBigClass1( " BigClassName " )%> "

>< % = rsbigclass1( " bigclassname " )% ></ A ></ B >& nbsp; & nbsp; </ TD >

< TD align = right >< IMG

src = " newegg_menu/minus.gif " ></ TD ></ TR ></ TBODY ></ TABLE >

< %

set rsSmallClass1 = server.CreateObject( " adodb.recordset " )

rsSmallClass1.open " Select * From SmallClass Where BigClassName=' " & rsBigClass1( " BigClassName " ) & " ' " ,conn, 1 , 1

if not (rsSmallClass1.bof and rsSmallClass1.eof) then

j = 33

do while not rsSmallClass1.eof

j = j + 100

% >

< ! -- 三级类关闭时候 -->

< TABLE id = LeftMenu_ < % = i% > _ < % = j% > _off cellSpacing = 0

cellPadding = 0 width = " 100% " border = 0 >

< TBODY >

< TR >

< TD class = tree_button

onmouseover = " this.className='tree_button_on'; "

onclick = " document.getElementById('LeftMenu_<%=i%>_<%=j%>_on').style.display=(document.getElementById('LeftMenu_<%=i%>_<%=j%>_on').style.display == 'none')?'':'none';document.getElementById('LeftMenu_<%=i%>_<%=j%>_off').style.display=(document.getElementById('LeftMenu_<%=i%>_<%=j%>_off').style.display=='none')?'':'none' "

onmouseout = " this.className='tree_button' " >< IMG

height = 6

src = " newegg_menu/arrow_right.gif "

width = 5 border = 0 >& nbsp; < FONT

size =+ 0 >< % = rsSmallClass1( " SmallClassName " )% ></ FONT >& nbsp; & nbsp; </ TD ></ TR ></ TBODY ></ TABLE >

< ! -- 三级类关闭时候 -->

< ! -- 三级类展开时候 -->

< TABLE id = LeftMenu_ < % = i% > _ < % = j% > _on style = " DISPLAY: none "

cellSpacing = 0 cellPadding = 0 width = " 100% " border = 0 >

< TBODY >

< TR >

< TD >

< TABLE cellSpacing = 0 cellPadding = 0 width = " 100% "

border = 0 >

< TBODY >

< TR >

< TD class = tree_button

onmouseover = " this.className='tree_button_on'; "

onmouseout = " this.className='tree_button' " >< IMG

height = 6

src = " newegg_menu/arrow_down.gif "

width = 5 border = 0 >& nbsp; < FONT

size =+ 0 >< % = rsSmallClass1( " SmallClassName " )% ></ FONT >& nbsp; & nbsp; </ TD ></ TR ></ TBODY ></ TABLE >

< ! -- 三级类 -->

< TABLE cellSpacing = 0 cellPadding = 0 width = " 100% "

border = 0 >

< TBODY >

< TR >

< TD class = tree_button_content >

< %sql3 = " select * from minclass where BigClassName=' " & rsBigClass1( " BigClassName " ) & " ' and smallclassname=' " & rsSmallClass1( " SmallClassName " ) & " ' "

set rs3 = Server.CreateObject( " adodb.recordset " )

rs3.Open sql3,conn, 1 , 1

do while not rs3.eof% >

< DIV class = tree_button_list >< A

href = " Product.asp?bigclassname=<%=rsBigClass1( " BigClassName " )%>&smallclassname=<%=rsSmallClass1( " SmallClassName " )%>&minclassname=<%=rs3( " minclassname " )%> " >< % = rs3( " minclassname " )% ></ A ></ DIV >

< %

rs3.movenext

loop

% >

</ TD >

</ TR >

</ TBODY >

</ TABLE >

< ! -- 三级类 -->

</ TD ></ TR ></ TBODY >

</ TABLE >

< ! -- 三级类展开时候 -->