📄 admin_index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="md5.asp" -->
<%
stats=txl_info(0)&"--控制面板"
select case request("action")
case "admin_left"
call admin_left()
case "admin_login"
call admin_login()
case "admin_main"
call admin_main()
case "admin_head"
call admin_head()
case else
call main()
end select
sub main()
if not supermaster or session("flag")="" then
call admin_login()
else
%>
<html>
<head>
<title><%=txl_info(0)%>--控制面板</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset cols="180,*" frameborder="NO" border="0" framespacing="0" rows="*">
<frame name="leftFrame" scrolling="AUTO" noresize src="admin_index.asp?action=admin_left" marginwidth="0" marginheight="0">
<frameset rows="20,*" framespacing="0" border="0" frameborder="0" frameborder="no" border="0">
<frame src="admin_index.asp?action=admin_head" name="head" scrolling="NO" NORESIZE frameborder="0" marginwidth="10" marginheight="0" border="no">
<%if session("flag")="" then%>
<frame name="main" src="admin_index.asp?action=admin_login" scrolling="AUTO" NORESIZE frameborder="0" marginwidth="10" marginheight="10" border="no">
<%else%>
<frame name="main" src="admin_index.asp?action=admin_main" scrolling="AUTO" NORESIZE frameborder="0" marginwidth="10" marginheight="10" border="no">
<%end if%>
</frameset>
</frameset>
<noframes>
</body></noframes>
</html>
<%
end if
end sub
sub admin_left()
%>
<title><%=txl_info(0)%>--管理页面</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>
<script src="<%=txl_set25%>"></script>
<%
REM 管理栏目设置
dim menu(5,10)
menu(0,0)="常规设置"
menu(0,1)="<a href=admin_set.asp target=main>常规设置信息</a>"
menu(0,2)="<a href=admin_ads.asp target=main>页面广告设置</a>"
menu(0,3)="<a href=admin_inputfile.asp target=main>初始信息设置</a>"
menu(0,4)="<a href=admin_link.asp?action=add target=main>友情链接添加</a> | <a href=admin_link.asp target=main>管理</a>"
menu(0,5)="<a href=admin_announce.asp?action=AddAnn target=main>发布当前公告</a> | <a href=admin_announce.asp target=main>管理</a>"
menu(1,0)="用户管理"
menu(1,1)="<a href=admin_user.asp target=main>用户信息管理</a>"
menu(1,2)="<a href=admin_wealth.asp target=main>用户积分设置</a>"
menu(1,3)="<a href=admin_group.asp target=main>用户组管理</a>"
menu(1,4)="<a href=admin_admin.asp?action=add target=main>管理员添加</a> | <a href=admin_admin.asp target=main>管理</a>"
menu(1,5)="<a href=admin_message.asp target=main>同学录短信管理</a>"
menu(1,6)="<a href=admin_mailist.asp target=main>邮件列表</a>"
menu(1,7)="<a href=admin_update.asp?action=user target=main>更新用户数据</a>"
menu(2,0)="班级相册管理"
menu(2,1)="<a href=admin_pset.asp target=main>照片类别设置</a>"
menu(2,2)="<a href=admin_padmin.asp target=main>所有照片管理</a>"
menu(2,3)="<a href=admin_precycle.asp target=main>照片回收站</a>"
menu(3,0)="删除管理"
menu(3,1)="<a href=admin_gdel.asp target=main>留言批量删除</a>"
menu(3,2)="<a href=admin_bdel.asp?action=moveinfo target=main>帖子批量删除</a>"
menu(3,3)="<a href=admin_update.asp?action=all target=main>更新同学录总数据</a>"
menu(4,0)="外观设置"
menu(4,1)="<a href=admin_color.asp target=main>当前模板CSS设置</a>"
menu(4,2)="<a href=admin_pic.asp target=main>当前模板图片设置</a>"
menu(4,3)="<a href=admin_skin.asp target=main>同学录模板管理</a>"
menu(4,4)="<a href=admin_skin.asp?action=news target=main>CSS模板添加</a>"
menu(5,0)="数据处理(Access)"
menu(5,1)="<a href=admin_data.asp?action=CompressData target=main>压缩数据库</a>"
menu(5,2)="<a href=admin_data.asp?action=BackupData target=main>备份数据库</a>"
menu(5,3)="<a href=admin_data.asp?action=RestoreData target=main>恢复数据库</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="admin_index.asp" target=_top><b>管理首页</b></a> | <a href=admin_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%>
<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_9.gif" id=menuTitle1><span>同学录信息</span></td>
</tr>
<tr>
<td><div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr>
<td height=20 style="line-height: 150%"> <br>版权所有：<a href="http://www.hrbyydz.com/" target=_blank>岩岩电子</a><BR>
支持论坛：<a href="http://www.hrbyydz.com/bbs" target=_blank>岩岩论坛</a><BR><BR></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<%
end sub
sub admin_login()
stats="论坛管理登陆"
if not founduser then
Errmsg="<li>您不是系统管理员！"
founderr=true
end if
if founderr then
call head()
call head_var("错误信息","")
call txl_error()
call foot()
else
if request("reaction")="chklogin" then
call chklogin()
if founderr then
call head()
call head_var("","")
call txl_error()
call foot()
end if
else
dim num1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -