admin.asp

一个asp写的论坛源代码,论坛所需要的功能都有

	</td></tr>
	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id1',1)"><img id="img_id1" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id1',1)" class="a1"><b>论坛设置</b></a>
		</td></tr>
		<tbody id="cate_id1" style="display:none;">
         <tr>
            <td class="a4"><a href="Admin_Forum.asp" target="main">　编辑版块</a> </td>
          </tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Manage.asp" target="main">　快捷管理</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Manage.asp?Action=readkey" target="main">　帖子审核</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Update.asp" target="main">　更新论坛统计</a>
		  </td>
		</tr>
		</tbody>
		</table>
	</td></tr>

	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id2',1)"><img id="img_id2" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id2',1)" class="a1"><b>分组与级别</b></a>
		</td></tr>
		<tbody id="cate_id2" style="display:none;">
          <tr>
            <td class="a4"><a href="Admin_Group.asp" target="main">　管理组</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admin_Group.asp?Action=IsuserGroup" target="main">　用户组</a> </td>
          </tr>
		</tbody>
		</table>
	</td></tr>

	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id3',1)"><img id="img_id3" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id3',1)" class="a1"><b>用户管理</b></a>
		</td></tr>
		<tbody id="cate_id3" style="display:none;">
		<tr>
		  <td class="a4">
		  <a href="Admin_User.asp" target="main">　编辑用户</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_User.asp?action=adduser" target="main">　添加用户</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_User.asp?action=setuser" target="main">　合并用户</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_User.asp?action=Activation" target="main">　审核用户</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_User.asp?action=getmoney" target="main">　工资管理</a>
		  </td>
		</tr>
		</tbody>
		</table>
	</td></tr>

	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id4',1)"><img id="img_id4" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id4',1)" class="a1"><b>界面风格</b></a>
		</td></tr>
		<tbody id="cate_id4" style="display:none;">
		<tr>
		  <td class="a4">
		  <a href="admin_skins.asp" target="main">　编辑模板</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="admin_skins.asp?menu=loading" target="main">　模板导入</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="admin_skins.asp?menu=output" target="main">　模板导出</a>
		  </td>
		</tr>
		</tbody>
		</table>
	</td></tr>
	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id5',1)"><img id="img_id5" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id5',1)" class="a1"><b>其他设置</b></a>
		</td></tr>
		<tbody id="cate_id5" style="display:none;">	
		<tr>
		  <td class="a4">
		  <a href="Admin_Change.asp?action=announcements" target="main">　论坛公告</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Change.asp?action=forumlinks" target="main">　友情链接</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Change.asp?action=medals" target="main">　勋章编辑</a>
		  </td>
		</tr>	
		<tr>
		  <td class="a4">
		  <a href="Admin_Change.asp?action=adv" target="main">　广告管理</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Change.asp?action=onlinelist" target="main">　在线列表定制</a>
		  </td>
		</tr>		
		</tbody>
		</table>
	</td></tr>

	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id6',1)"><img id="img_id6" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id6',1)" class="a1"><b>插件设置</b></a>
		</td></tr>
		<tbody id="cate_id6" style="display:none;">
		<tr>
		  <td class="a4">
		  <a href="Admin_plus.asp" target="main">　菜单管理</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_plus.asp?action=makeonline" target="main">　虚拟在线人员</a>
		  </td>
		</tr>
		<%
		Dim Rs
		Set Rs=team.Execute("Select Name,url From "&IsForum&"Menu Where Newtype=0 Order By SortNum")
		Do While not Rs.Eof
			Echo "<tr><td class=""a4"">"
			Echo " <a href="""&Rs(1)&""" target=""main"">　"&Rs(0)&"</a> "
			Echo "</td></tr>"
			Rs.MoveNext
		Loop
		Rs.close:Set Rs=Nothing
		%>
		</tbody>
		</table>
	</td></tr>
	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id7',1)"><img id="img_id7" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id7',1)" class="a1"><b>论坛维护</b></a>
		</td></tr>
		<tbody id="cate_id7" style="display:none;">
		<tr>
		  <td class="a4">
		  <a href="Admin_dbmake.asp" target="main">　数据库管理</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_dbmake.asp?action=updates" target="main">　数据库升级</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_dbmake.asp?action=reforums" target="main">　回帖表设置</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_dbmake.asp?action=upfiles" target="main">　附件管理</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_dbmake.asp?action=clearmsg" target="main">　短信管理</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_dbmake.asp?action=savelog" target="main">　操作记录</a>
		  </td>
		</tr>
		</tbody>
		</table>
	</td></tr>
	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id8',1)"><img id="img_id8" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id8',1)" class="a1"><b>统计信息</b></a>
		</td></tr>
		<tbody id="cate_id8" style="display:none;">
		<tr>
		  <td class="a4">
		  <a href="Admin_Path.asp" target="main">　主机环境变量</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Path.asp?action=discreteness" target="main">　组件支持情况</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_Path.asp?action=statroom" target="main">　统计占用空间</a>
		  </td>
		</tr>
		</tbody>
		</table>
	</td></tr>

	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id9',1)"><img id="img_id9" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id9',1)" class="a1"><b>后台权限</b></a>
		</td></tr>
		<tbody id="cate_id9" style="display:none;">
		<tr>
		  <td class="a4">
		  <a href="Admin_maste.asp" target="main">　管理员添加</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a href="Admin_maste.asp?action=manages" target="main">　管理权限设置</a>
		  </td>
		</tr>
		</tbody>
		</table>
	</td></tr>

	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
			<a style="float:right" href="#" onclick="return IndexDeploy('id10',1)"><img id="img_id10" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id10',1)" class="a1"><b>常用链接</b></a>
		</td></tr>
		<tbody id="cate_id10" style="display:">
		<tr>
		  <td class="a4">
		  <a href="../" target="_blank">　论坛首页</a>
		  </td>
		</tr>
		<tr>
		  <td class="a4">
		  <a target="_top" href="?menu=out">　退出管理</a>
		  </td>
		</tr>
		</tbody>
		</table>
	</td></tr>
	<tr>
    <td height="2"></td>
  </tr>
  <tr>
    <td height="2"><a href="http://www.TEAM5.CN" target="_blank" class="a_bold">&copy;&nbsp;TEAM's官方论坛</a></td>
  </tr>
</table>
<%
end sub


Sub ManageIndex
	%>
	<frameset cols="160,*" frameborder="no" border="0" framespacing="0" rows="*">
	<frame name="menu" noresize scrolling="yes" src="?menu=leftbody">
	<frameset rows="25,*" frameborder="no" border="0" framespacing="0" cols="*">
	<frame name="a1" noresize scrolling="no" src="?menu=topbanner">
	<frame name="main" noresize scrolling="yes" src="?menu=pass">
	</frameset></frameset></html>
	<%
End  Sub 
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>