又一个动态树形菜单

< ! -- #includefile = " inc/conn.asp " -->
< SCRIPTlanguage = javascript >
< ! --
vartt = ' start';
varii = ' 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 >
< METAhttp - equiv = Content - Typecontent = " text/html;charset=gb2312 " >
< METAcontent = " MSHTML6.00.2900.2873 " name = GENERATOR ></ HEAD >
< BODYbgColor = #ffffffleftMargin = 0 topMargin = 0 MARGINHEIGHT = " 0 " MARGINWIDTH = " 0 " >
< TABLEcellSpacing = 0 cellPadding = 0 width = 1024 border = 0 >
< TBODY >

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

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

i = 64
Do while not rs.eof
bigclassname = rs( " bigclassname " )
i = i + 1
zimu = Chr (i)
% >
< ! -- 判断是否有子目录 -->
< %sql = " select*fromsmallclasswherebigclassname=' " & bigclassname & " ' "
set rs2 = Server.CreateObject( " ADODB.Recordset " )
rs2.opensql,conn, 1 , 1 ' 不要使用conn.execute
If rs2.recordcount > 0 then % >
< TABLEcellSpacing = 0 cellPadding = 0 width = " 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 = 0 cellPadding = 0 width = " 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 >
< % end if % >
< ! -- 结束判断小类 -->
< ! -- 小类开始 -->

< DIVid = content < % = zimu% > style = " DISPLAY:none "
align = middle >
< %
Do While Not rs2.eof
% >
< TABLEcellSpacing = 0 cellPadding = 0 width = " 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 >