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="admin_diary.asp" target="main"〉公告管理〈/a〉〈/TD〉
〈/TR〉
〈TR align="center"〉
〈TD height="20"〉
〈a href="admin_diary.asp?action=newdiary" target="main"〉新添公告〈/a〉〈/TD〉
〈/TR〉
〈TR align="center"〉
〈TD height="20"〉
〈a href="admin_vote.asp?action=vote" target="main"〉投票管理〈/a〉〈/TD〉
〈/TR〉
〈TR align="center"〉
〈TD height="20"〉
〈a href="admin_vote.asp?action=newvote" target="main"〉新添投票〈/a〉〈/TD〉
〈/TR〉
〈TR align="center"〉
〈TD height="20"〉
〈a href="admin_news.aspx" target="main"〉新闻管理〈/a〉 | 〈a href="admin_news.aspx" target="main"〉添加〈/a〉〈/TD〉