📄 left.asp
字号:
<!-- #Include File="conn.asp" -->
<!-- #include file="top1.asp" -->
<%
if a=1 then
response.write "<script language='javascript'>"
response.write "alert('你还没有登录，请重新登录');"
response.write "history.go(-1);"
response.write "</script>"
else
set rs=server.CreateObject("ADODB.recordset")
rs.open "index",conn,3,3
name=rs("name")
rs.close
set rs=nothing
%>
<title><%=name%>--管理系统</title>
<style type=text/css>
body { background:#799AE1; margin:0px; font:9pt 宋体; }
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover { color:#428EFF;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<SCRIPT language=javascript1.2>
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>
<%
REM 管理栏目设置
dim menu(6,5)
menu(0,0)="站点管理"
menu(0,1)="<a href=admin_cg.asp target=main>常规设置</a>"
menu(0,2)="<a href=admin_gg.asp target=main>公告设置</a>"
menu(1,0)="商品管理"
menu(1,1)="<a href=admin_book.asp target=main>添加新商品</a>"
menu(1,2)="<a href=admin_xbook.asp target=main>查看与修改商品</a>"
menu(1,3)="<a href=admin_tjbook.asp target=main>特价商品管理</a>"
menu(1,4)="<a href=admin_dingdan.asp target=main>商品订单管理</a>"
menu(2,0)="附加管理"
menu(2,1)="<a href=me.asp target=main>查看与修改运费</a>"
menu(2,2)="<a href=../gg target=main>广告管理</a>"
menu(2,3)="<a href=me.asp target=main>活动公告</a>"
menu(2,4)="<a href=me.asp target=main>友情链接</a>"
menu(3,0)="会员管理"
menu(3,1)="<a href=admin_user.asp target=main>会员管理</a>"
menu(4,0)="类别管理"
menu(4,1)="<a href=admin_gys.asp target=main>供应商管理</a>"
menu(4,2)="<a href=me.asp target=main>商品类别管理</a>"
menu(5,0)="帐号管理"
menu(5,1)="<a href=admin_admin.asp?action=pwd target=main>密码修改</a>"
menu(5,2)="<a href=admin_admin.asp?action=admin target=main>增加/删除管理员</a>"
menu(6,0)="数据处理"
menu(6,1)="<a href=admin_data.asp?action=CompressData target=main>压缩数据库</a>"
menu(6,2)="<a href=admin_data.asp?action=BackupData target=main>备份数据库</a>"
menu(6,3)="<a href=admin_data.asp?action=RestoreData target=main>恢复数据库</a>"
menu(7,0)="程序设计"
menu(7,1)="程序制作"
menu(7,2)="<a href=http://www.gx77.com>创涌科技</a>"
%>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width=100% cellpadding=0 cellspacing=0 border=0 align=left>
<tr><td valign=top>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=42 valign=bottom>
<img src="images/title.gif" width=158 height=38>
</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif >
<span><a href="index.asp" target=_top><b>管理首页</b></a> | <a href="logout.asp" target=_top><b>退出</b></a></span>
</td>
</tr>
</table>
<%
dim j
dim tmpmenu
dim menuname
dim menurl
for i=0 to ubound(menu,1)
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_<%=i+1%>.gif" id=menuTitle1 onclick="showsubmenu(<%=i%>)">
<span><%=menu(i,0)%></span>
</td>
</tr>
<tr>
<td style="display:" id='submenu<%=i%>'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<%
for j=1 to ubound(menu,2)
if isempty(menu(i,j)) then exit for
%>
<tr><td height=20><%=menu(i,j)%></td></tr>
<%
next
%>
</table>
</div>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
</td>
</tr>
</table>
<%next%>
</td>
</tr>
</table>
<%
conn.close
set conn=nothing
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -