⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_index.asp

📁 BBS源码 利用ASP的一个功能齐全的BBS论坛源码
💻 ASP
字号:
🔍 
<!--#include file="Admin_check.asp"-->
<%'*****************************************************************************
' 程序功能：OA主界面框架，其中使用两个Iframe一个显示工具栏，另一个对应主要内容。		  
' 作    者：随冰
' 创建时间：2005年2月4日
' 修	改：
'*****************************************************************************
Set BBS94KK=Nothing%>
<title>论坛管理::就是快快94KK::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if Request("action")="left" then 
	Call mainleft()
Else
	Call main()
End If

Sub Main()
%>
<script language=Javascript>
<!--
function showHideMenu() {
	if (frmMenu.style.display=="") {
		frmMenu.style.display="none";
switchPoint.background='Images/ban1.gif';
		}
	else {
		frmMenu.style.display="";
switchPoint.background='Images/ban.gif';
		}
}
-->
</script>
<style type="text/css">
<!--
.navPoint
{
	font-family: Webdings;
	font-size:9pt;
	color:white;
	cursor:hand;
}
.tblLeftbody
{
	BACKGROUND: #8cbde7;
	BORDER-BOTTOM: #30404f 2px solid;
	BORDER-LEFT: #b8d2e9 2px solid;
	BORDER-RIGHT: #30404f 0px solid;
	BORDER-TOP: #b8d2e9 2px solid
}.tblbody
{
	BACKGROUND: #6699cc;
	BORDER-BOTTOM: #30404f 2px solid;
	BORDER-LEFT: #b8d2e9 2px solid;
	BORDER-RIGHT: #30404f 2px solid;
	BORDER-TOP: #b8d2e9 2px solid
}
-->
</style>
</head>
<body   scroll="no" style="MARGIN: 0px" leftmargin="0" topmargin="0"><frameset cols="160,*" framespacing="0" border="0" frameborder="0">
<!--在这个表中，左边显示对应地工具栏，右边显示对应地内容-->
<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%" id = "tblTotal" Name = "tblTotal"><tr>
<!--工具栏显示区-->
<td id="frmMenu" name="frmMenu" nowrap valign="center" align="middle">
<iframe id=BoardTitle name=BoardTitle   scrolling="no" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 170px; Z-INDEX: 2" frameborder="0" src="?action=left"></iframe></td>
<!--工具栏显示区结束--><!--工具栏控制开关-->
<td background="Images/bg.gif" style="WIDTH: 5pt" onClick="showHideMenu()">	
<table width="8"  height="80" cellpadding="0" cellspacing="0" background="Images/ban.gif" class="navPoint" id="switchPoint" title="关闭/开启菜单栏"><tr><td></td></tr></table></td>
<!--工具栏控制开关结束-->
<td width="100%"><!--内容显示对应-->
<iframe id="Right" name="Right" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1" frameborder="0" src="admin_right.asp">
<noframes>
<p>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</iframe></td>
<!--内容显示对应结束--></tr>
</table><!--表tblTotal结束-->
</body>
</html>
<%End Sub%>

<%sub mainleft()
Dim B
B="<img src='Images/bullet.gif' width='15' height='20'>"
%>
<style type="text/css">
<!--
BODY {BACKGROUND: #799ae1; MARGIN: 0px; FONT: 9pt 宋体}
TABLE {BORDER: 0px; }
TD {FONT: 12px 宋体;}
IMG {BORDER-RIGHT: 0px; BORDER-TOP: 0px; VERTICAL-ALIGN: bottom; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px}
A {FONT: 12px 宋体; COLOR: #295C87; TEXT-DECORATION: none}
A:hover {COLOR: #FB921E}
.sec_menu {BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid}
.menu_title SPAN {FONT-WEIGHT: bold; LEFT: 8px; COLOR: #175866; POSITION: relative; TOP: 2px}
.menu_title2 SPAN {FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px}
-->
</style>
<SCRIPT language=javascript>
function menuShow(obj,maxh,obj2)
{
  if(obj.style.pixelHeight<maxh)
  {
    obj.style.pixelHeight+=maxh/20;
	obj.filters.alpha.opacity+=5;
	obj2.background="Images/title_bg_hide.gif";
    if(obj.style.pixelHeight==maxh/10)
	  obj.style.display='block';
	myObj=obj;
	myMaxh=maxh;
	myObj2=obj2;
	setTimeout('menuShow(myObj,myMaxh,myObj2)','5');
  }
}
function menuHide(obj,maxh,obj2)
{
  if(obj.style.pixelHeight>0)
  {
    if(obj.style.pixelHeight==maxh/20)
	  obj.style.display='none';
    obj.style.pixelHeight-=maxh/20;
	obj.filters.alpha.opacity-=5;
	obj2.background="Images/title_bg_show.gif";
	myObj=obj;
	myMaxh=maxh
	myObj2=obj2;
	setTimeout('menuHide(myObj,myMaxh,myObj2)','5');
  }
  else
    if(whichContinue)
	  whichContinue.click();
}
function menuChange(obj,maxh,obj2)
{
  if(obj.style.pixelHeight)
  {
    menuHide(obj,maxh,obj2);
	whichOpen='';
	whichcontinue='';
  }
  else
    if(whichOpen)
	{
	  whichContinue=obj2;
      whichOpen.click();
	}
	else
	{
	  menuShow(obj,maxh,obj2);
	  whichOpen=obj2;
	  whichContinue='';
	}
}
</SCRIPT>
<base target="Right">
</head>
<body onselectstart="return false">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=left border=0><TBODY><TR><TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY><TR><TD vAlign=bottom height=42><IMG height=38 src="Images/title.gif" width=158> </TD></TR></TBODY></TABLE>
<TABLE width=158 align=center cellPadding=0 cellSpacing=0 bgcolor="#D6E0F9"><TBODY>
<TR style="CURSOR: hand"><TD  height=4 colspan="4" valign="top" class=menu_title></TD></TR>
<TR style="CURSOR: hand"><TD width="23"  height=21 class=menu_title valign="top">
<div align="right"><img src="Images/home.gif" width="16" height="16" align="absmiddle"><br></div></TD>
<TD width="55" class=menu_title><b><a target="_top" href="admin_index.asp"> 管理首页</a></b> </TD>
<TD width="22" class=menu_title valign="top"><div align="right"><img src="Images/exit.gif" width="16" height="16" align="absmiddle"><br></div></TD>
<TD width="56" class=menu_title><b><a target="_top" href="admin_login.asp?action=exit"> 退出管理</a></b> </TD>
</TR></TBODY></TABLE>
	<table height=2><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY>
<TR style="CURSOR: hand"><TD class=menu_title id=menuTitle1  onclick=menuChange(menu1,140,menuTitle1);  background="Images/title_bg_hide.gif" height=25>
<span>&nbsp;系统-常规-设置</span> </TD></TR><TR>
<TD><DIV class=sec_menu id=menu1  style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0   cellPadding=0 width=135 align=center><TBODY>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=BbsInfo" >论坛信息设置 </a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Placard.asp">公告发布管理</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=GapAd" >帖间广告管理</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=BbsLink" >论坛联盟管理</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=LockIp" >I P 封锁管理</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=Clean" >更新论坛缓存</a></TD></TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE> <table height=2><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY><TR style="CURSOR: hand">         
<TD class=menu_title id=menuTitle3  onclick=menuChange(menu3,100,menuTitle3);   background="Images/title_bg_show.gif" height=25>
<span>&nbsp;分类-版块-整理</span> </TD></TR>         
<TR><TD><DIV class=sec_menu id=menu3 style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">         
<TABLE style="POSITION: relative; TOP: 10px;" cellSpacing=0 cellPadding=0 width=135 align=center><TBODY>         
<TR><TD height=20><%=B%><a href="Admin_Board.asp">论坛版面管理</a></TD> </TR>
<TR><TD height=20><%=B%><a href="Admin_Board.asp?Action=AddClass" >添加论坛分类</a></TD> </TR>         
<TR><TD height=20><%=B%><a href="Admin_Board.asp?Action=AddBoard">添加论坛版面</a></TD> </TR> 
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=UpdateBbs">论坛整理修复</a></TD> </TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>		
	<table height=2><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY>
<TR style="CURSOR: hand"><TD class=menu_title id=menuTitle2  onclick=menuChange(menu2,140,menuTitle2); background="Images/title_bg_show.gif"  height=25>
<span>&nbsp;用户-版主-超管</span></TD></TR>
<TR><TD><DIV class=sec_menu id=menu2 style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0  cellPadding=0 width=135 align=center><TBODY>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=TopAdmin" >设置论坛超管</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=BoardAdmin">设置论坛版主</a></TD></TR>                   
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=Vip">设置 VIP用户</a></TD></TR>         
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=DelUser">用户删除恢复</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=UpdateUser">修改用户信息</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=GradeName" >用户等级名称</a></TD></TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
<table height=2><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY>         
<TR style="CURSOR: hand"><TD class=menu_title id=menuTitle7  onclick=menuChange(menu7,140,menuTitle7);  background="Images/title_bg_show.gif" height=25>
<SPAN>&nbsp;帖子-留言-文件</SPAN> </TD></TR>         
<TR><TD><DIV class=sec_menu id=menu7  style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">          
<TABLE style="POSITION: relative; TOP: 10px;" cellSpacing=0  cellPadding=0 width=135 align=center>         <TBODY>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=DelEssay" >批量删除帖子</a></TD></TR>          
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=MoveEssay" >批量移动帖子</a></TD></TR>          
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=DelSms" >批量删除留言</a></TD></TR>          
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=AllSms" >群发信件留言</a></TD></TR>          
<TR><TD height=20><%=B%><a href="Admin_UpLoad.asp" >上传文件管理</a></TD></TR> 
<TR><TD height=20><%=B%><a href="Admin_Recycle.asp" >论坛回收站</a></TD></TR> 
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>         
<table height=2><tr><td></td></tr></table>			
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY>         
<TR style="CURSOR: hand"><TD class=menu_title id=menuTitle6  onclick=menuChange(menu6,120,menuTitle6); background="Images/title_bg_show.gif"  height=25>
<SPAN>&nbsp;插件-风格-管理</SPAN> </TD></TR>         
<TR><TD><DIV class=sec_menu id=menu6  style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">          
<TABLE style="POSITION: relative; TOP: 10px;" cellSpacing=0 cellPadding=0 width=135 align=center>  <TBODY>  
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=Plus" >论坛插件管理</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=Bank">论坛银行管理</a></TD></TR>	
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=Faction">论坛帮派管理</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Template.asp">风格模板管理</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Template.asp?Action=SkinData">风格数据导出</a><a href="Admin_Template.asp?Action=Load">导入</a></TD></TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>         
	<table height=2><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY>         
<TR style="CURSOR: hand"><TD class=menu_title id=menuTitle11 onclick=menuChange(menu11,140,menuTitle11); background="Images/title_bg_show.gif" height=25>
<SPAN>&nbsp;数据-分表-空间</SPAN> </TD></TR>
<TR><TD><DIV class=sec_menu id=menu11 style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">          
<TABLE style="POSITION: relative; TOP: 10px;" cellSpacing=0    cellPadding=0 width=135 align=center><TBODY> 
<TR><TD height=20><%=B%><a href="Admin_Confirm.asp?Action=CompressData">压缩数据库</a></TD></TR>         
<TR><TD height=20><%=B%><a href="Admin_Confirm.asp?Action=BackupDate">备份数据库</a></TD></TR>         
<TR><TD height=20><%=B%><a href="Admin_Confirm.asp?Action=RestoreData">恢复数据库</a></TD></TR>        
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=SqlTable">数据表管理</a></TD></TR>         
<TR><TD height=20><%=B%><a href="Admin_Confirm.asp?Action=ExecuteSql">执行SQL语句</a></TD></TR>
<TR><TD height=20><%=B%><a href="Admin_Action.asp?Action=SpaceSize">空间占用情况</a></TD></TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>        
	<table height=2><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY>         
<TR style="CURSOR: hand"> <TD class=menu_title id=menuTitle12 onclick=menuChange(menu12,120,menuTitle12);  background="Images/title_bg_show.gif"  height=25><SPAN>&nbsp;94KkBbs信息</SPAN> </TD></TR>         
<TR><TD><DIV  id=menu12 class=sec_menu  style="FILTER: alpha(Opacity=110); WIDTH: 158px; HEIGHT:0px">         
<TABLE style="POSITION: relative; TOP: 4px;" cellSpacing=0   cellPadding=0 width=140 align=center><TBODY>         
<tr><td height=20><%=B%><a target="_blank" href="http://bbs.94kk.com"><font color=#000000>版权所有：</font>就是快快</a></td></tr>
<tr><td height=20><%=B%><a target="_blank" href="http://bbs.94kk.com"><font color=#000000>官方网站：</font>94KK.Com</a></td></tr>
<tr><td height=20><%=B%><a target="_blank" href="http://bbs.94kk.com"><font color=#000000>技术支持：</font>就是快快</a></td></tr>
<tr><td height=20><%=B%><a target="_blank" href="http://www.lamking.com"><font color=#000000>技术支持：</font>河马论坛</a></td></tr>
<tr><td height=10></td></tr></TBODY></TABLE>
</DIV></TD></TR></TBODY></TABLE>        
<table border="0" WIDTH="100%" HEIGHT="20%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" bgcolor="#799AE1"><tr></tr></table>           
</body>
<SCRIPT language=javascript>         
  var whichOpen="";         
  var whichContinue='';         
</SCRIPT> 
<%end sub%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -