又一个动态树形菜单
<!--#include file="inc/conn.asp"-->
<SCRIPT language=javascript>
<!--
var tt='start';
var ii='start';
function turnit(ss,bb) {
if (ss.style.display=="none") {
if(tt!='start')
tt.style.display="none";
if(ii!='start')
ii.src="dian.gif";
ss.style.display="";
tt=ss;
ii=bb;
bb.src="ball.gif";
}
else {
ss.style.display="none";
bb.src="dian.gif";
}
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</SCRIPT>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT="0" MARGINWIDTH="0">
<TABLE cellSpacing=0 cellPadding=0 width=1024 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width=1024 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=227 border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width=227 border=0>
<TBODY>
<TR>
<TD width=25 background=image/zuo_1.gif></TD>
<TD width=15></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=160 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=8 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD height=8></TD></TR></TBODY></TABLE>
<!--加入动态树-->
<% sql="select bigclassid,bigclassname from bigclass"
set rs=conn.execute(sql)
i=64
Do while not rs.eof
bigclassname=rs("bigclassname")
i=i+1
zimu=Chr(i)
%>
<!--判断是否有子目录-->
<%sql="select * from smallclass where bigclassname='"&bigclassname&"'"
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open sql,conn,1,1'不要使用conn.execute
If rs2.recordcount>0 then%>
<TABLE cellSpacing=0 cellPadding=0 width="90%"
border=0>
<TBODY>
<TR>
<TD language=JScript id=tag<%=zimu%>
style="CURSOR: hand"
onclick=turnit(content<%=zimu%>,tag<%=zimu%>); vAlign=center
height=19> <IMG height=12
src="image/006.gif" width=9><SPAN
class=un2><%=rs("bigclassname")%></SPAN></TD></TR></TBODY></TABLE>
<%else%>
<TABLE cellSpacing=0 cellPadding=0 width="90%"
border=0>
<TBODY>
<TR>
<TD height=19> <IMG height=12
src="image/006.gif" width=9> <A
class=un2
href="product.asp?bigclassname=<%=rs("bigclassname")%>"><%=rs("bigclassname")%>
</A></TD></TR></TBODY></TABLE>
<%end if%>
<!--结束判断小类-->
<!--小类开始-->
<DIV id=content<%=zimu%> style="DISPLAY: none"
align=middle>
<%
Do While Not rs2.eof
%>
<TABLE cellSpacing=0 cellPadding=0 width="90%"
border=0>
<TBODY>
<TR>
<TD height=19> <IMG height=12
src="image/006-1.gif" width=9><SPAN
class=un2><A class=un2
href="product.asp?bigclassname=<%=rs("bigclassname")%>&smallclassname=<%=rs2("smallclassname")%>"><%=rs2("smallclassname")%>
</A></SPAN></TD></TR></TBODY></TABLE>
<%rs2.movenext
loop%>
<!--小类结束-->
</DIV>
<%rs.movenext
loop%>
</TD></TR></TBODY></TABLE></TD>
<TD width=24
background=image/zuo_3.gif></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top align=left> </TD>
<TD vAlign=top background=image/main1_2.gif> </TD>
<TD></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD> </TD>
</TR></TBODY></TABLE></BODY>
原文地址：https://www.cnblogs.com/zerogo/p/2209391.html