<%
'//预定义
dim menu(2,9),j,tmpmenu,menuname,menurl
menu(0,0)="信息管理"
menu(0,1)="发布信息 | 修改信息"
menu(0,2)="查找信息 | 推荐信息"
menu(1,0)="综合管理"
menu(1,1)="类别管理 | 用户管理"
menu(1,2)="空间占用 | 系统设置"
menu(1,3)="数据库维护|友情链接"
menu(2,0)="版权信息"
menu(2,1)="当前版本：V3.0"
menu(2,2)="阿达工作室"
sub showMenu()
dim menuStr
for i=0 to ubound(menu,1)
menuStr = "
"&_
""&_
""&_
"
"&_
""&_
""&_
"
"&_
"
"
Response.Write menuStr
next
end sub
%>