📄 admin.asp

📁 很漂亮
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!-- #include file="setup.asp" -->
<!-- #include file="inc/MD5.asp" --><%

if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")

if membercode < 5 then error("<li>您没有权限进入后台")

if Request("menu")="out" then
session("pass")=""
response.redirect ""&Request.ServerVariables("script_name")&"/../"
end if

%>
<title><%=clubname%>后台管理 - Powered By BBSxp</title>
<%
select case Request("menu")
case ""
index
case "left"
left
case "top"
top2
case "login"
login

case "pass"
pass



end select


sub top2
%><body topmargin="0" rightmargin="0" leftmargin="0"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
	<tr>
		<td width="100%" class="a1" height="20" align="center"><b>
		<font face="幼圆">第五代 BBS 系统 -- BBSxp</font> <font color="ffff66">安全</font>
		<font color="ff0033">快速</font> <font color="33ff33">方便 </font>
		<font color="0000ff">可靠 </font><font color="000000">可升级</font></b> </td>
	</tr>
</table>
<%
end sub




sub pass

session("pass")=md5(""&Request("pass")&"")
if adminpassword<>session("pass") then error2("社区管理密码错误")


log("登录后台管理")


Dim theInstalledObjects(18)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.Message"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "w3.upload"




%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
	<tr>
		<td class="a1" colspan="2" height="25" align="center"><b>论坛信息统计</b></td>
	</tr>
	<tr class="a4">
		<td height="23" colspan="2">系统信息：论坛数 <b><%=conn.execute("Select count(id)from [bbsconfig]")(0)%></b> 
		主题数 <b><%=Application(CacheName&"CountForum")%></b> 用户数 <b><%=Application(CacheName&"CountUser")%></b>
		</td>
	</tr>
	<tr class="a4">
		<td width="50%" height="23">服务器域名：<%=Request.ServerVariables("server_name")%> 
		/ <%=Request.ServerVariables("LOCAL_ADDR")%></td>
		<td width="50%">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
	<tr class="a4">
		<td width="50%" height="23">服务器软件的名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
		<td width="50%">ACCESS 数据库路径：<a target="_blank" href="<%=datapath%><%=datafile%>"><%=datapath%><%=datafile%></a></td>
	</tr>
	<tr class="a4">
		<td width="50%" height="23">FSO 文本读写：<%If Not IsObjInstalled(theInstalledObjects(9)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
		<td width="50%">SA-FileUp 文件上传：<%If Not IsObjInstalled(theInstalledObjects(11)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
	</tr>
	<tr class="a4">
		<td width="50%" height="23">Jmail 组件支持：<%If Not IsObjInstalled(theInstalledObjects(13)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
		<td width="50%">CDONTS 组件支持：<%If Not IsObjInstalled(theInstalledObjects(14)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
	</tr>
</table>
<br>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
	<tr>
		<td class="a1" colspan="2" height="25" align="center"><b>管理快捷方式</b></td>
	</tr>
	<tr class="a4">
		<td width="20%" height="23">快速查找用户</td>
		<td width="80%" height="23">
		<form method="post" action="admin_user.asp?menu=user2">
			<input size="13" name="username"> <input type="submit" value="立刻查找">
		</td>
		</form>	</tr>
	<tr class="a4">
		<td width="20%" height="23">快捷功能链接</td>
		<td width="80%" height="23"><a href="admin_bbs.asp?menu=classs">
		<font color="000000">建立论坛数据</font></a> |
		<a href="admin_bbs.asp?menu=bbsmanage"><font color="000000">管理论坛资料</font></a> 
		| <a href="admin_bbs.asp?menu=upclubconfigok"><font color="000000">更新论坛资料</font></a></td>
	</tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
	<tr class="a4">
		<td class="a1" colspan="2" height="25" align="center"><b>BBSxp论坛</b></td>
	</tr>
	<tr class="a4">
		<td width="20%">产品开发</td>
		<td width="80%">Yuzi工作室</td>
	</tr>
	<tr class="a4">
		<td width="20%" height="23">产品负责</td>
		<td width="80%">Yuzi网络有限公司</td>
	</tr>
	<tr class="a4">
		<td width="20%" height="23">联系方法</td>
		<td width="80%">电话：0595-22205408 咨询部：0595-22205408-7<br>
		传真：0595-22205409 技术部：0595-22205408-2<br>
		网址：http://www.bbsxp.com<br>
		地址：中国 福建省 泉州市 温陵南路 商业城 8号楼 2层</td>
	</tr>
	<tr class="a4">
		<td width="20%" height="23">插件开发</td>
		<td width="80%">BBSxp插件组织（BBSxp Plus Organization） </td>
	</tr>
</table>
<%
conn.execute("delete from [log] where logtime<"&SqlNowString&"-7")

htmlend
end sub




sub login





%> <br>
<br>
<br>
<form action="admin.asp" method="post">
	<input type="hidden" value="pass" name="menu">
	<table width="333" border="0" cellspacing="1" cellpadding="2" align="center" class="a2">
		<tr>
			<td width="328" class="a1" height="25">
			<div align="center">
				登录社区管理</div>
			</td>
		</tr>
		<tr>
			<td height="19" width="328" valign="top" class="a3">
			<div align="center">
				请输入管理密码: <input size="15" name="pass" type="password"><br>
				<input type="submit" value=" 登录 " name="Submit1">　<input type="reset" value=" 取消 " name="Submit">
			</div>
			</td>
		</tr>
	</table>
</form>
<%
htmlend
end sub

sub left

%>
<style>BODY {
	BACKGROUND: #799ae1; MARGIN: 0px;
}
.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: #215dc6; POSITION: relative; TOP: 2px
}

.menu_title2 SPAN {
	FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px
}
</style>
<div style="height:100%;OVERFLOW:auto">
	<table cellspacing="0" cellpadding="0" width="145" align="center">
		<tr>
			<td valign="bottom" height="42">
			<img height="38" src="images/menu/title.gif" width="145"></td>
		</tr>
		<tr>
			<td class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="images/menu/title_bg_quit.gif" height="25">
			<span><b><font color="215DC6"><%=Request.Cookies("username")%></font></b> 
			| <a target="_top" href="?menu=out"><font color="215DC6"><b>退出</a>
			</font></a></b></span></td>
		</tr>
	</table>
	<br>
	<table cellspacing="0" cellpadding="0" width="145" align="center">
		<tr>
			<td class="menu_title" id="menuTitle2" onmouseover="this.className='menu_title2';" onclick="showsubmenu(1)" onmouseout="this.className='menu_title';" style="cursor:hand" background="images/menu/admin_left_2.gif" height="25">
			<span>设置管理</span> </td>
		</tr>
		<tr>
			<td id="submenu1" style="DISPLAY: none">
			<div class="sec_menu" style="WIDTH: 145px">
				<table cellspacing="0" cellpadding="0" width="135" align="center">
					<tr>
12 下一页
⌨️ 快捷键说明

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