www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\left.asp
<!--#include file="conn.asp"-->
<%
if session("logined")<>"ok" then
Response.Redirect("index.asp")
end if
%>
<head>
<title></title>
<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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<%
REM 管理栏目设置
dim menu(1,6)
menu(0,0)="系统管理"
menu(0,1)="<a href=message.asp target=main>基本信息设置</a>"
menu(0,2)="<a href=manager_change_pw.asp?login_name="&session("login_name")&" target=main>修改管理员密码</a>"
menu(0,3)="<a href=manager_backup.asp target=main>数据库备份</a>"
menu(0,4)="<a href=../cutecounter/show.asp target=main>访问统计</a>"
menu(0,5)="<a href=../gtbook/admin.asp target=main>留言管理</a>"
menu(0,6)="<a href=ewebeditor/admin_default.asp target=main>文章编辑器设置</a>"
menu(1,0)="内容管理"
menu(1,1)="<a href=add_word.asp target=main>作品添加</a> | <a href=manage_word.asp target=main>管理</a>"
menu(1,2)="<a href=add_diary.asp target=main>签写日记</a> | <a href=manage_diary.asp target=main>管理</a>"
menu(1,3)="<a href=add_photo.asp target=main>相片添加</a> | <a href=manage_photo.asp target=main>管理</a>"
menu(1,4)="<a href=add_music.asp target=main>歌曲添加</a> | <a href=manage_music.asp target=main>管理</a>"
menu(1,5)="<a href=add_news.asp target=main>添加文章</a> | <a href=manage_news.asp target=main>管理</a>"
menu(1,6)="<a href=add_link.asp target=main>链接添加</a> | <a href=manage_link.asp target=main>管理</a>"
%>
<BODY bgcolor="#9DACBF" scroll="no">
<table width=100% cellpadding=0 cellspacing=0 border=0>
<tr><td>
<table cellpadding=3 cellspacing=2 width=98% align=center>
<tr>
<td height=38 align="center" class="tablebo1" style="line-height:20px;"><strong><font color="#ffff00">--〓-- <%=web_name%> --〓--</font></strong><br>
控制面板</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 width=94% align=center>
<tr>
<td height=22 align="center">
<a href="main.asp" target=main><b>管理首页</b></a> | <a href=logout.asp target=_top><b>退出</b></a>
</td>
</tr>
</table>
<%
dim j
dim tmpmenu
dim menuname
dim menurl
for i=0 to ubound(menu,1)
%>
<table cellpadding=5 cellspacing=2 width=94% align=center>
<tr>
<td class=tablebo1 id=menuTitle1 onclick="showsubmenu(<%=i%>)">
<span><%=menu(i,0)%></span> </td>
</tr>
</table>
<table cellpadding=5 cellspacing=2 align=center width=94% style="display:" id='submenu<%=i%>'>
<%
for j=1 to ubound(menu,2)
if isempty(menu(i,j)) then exit for
%>
<tr><td height=20 class="tablebo2" onMouseOver="this.style.background='#efefef'" onMouseOut="this.style.background='#cccccc'"><%=menu(i,j)%></td></tr>
<%
next
%>
</table>
<table cellpadding=0 cellspacing=0 align=center width=94%>
<tr><td height=5></td></tr>
</table>
<%next%>
<table cellpadding=5 cellspacing=2 width=94% align=center>
<tr>
<td height=20 class="tablebo1">
<span>版权信息</span> </td>
</tr>
</table>
<table width="94%" border="0" align="center" cellpadding="5" cellspacing="2">
<tr>
<td class="tablebo2" style="line-height:16px;">名 称：<a href="<%=web_url%>" target="_blank"><%=web_name%></a><br>地 址：xxhee.com<br>开发者：沉默的羔羊<br>Copyright (C) 2006</td>
</tr>
</table>