📄 admin.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<!-- #include file="../inc/MD5.asp" -->
<%
Call Master_Us()
Header()
Dim Admin_Class
Call Master_Se()
Select Case Request("menu")
	Case "adminlogin"
		adminlogin
	Case "leftbody"
		leftbody
	Case "pass"
		pass
	Case "topbanner"
		topbanner
	Case "out"
		session("Admin_Pass")=""
		Session("UserMember")=""
		Error1("返回论坛首页中,请稍等...<meta http-equiv=refresh content=3;url=default.asp>")
	Case Else
		Call ManageIndex
End Select

Sub topbanner
	Dim MSCode
	If IsSqlDataBase = 1 Then
		MSCode="SQL"
	Else
		MSCode="ACC"
	End If
%>
<body topmargin="0" rightmargin="0" leftmargin="0">
<table border="0" cellpadding="3" cellspacing="0" width="100%" class="a2">
	<tr class="a1" align="center">
		<td><b>论坛版本：<%=team.Forum_setting(8)%> - <%=MSCode%></b></td>
		<td><a href="http://www.team5.cn" target="_blank">访问官方论坛</a></td>
		<td><a href="../" target="_blank">站点首页 </a></td>
	</tr>
</table>
<%
End Sub


Sub pass
	Dim Admin_Class,datapath,datafile,mylockinfo
	Dim Members,Thread,ldb,lConnStr,lConn
	Members = team.execute("Select count(id) from ["&IsForum&"User]")(0)
	Thread = team.execute("Select count(id) from ["&IsForum&"Forum]")(0)
	team.SaveLog ("登陆后台管理")
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="5" topmargin="5">
<table cellpadding="3" cellspacing="1" border="0" width="90%" class="a2">
<tr>
	<td class="a1" colspan="2" height="25"><b>TEAM5.CN 官方动态</b></td>
</tr>
<tr>
	<td class="a4" colspan="2">
    <script src="http://www.team5.cn/server/GetNews.asp?version=2.0.0&release=20061223&bbsname=<%=team.Club_Class(1)%>&members=<%=Members%>&threads=<%=Thread%>&posts=<%=Application(CacheName&"_ConverPostNum")%>&urls=<%=Request.ServerVariables("server_name")%>"></script>
	<div id="myids"></div>
	</td>
</tr>
</table>
<br>
<table cellpadding="3" cellspacing="1" border="0" width="90%" class="a2">
<tr><td class="a1"><b>系统信息</b></td></tr>
<tr><td class="a4">
<table cellpadding="3" cellspacing="0" border="0" width="100%">
	<tr class="a4">
		<td>论坛主题数统计: </td><td><%=Thread%></td>
	</tr>
	<tr class="a3">
		<td>当前回帖表名称: </td><td>[ <%=team.Club_Class(11)%> ]</td>
	</tr>		
	<tr class="a4">
		<td>当前回帖表统计: </td><td><%=team.execute("Select count(id)from ["&team.Club_Class(11)&"]")(0)%></td>
	</tr>
	<tr class="a3">
		<td>当前用户数统计: </td><td><%=Members%></td>
	</tr>	

	<tr class="a4">
		<td>当前服务器域名: </td><td><%=Request.ServerVariables("server_name")%> 
		/ <%=Request.ServerVariables("LOCAL_ADDR")%></td>
	</tr>
	<tr class="a3">
		<td>当前脚本解释引擎: </td><td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
	<tr class="a4">
		<td>当前IIS版本系统: </td><td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
	</tr>
	<tr class="a3">
		<td>当前数据库路径: </td><td><%=db%></td>
	</tr>
</table>
</td></tr></table>
<BR />
<table cellpadding="5" cellspacing="1" border="0" width="90%" class="a2">
	<tr><td class="a1"align="center"><b>管理快捷方式</b></td></tr>
	<tr><td class=a4>

	<table cellpadding="3" cellspacing="0" border="0" width="100%">
	<tr class="a3">
		<td>论坛工作状态: </td>
		<td>
		<% If team.Forum_setting(2)=1 Then%><font color="blue">关闭</font><%Else%><font color="red">正常运行</font><%End If%>
	</tr>
	<tr class="a4">
		<td>重新启动论坛: </td>
		<td>
		<a href="admin_update.asp?action=UP_clear">确认重启</a>
	</tr>

	<tr class="a3">
		<td>快速查找用户</td>
		<td>
		<form method="post" action="Admin_User.asp?action=finduser">
			<input size="30" name="username"> <input type="submit" value="立刻查找">
		</td></form>
	</tr>
	</table>
</td></tr>
</table>

<BR />
<table cellpadding="3" cellspacing="1" border="0" width="90%" class="a2">
<tr><td class=a1>TEAM论坛开发文档说明</td></tr>
<tr><td class=a4>
<table cellpadding="3" cellspacing="0" border="0" width="100%">
<tr class=a4><td width=30%>版权所有:</td> <td>Team Studio</td></tr>
<tr class=a3><td>程序开发:</td> <td>DayMoon,夏都寒冰</td></tr>
<tr class=a4><td>官方论坛:</td> <td>http://www.team5.cn</td></tr>
<tr class=a3><td>邮件地址:</td> <td>teamserver@163.com</td></tr>
</table>
</td></tr></table>
<BR />
<%
	ldb = MyDbPath & LogDate
	lConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(ldb)
	Set lConn = Server.CreateObject("ADODB.Connection")
	lConn.Open lConnStr
	lConn.execute("Delete from [SaveLog] Where Datediff('d',LogTime,'"&Now()&"') > "& team.Forum_setting(47) &" * 30 ")
	Footer()
End sub


Sub leftbody
	Dim Admin_Class
%>
<script language="JavaScript">
function ClearAllDeploy(){
	var deployitem=FetchCookie("deploy");
	var admin_start;
	var userdeploy='';
	admin_start= deployitem ? deployitem.indexOf("\n") : -1;
	if(admin_start!=-1){
		userdeploy=deployitem.substring(0,admin_start);
	}
	for(i=0;i<20;i++){
		obj=document.getElementById("cate_"+"id"+i);	
		img=document.getElementById("img_"+"id"+i);
		if(obj && obj.style.display=="none"){
			obj.style.display="";
			img_re=new RegExp("_open\\.gif$");
			img.src=img.src.replace(img_re,'_fold.gif');
		}
	}
	deployitem=userdeploy+"\n\t\t";
	SetCookie("deploy",deployitem);
}
function SetAllDeploy(){
	var deployitem=FetchCookie("deploy");
	var admin_start;
	var userdeploy='';
	var admindeploy='';
	var i;
	admin_start= deployitem ? deployitem.indexOf("\n") : -1;
	if(admin_start!=-1){
		userdeploy=deployitem.substring(0,admin_start);
	}
	for(i=0;i<20;i++){
		obj=document.getElementById("cate_"+"id"+i);	
		img=document.getElementById("img_"+"id"+i);
		if(obj && obj.style.display==""){
			obj.style.display="none";
			img_re=new RegExp("_fold\\.gif$");
			img.src=img.src.replace(img_re,'_open.gif');
		}
		admindeploy=admindeploy+"id"+i+"\t";
	}
	deployitem=userdeploy+"\n\t"+admindeploy;
	SetCookie("deploy",deployitem);
}
function IndexDeploy(ID,type){
	obj=document.getElementById("cate_"+ID);	
	img=document.getElementById("img_"+ID);
	if(obj.style.display=="none"){
		obj.style.display="";
		img_re=new RegExp("_open\\.gif$");
		img.src=img.src.replace(img_re,'_fold.gif');
		SaveDeploy(ID,type,false);
	}else{
		obj.style.display="none";
		img_re=new RegExp("_fold\\.gif$");
		img.src=img.src.replace(img_re,'_open.gif');
		SaveDeploy(ID,type,true);
	}
	return false;
}
function SaveDeploy(ID,type,is){
	var foo=new Array();
	var deployitem=FetchCookie("deploy");
	var admin_start;
	var admindeploy='';
	var userdeploy='';
	admin_start= deployitem ? deployitem.indexOf("\n") : -1;
	if(admin_start!=-1){
		admindeploy= deployitem.substring(admin_start+1,deployitem.length);
		userdeploy = deployitem.substring(0,admin_start);
	}
	if(deployitem!=null){
		if(admin_start!=-1){
			deployitem = type==0 ? userdeploy : admindeploy;
		}
		deployitem=deployitem.split("\t");
		for(i in deployitem){
			if(deployitem[i]!=ID && deployitem[i]!=""){
				foo[foo.length]=deployitem[i];
			}
		}
	}
	if(is){
		foo[foo.length]=ID;
	}
	deployitem = type==0 ? "\t"+foo.join("\t")+"\t\n"+admindeploy : userdeploy+"\n\t"+foo.join("\t")+"\t";
	SetCookie("deploy",deployitem)
}
function SetCookie(name,value){
	expires=new Date();
	expires.setTime(expires.getTime()+(86400*365));
	document.cookie=name+"="+escape(value)+"; expires="+expires.toGMTString()+"; path=/";
}
function FetchCookie(name){
	var start=document.cookie.indexOf(name);
	var end=document.cookie.indexOf(";",start);
	return start==-1 ? null : unescape(document.cookie.substring(start+name.length+1,(end>start ? end : document.cookie.length)));
}
</script>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="5" topmargin="5">
<table width="100%" cellspacing="1" cellpadding="4" border="0" class=a4>
	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
        <tr>
          <td class="a4"><a href="#" onClick="return ClearAllDeploy()" class="a_bold">[展开+]</a>&nbsp;&nbsp;<a href="#" onClick="return SetAllDeploy()" class="a_bold">[关闭-]</a> </td>
        </tr>
      </table>
	</td></tr>

	<tr><td>
		<table width="98%" cellspacing="1" cellpadding="4" class="a2">
		<tr><td class="a1">
		<a style="float:right"><img src="images/cate_fold.gif" border="0"></a>
			<a href="?menu=pass" class="a1" target="main"><b>管理首页</b></a>
		</td></tr>
		</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('id0',1)"><img id="img_id0" src="images/cate_fold.gif" border="0"></a>
			<a href="#" onclick="return IndexDeploy('id0',1)" class="a1"><b>基本选项</b></a>
		</td></tr>
		<tbody id="cate_id0" style="display:none;">
		  <tr>
            <td class="a4"><a href="Admincp.asp#基本设置" target="main">　基本设置</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#注册与访问控制" target="main">　注册与访问控制</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#界面与显示方式" target="main">　界面与显示方式</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#搜索引擎优化" target="main">　搜索引擎优化</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#论坛功能" target="main">　论坛功能</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#安全控制" target="main">　安全控制</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#时间段及过滤设置" target="main">　时间及访问限制</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#用户权限" target="main">　用户权限</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#附件设置" target="main">　附件设置</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#JS 调用" target="main">　JS 调用</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#其他设置" target="main">　其他设置</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#积分设置" target="main">　积分设置</a> </td>
          </tr>
          <tr>
            <td class="a4"><a href="Admincp.asp#电子商务" target="main">　电子商务</a> </td>
          </tr>
		</tbody>
		</table>
12 下一页
💿 文件大小 1402 K
👤 上传用户 thor
📂 所属分类压缩解压
🏷️ 相关标签

#asp #论坛 #源代码
⌨️ 快捷键说明

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