动态的二级伸缩式的菜单，asp编写

这是本来的静态的二级菜单
    <META http-equiv="Content-Type" content="text/html; charset=gb2312">
    <LINK href="admin/adminstyle.css" type="text/css" rel="stylesheet">
     <SCRIPT>
function aa(Dir)
{tt.doScroll(Dir);Timer=setTimeout('aa("'+Dir+'")',100)}//这里100为滚动速度
function StopScroll(){if(Timer!=null)clearTimeout(Timer)}
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display="";");
}
else
{
eval("submenu" + sid + ".style.display="none";");
}
}
     </SCRIPT>
         <style type="text/css">

         </style>
<center>
<script>
var he=document.body.clientHeight-105
document.write("<div id=tt style=height:"+he+";overflow:hidden>")
    </script>
    <TABLE cellSpacing="1" cellPadding="0" width="140" align="center" class="a2" ID="Table3">
     <TBODY>
    <TR align="center" class="a1">
     <TD width="140" height="25" align="center" bgcolor="#6381C1" class="menu_title" id="menuTitle1" style="cursor:hand" onclick="showsubmenu(0)" onmouseover="this.className='menu_title2';"
        onmouseout="this.className='menu_title';"><SPAN><span class="style1">四撑杆两瓣抓斗</span>
        </SPAN></TD>
    </TR>
    <TR align="center" class="a3">
     <TD id="submenu0" style="DISPLAY: none">

补充：asp教程,高级应用