asp两级纵向动态目录实现

<style>
.inner_ul{position:absolute;margin:0px; padding:0px;float:left;}
.inner_ul ul{ margin:0px; padding:0px;}
.inner_ul ul li{ height:31px; line-height:31px;}
</style>
<div ) %></a></li>
          <%
  SortRs2.MoveNext
Loop
end if
SortRs2.Close
Set SortRs2=Nothing
  %>
          </ul></div>
          </li>
        <%
  SortRs.MoveNext
Loop
%>
        <%
End if
SortRs.Close
Set SortRs=Nothing

%>

</ul></div>
<div class="guanggao">
<object + sid);

if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}

function hideSubMenu(sid)
{
whichEl = eval("submenu" + sid);
eval("submenu" + sid + ".style.display=\"none\";");
}

</script>