動態二級伸縮式的菜單，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">
<!--
.style1 {color: #FFFFFF}
-->
</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">
<DIV class="sec_menu" style="WIDTH: 140px">
<TABLE cellSpacing="0" cellPadding="0" width="90%" align="center" ID="Table4">
<TBODY>
<TR align="center">
<TD height="20">
<a target="main" href="admin_config.asp">網站基本資料</a>
</TR>
<TR align="center">
<TD height="20">
<a target="main" href="admin_admin.asp?action=admin">管理員管理</a></TD>
</TR>
<TR align="center">
<TD height="20">
<a href="book.asp" target="_blank">留言本管理</a></TD>
</TR>
<TR align="center">
<TD height="20">
<a target="main" href="admin_admin.asp?action=modpass">變更管理員密碼</a>
</TR>
<TR align="center">
<TD height="20">
<a target="main" href="admin_recount.asp">更新首頁統計數</a>
</TR>
</TBODY></TABLE>
</DIV>
</TD>
</TR>
</TBODY></TABLE>
<TABLE width="140" align="center" cellPadding="0" cellSpacing="1" class="a2" ID="Table5">
<TBODY>
<TR align="center" class="a1">
<TD height="25" align="center" bgcolor="#6381C1" class="menu_title" id="menuTitle1" style="cursor:hand" onclick="showsubmenu(3)" onmouseover="this.className='menu_title2';"
onmouseout="this.className='menu_title';"><SPAN class="style1">四撐杆兩瓣抓鬥
</SPAN></TD>
</TR>
<TR align="center" class="a3">
<TD id="submenu3" style="DISPLAY: none">
<DIV class="sec_menu" style="WIDTH: 130px">
<TABLE cellSpacing="0" cellPadding="0" width="90%" align="center" ID="Table6">
<TBODY>
<TR align="center">
<TD height="20">
<a href="adm