又一个动态树形菜单

<!--#includefile="inc/conn.asp"-->
<SCRIPTlanguage=javascript>
<!--
vartt='start';
varii='start';
functionturnit(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";
}
}

functionMM_openBrWindow(theURL,winName,features){//v2.0
window.open(theURL,winName,features);
}
//-->
</SCRIPT>
<METAhttp-equiv=Content-Typecontent="text/html;charset=gb2312">
<METAcontent="MSHTML6.00.2900.2873"name=GENERATOR></HEAD>
<BODYbgColor=#ffffffleftMargin=0topMargin=0MARGINHEIGHT="0"MARGINWIDTH="0">
<TABLEcellSpacing=0cellPadding=0width=1024border=0>
<TBODY>

<TR>
<TDvAlign=top>
<TABLEcellSpacing=0cellPadding=0width=1024border=0>
<TBODY>
<TR>
<TD>
<TABLEcellSpacing=0cellPadding=0width=227border=0>
<TBODY>

<TR>
<TD><TABLEcellSpacing=0cellPadding=0width=227border=0>
<TBODY>
<TR>
<TDwidth=25background=image/zuo_1.gif></TD>
<TDwidth=15></TD>
<TD>
<TABLEcellSpacing=0cellPadding=0width=160border=0>
<TBODY>
<TR>
<TDvAlign=top>
<TABLEheight=8cellSpacing=0cellPadding=0
width="100%"border=0>
<TBODY>
<TR>
<TDheight=8></TD></TR></TBODY></TABLE>
<!--加入动态树-->
<%sql="selectbigclassid,bigclassnamefrombigclass"
setrs=conn.execute(sql)

i=64
Dowhilenotrs.eof
bigclassname=rs("bigclassname")
i=i+1
zimu=Chr(i)
%>
<!--判断是否有子目录-->
<%sql="select*fromsmallclasswherebigclassname='"&bigclassname&"'"
setrs2=Server.CreateObject("ADODB.Recordset")
rs2.opensql,conn,1,1'不要使用conn.execute
Ifrs2.recordcount>0then%>
<TABLEcellSpacing=0cellPadding=0width="90%"
border=0>
<TBODY>
<TR>
<TDlanguage=JScriptid=tag<%=zimu%>
style="CURSOR:hand"
onclick=turnit(content<%=zimu%>,tag<%=zimu%>);vAlign=center
height=19>&nbsp;<IMGheight=12
src="image/006.gif"width=9><SPAN
class=un2><%=rs("bigclassname")%></SPAN></TD></TR></TBODY></TABLE>
<%else%>
<TABLEcellSpacing=0cellPadding=0width="90%"
border=0>
<TBODY>
<TR>
<TDheight=19>&nbsp;<IMGheight=12
src="image/006.gif"width=9>&nbsp;<A
class=un2
href="product.asp?bigclassname=<%=rs("bigclassname")%>"><%=rs("bigclassname")%>
</A></TD></TR></TBODY></TABLE>
<%endif%>
<!--结束判断小类-->
<!--小类开始-->

<DIVid=content<%=zimu%>style="DISPLAY:none"
align=middle>
<%
DoWhileNotrs2.eof
%>
<TABLEcellSpacing=0cellPadding=0width="90%"
border=0>
<TBODY>
<TR>
<TDheight=19>&nbsp;&nbsp;<IMGheight=12
src="image/006-1.gif"width=9><SPAN
class=un2><Aclass=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>
<TDwidth=24
background=image/zuo_3.gif></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TDvAlign=topalign=left>&nbsp;</TD>
<TDvAlign=topbackground=image/main1_2.gif>&nbsp;</TD>
<TD></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>&nbsp;</TD>
</TR></TBODY></TABLE></BODY>