树形菜单，二级，必须每个项目均有子菜单

<!--#includefile="inc/conn.asp"-->
<TABLEheight=8cellSpacing=0cellPadding=0
width="100%"border=0bgcolor="8A0000">

<TR>
<TDheight=8align="center"><imgsrc="image/catalog.jpg"/></TD></TR></TABLE>

<tablewidth="200"><tr><td>
<%
setrs=conn.execute("select*frombigclass")
ifrs.recordcount=0then
Response.Write("")
else
i=0
whilenotrs.eof
Response.Write("<ahref=""javascript:menu"&i&"func()""><b>"&rs("bigclassname")&"</b></a><br>"&CHR(10))
ljh_temp=ljh_temp&"menu"&i&".style.display=""none"";"&CHR(10)
ljh_temp2=ljh_temp2&"functionmenu"&i&"func()"&CHR(10)&"{"&CHR(10)&"if(menu"&i&".style.display==""none"")"&CHR(10)&"{"&CHR(10)&"startmenu();"&CHR(10)&"menu"&i&".style.display=""block"";"&CHR(10)&"}"&CHR(10)&"else"&CHR(10)&"{"&CHR(10)&"startmenu();"&CHR(10)&"}"&CHR(10)&"}"&CHR(10)&""
setrs2=conn.execute("select*fromsmallclasswherebigclassname='"&rs("bigclassname")&"'")
ifrs2.recordcount=0then
Response.Write("<divid=""menu"&i&"""style=""DISPLAY:none""></div>"&CHR(10))
else
Response.Write("<divid=""menu"&i&"""style=""DISPLAY:none"">"&CHR(10))
whilenotrs2.eof
Response.Write("&nbsp;&nbsp;&nbsp;-<ahref=""product.asp?bigclassname="&rs("bigclassname")&"&smallclassname="&rs2("smallclassname")&""">"&rs2("smallclassname")&"</a><br>"&CHR(10))
rs2.movenext
wend
Response.Write("</div>"&CHR(10))
endif
rs2.close
setrs2=nothing
i=i+1
rs.movenext
wend
endif
rs.close
setrs=nothing
Response.Write("<scriptlanguage=""javascript""type=""text/javascript"">"&CHR(10))
Response.Write("functionstartmenu()"&CHR(10)&"{"&CHR(10)&ljh_temp&"}"&CHR(10))
Response.Write(ljh_temp2)
Response.Write("</script>")
%>
</td></tr></table>

http://www.corange.cn/archives/2008/03/517.html