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

<TABLE height=8 cellSpacing=0 cellPadding=0
                              width="100%" border=0 bgcolor="8A0000">

                                <TR>
                                <TD height=8 align="center"><img src="image/catalog.jpg" /></TD></TR></TABLE>

<table width="200"><tr><td>
<%
set rs=conn.execute("select * from bigclass")
if rs.recordcount=0 then
Response.Write("")
else
i=0
while not rs.eof
Response.Write(" <a href=""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&"function menu"&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)&""
set rs2=conn.execute("select * from smallclass where bigclassname='"&rs("bigclassname")&"'")
if rs2.recordcount=0 then
Response.Write("<div id=""menu"&i&""" style=""DISPLAY: none""> </div>"&CHR(10))
else
Response.Write("<div id=""menu"&i&""" style=""DISPLAY: none"">"&CHR(10))
while not rs2.eof
Response.Write("   -<a href=""product.asp?bigclassname="&rs("bigclassname")&"&smallclassname="&rs2("smallclassname")&""">"&rs2("smallclassname")&"</a><br>"&CHR(10))
rs2.movenext
wend
Response.Write("</div>"&CHR(10))
end if
rs2.close
set rs2=nothing
i=i+1
rs.movenext
wend
end if
rs.close
set rs=nothing
Response.Write("<script language=""javascript"" type=""text/javascript"">"&CHR(10))
Response.Write("function startmenu()"&CHR(10)&"{"&CHR(10)&ljh_temp&"}"&CHR(10))
Response.Write(ljh_temp2)
Response.Write("</script>")
%>
</td></tr></table>