📄 admin_left.asp
字号:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css.css" rel="stylesheet" type="text/css" />
<title><%=webname%></title>
</head>
<body>
<script language="JavaScript" type="text/JavaScript">
function showtb(tbnum)
{
if (document.getElementById("tbtype" + tbnum).style.display == "none")
{document.getElementById("tbtype" + tbnum).style.display="";
}
else{document.getElementById("tbtype" + tbnum).style.display="none";
}
}
</script>
<% sub ksmydht
dim menu(10,10)
menu(0,0)="<a href='admin.asp'target='_parent'><font color='ffffff'><font size='3'>管理首页</</font></a>"
menu(0,1)="退出登陆,index.asp target='_parent'"
menu(1,0)="留言本管理"
menu(1,1)="信息修改,admin_xx.asp target='right'"'连接后可添加target=‘_blank’表示在哪儿打开
menu(2,0)="用户管理"
menu(2,1)="添加用户,reg.asp?act=ok target='right'"
menu(2,2)="删除用户,user.asp target='right'"
menu(2,3)="等级修改,admin_dj.asp target='right'"
menu(3,0)="分类管理"
menu(3,1)="添加分类,admin_class.asp?act=add target='right'"
menu(3,2)="修改分类,admin_class.asp?act=edit target='right'"
menu(3,3)="删除分类,admin_class.asp?act=del target='right'"
menu(4,0)="用户DIY"
%>
<% for i=0 to ubound(menu,1)
If isempty(menu(i,0)) then exit for'此处的0就显示没有小菜单的，要是为1就显示只有小彩旦的%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >
<tr bordercolor="#0099CC" bgcolor="#0099CC">
<td width="10%" align="center" class="dhzi" style="CURSOR: hand" onclick=showtb(<%=i%>)><%=menu(i,0)%></span></td>
</tr>
<tr bordercolor="#0099CC" >
<td align="center" class="biaogebiankuang" id=tbtype<%=i%>>
<%for II=1 to ubound(menu,2)
if isempty(menu(I,II)) then Exit for
Temp=Split(menu(I,II),",")
MenuUrl=Temp(1)
MenuName=Temp(0)
%>
<table width="100%" border="0">
<tr>
<td align="center"><a href=<%=MenuUrl%>><%=menuname%></a></td>
</tr>
<%next%>
</table>
</td>
</tr>
</table>
<%next%>
<%end sub%>
<%call ksmydht%>
<a href="admin.asp" target="_parent"></a>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >
<tr bordercolor="#0099CC" bgcolor="#0099CC">
<td width="10%" align="center" class="dhzi" >紫蝶轩留言本</td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="center" class="biaogebiankuang" ><p>版权©归作者所有<br>
当前版本V2.0<br>
设计制作：<a href="mailto:loveksmy@yahoo.com.cn">ksmy</a></p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -