📄 admin_index.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../board/const.asp"-->
<!--#include file="../board/BTBBS_Fun.asp"--><%
if Request.Cookies("admin")="" or Request.Cookies("admin")<>Request.Cookies("username") or Request.Cookies("adminlogin")<>"Y" or instr(1,Application(BBSname&"Online"),Request.Cookies("username"))<1 or session("admin")<>Request.Cookies("username") then Response.Redirect "error.asp" end if
dim AccessNum
AccessNum=0
Call JCC_Board_Top
Response.Write "<center><table width=743><tr><td height=30 class=light> <img src=../images/nav.gif> <a href=../Board/index.asp><font class=NavColor>论坛首页</a> >> <a href=Admin_index.asp><font class=NavColor>管理首页</a> >> 论坛后台管理</font></td></tr></table></center>"
Response.Write "<table border=0 width=743 cellspacing=0 cellpadding=0 align=center class=table1>"
Response.Write "<tr><td width=150 valign=top class=light1><img src=../images/admin.gif><br><br>"
Response.Write " <b><a href=Admin_index.asp>管理首页</a>|<a href=Exit.asp>退出管理</a></b><br><br>"
Response.Write " <b>基本设置</b><br><br>"
Response.Write " <a href=admin_index.asp?admin=5>论坛参数设置</a><br>"
Response.Write " <a href=admin_index.asp?admin=15>删发帖用户值设置</a><br>"
Response.Write " <a href=admin_index.asp?admin=7>用户等级设置</a><br>"
Response.Write " <a href=admin_index.asp?admin=17>注册协议设置</a><br><br>"
Response.Write " <b>论坛管理</b><br><br>"
Response.Write " <a href=admin_index.asp?admin=1>论坛分类管理</a><br>"
Response.Write " <a href=admin_index.asp?admin=2>论坛版面管理</a><br>"
Response.Write " <a href=admin_index.asp?admin=9>友情链接管理</a><br><br>"
Response.Write " <b>帖子管理</b><br><br>"
Response.Write " <a href=admin_index.asp?admin=29>帖子专题管理</a><br>"
Response.Write " <a href=admin_index.asp?admin=19>批量帖子删除</a><br><br>"
Response.Write " <b>用户管理</b><br><br>"
Response.Write " <a href=../board/UserTop.asp target=_blank>注册用户列表</a><br>"
Response.Write " <a href=admin_index.asp?admin=4>查找管理/编辑用户资料</a><br>"
Response.Write " <a href=../board/BlackList.asp target=_blank>黑名单</a><br><br>"
Response.Write " <b>数据管理</b><br><br>"
Response.Write " <a href=admin_index.asp?admin=14>重计论坛各项数据</a><br>"
Response.Write " <a href=admin_index.asp?admin=12>压缩数据库</a><br>"
Response.Write " <a href=admin_index.asp?admin=13>空间占用情况</a><br><br>"
Response.Write " <b>附加管理</b><br><br>"
Response.Write " <a href=admin_index.asp?admin=28>清除页面缓存</a><br>"
Response.Write " <a href=admin_index.asp?admin=25>IP地址锁定/解除</a><br><br>"
Response.Write "</td><td valign=top class=light>"
admin=Request.QueryString("admin")
if admin="" then admin=0 end if
IF IsNumeric(admin)=False THEN admin=0:admin=cint(admin) END IF '-----------------------论坛状态及访问控制-----------------
if admin>29 then admin=0 end if
select case admin
case 0
Response.Write "<table width=100% ><tr><td height=27 class=TbHead> 欢迎使用BtBBS论坛</td></tr>"
Response.Write "<tr><td height=27> 版本名称: <a href=Http://www.jcc.name>BTBBS1.0Bate</a></td></tr>"
Response.Write "<tr><td height=27> BtBBS官方网站: <a href=Http://www.jcc.name>Http://www.jcc.name</a></td></tr>"
Response.Write "<tr><td height=27> 官方联系Email: <a href=mailto:jcc@jcc.name>jcc@jcc.name</a></td></tr>"
Response.Write "<tr><td height=27> 服务端运行环境: Win98/PWS 推荐:Win2000及以上版本/IIS5.0及以上版本(必须支持FSO)</td></tr>"
Response.Write "<tr><td height=27> 客户端运行环境: IE5.5/NetScape等 推荐:IE5.5及以上版本</td></tr>"
Response.Write "<tr><td height=27> 系统开发语言: Asp/VBScript</td></tr>"
Response.Write "<tr><td height=27> 采用技术方式: Cache/Fso/生成HTML文件</td></tr>"
Response.Write "<tr><td height=27> 本版本采用的数据库: Access2000</td></tr>"
Response.Write "</table>"
Response.Write "<table width=100% ><tr><td height=27 class=TbHead> 服务器信息</td></tr>"
Response.Write "<tr><td height=27> 论坛物理路径: "&server.MapPath("/")&"</td></tr>"
Response.Write "<tr><td height=27> 当前执行脚本虚拟路径: "&Request.ServerVariables("SCRIPT_NAME")&"</td></tr>"
Response.Write "<tr><td height=27> 主机名: "&Request.ServerVariables("SERVER_NAME")&"</td></tr>"
Response.Write "<tr><td height=27> 脚本引擎版本: "&Request.ServerVariables("SERVER_SOFTWARE")&"</td></tr>"
Response.Write "<tr><td height=27> 协议名称及版本: "&Request.ServerVariables("SERVER_PROTOCOL")&"</td></tr>"
Response.Write "<tr><td height=27> 当前端口号: "&Request.ServerVariables("SERVER_PORT")&"</td></tr>"
Response.Write "</table>"
'---------------------------------------------------------------
case 1'增加论坛分类
flname=Request.Form("flname")
OrderID=cint(Request.Form("OrderID"))
if flname<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from 论坛分类 where 分类名称='"&flname&"' "
rs.open sql,conn,1,3
if flname<>"" and Request.Form("add")="增加" then
if rs.BOF and rs.EOF then
rs.AddNew
rs("分类名称")=flname
rs("OrderID")=OrderID
rs.Update
Response.Write "增加成功"
else
Response.Write "已经存在"
end if
end if
if flname<>"" and Request.Form("Order")="确定" then
if rs.bof and rs.eof then
Response.Write "不存在这个分类"
else
rs("OrderID")=OrderID
rs.update
end if
end if
if flname<>"" and Request.Form("del")="删除" then
if rs.BOF and rs.EOF then
Response.Write "不存在这个分类"
else
Set rs_fl=conn.execute("select 所属分类 from 版面分类 where 所属分类='"&flname&"' ")
if rs_fl.bof and rs_fl.eof then
rs.Delete
rs.Update
Response.Write "<br><br> "&flname&"删除成功"
else
Response.Write "<br><br> 此分类下,有相应的论坛存在,不能删除,请先删除分类下的论坛"
end if
rs_fl.close
set rs_fl=nothing
end if
end if
rs.Close
set rs=nothing
Application(BBSname&"index")=""
end if%>
<br><form name=addbbsfl method="post" action="admin_index.asp?admin=1">
增加分类 <INPUT class=fminpt name=flname type=text size=20> 排序ID号<input type=text name=orderID size=1>
<input type=Submit value="增加" name=add></form>
<form name=delbbsfl method="post" action="admin_index.asp?admin=1">
删除分类 <SELECT name=flname><OPTION selected>论坛所有分类</OPTION>
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 论坛分类 "
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
rs.MoveFirst
while not rs.eof
Response.Write "<OPTION value="&rs("分类名称")&">"&rs("分类名称")&"</OPTION>"
rs.MoveNext
wend
end if
Response.Write "</SELECT> <input type=Submit value=删除 name=del></form>"
%> <form name=delbbsfl method="post" action="admin_index.asp?admin=1">
排序分类 <SELECT name=flname><OPTION selected>论坛所有分类</OPTION><%
if not (rs.bof and rs.eof) then
rs.MoveFirst
while not rs.eof
Response.Write "<OPTION value="&rs("分类名称")&">"&rs("分类名称")&" "&cstr(rs("OrderID"))&"</OPTION>"
rs.MoveNext
wend
end if
Response.Write "</SELECT> 排序ID号<input type=text name=orderID size=1> <input type=Submit value=确定 name=order></form>"
rs.Close
set rs=nothing
'----------------------------------------------------------
case 2 '增加/删除版面
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 版面分类 "
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Write "还没有任何版面"
else
rs.MoveFirst
end if
flname=Request.Form("flname")
Boardname=Request.Form("bbsname")
bbsjs=Request.Form("bbsjs")
bbsadmin=Request.Form("bbsadmin")
bbsimage=Request.Form("bbsimage")
bbskz=Request.Form("bbskz")
OrderID=cint(Request.Form("OrderID"))
if flname<>"" and BoardName<>"" then
Set rs1=conn.execute("select id,分类名称 from 论坛分类 where 分类名称='"&flname&"' ")
rs.AddNew
rs("所属分类ID")=rs1("id")
rs1.close
rs("所属分类")=flname
rs("版面名称")=BoardName
if bbsjs<>"" then rs("版面介绍")=bbsjs else rs("版面介绍")=" " end if
if bbsadmin<>"" then rs("版主")=bbsadmin else rs("版主")=" " end if
if bbsimage<>"" then rs("版面标记图片")=bbsimage else rs("版面标记图片")=" " end if
if OrderID<>"" then rs("OrderID")=OrderID end if
if bbskz="" then
bbskz="1"
rs("访问控制")=bbskz
else
rs("访问控制")=bbskz
end if
rs("版面状态")="1"
rs.Update '------------建立目录
DIM myFolder
pathfilename="../board/bbs"+cstr(rs("id")) myFolder = Server.MapPath(pathfilename) SET fileStreamObj = CreateObject("Scripting.FileSystemObject")
fileStreamObj.CreateFolder(myFolder)
Response.Write "版面添加成功"
Application.Lock
Application(BBSname&"index")=""
Application.UnLock
Call BT_Board_GX
end if%><center>
<form name=addbbsbm method="post" action="admin_index.asp?admin=2">
<table border=0 width=600 cellspacing=0 cellpadding=0 align=center class=table1>
<tr><td colspan=2 height=27 class=TBHead> <b>增加论坛版面</b></td></tr>
<tr><td width=200 height=27 class=light1>选择版面所在的分类</td><td class=light>
<SELECT name=flname>
<OPTION selected>所有版面分类</OPTION><%
Set rs1=conn.execute("select id,分类名称 from 论坛分类 ")
if not (rs1.bof and rs1.eof) then
rs1.MoveFirst
while not rs1.eof
Response.Write "<OPTION value="&rs1("分类名称")&">"&rs1("分类名称")&"</OPTION>"
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
rs.Close
set rs=nothing%>
</SELECT></td></tr>
<tr><td class=light1><b>请输入版面名称</b><br>论坛版面的名子</td><td class=light>
<INPUT class=fminpt name=bbsname type=text size=30>
</td></tr>
<tr><td class=light1><b>版面介绍</b><br>这个介绍将显示在版面的名称下面</td><td class=light><INPUT class=fminpt name=bbsjs type=text size=60>
</td></tr>
<tr><td class=light1><b>版主设定</b><br>这个版面的版主,多位版主请用'|'<br>号分开</td><td class=light><INPUT class=fminpt name=bbsadmin type=text size=30>请在用户资料中,将用户权限设为版主
</td></tr>
<tr><td class=light1><b>版面图片设定</b><br>显示在首页版面名称前面的图<br>片,输入图片地址,在前面加 Http://</td><td class=light><INPUT class=fminpt name=bbsimage type=text size=40>
</td></tr>
<tr><td class=light1><b>版面访问控制</b><br>1.允许匿名访问,2.用户登陆后才<br>能访问,3.版主和管理员才能访问</td><td class=light><INPUT class=fminpt name=bbskz type=text size=3>请输入数字1,2,3对前面三种访问控制进行选择(默认为1,都能访问)
</td></tr>
<tr><td class=light1><b>版面排序ID</b><br>注意ID必须是唯一的</td><td class=light><INPUT class=fminpt name=OrderID type=text size=3>
</td></tr>
<tr><td colspan=2 align=center class=light1><input type=Submit value="增加" name=add> <input type="reset" name="Clear" value="清除"></td></tr>
</table>
</form></center><%
Set rs=conn.execute("select 分类名称 from 论坛分类 Order By OrderID ")
if rs.bof and rs.eof then'
Response.Write "还没有任何分类"
else
rs.Movefirst
Set rs1=conn.execute("select 所属分类,版面名称,版面介绍,版主 from 版面分类 Order By OrderID ")
if rs1.bof and rs1.eof then''
Response.Write "还没有任何版面"
else
rs1.Movefirst
while not rs.eof
bbsfltable="<table border=0 width=600 cellspacing=0 cellpadding=0 align=center class=table1><tr><td colspan=2 height=27 class=light1> <b>"+rs("分类名称")+"</b></td></tr><tr><td height=27 align=center class=TBHead>论坛名称及说明</td><td align=center class=TBHead>操作</td></tr>"
while not rs1.eof
if rs1("所属分类")=rs("分类名称") then
if rs1("版面介绍")<>"" then bbsinfo="<b>"+rs1("版面名称")+"</b>"+"<br>"+rs1("版面介绍") else bbsinfo=rs1("版面名称") end if
bbsfltable1=bbsfltable1+"<tr><td height=27 width=400 class=light> "+bbsinfo+"</td><td class=light> <a href=admin_index.asp?admin=3&editbbs="+rs1("版面名称")+">编辑</a>/<a href=Admin_index.asp?admin=21&bbsname="&server.URLEncode(rs1("版面名称"))&">删除</a></td></tr>"
end if
rs1.MoveNext
wend
bbsfltable=bbsfltable+bbsfltable1+"</table><br>"
bbsfltable2=bbsfltable2+bbsfltable
bbsfltable1=""
rs1.movefirst
rs.MoveNext
wend
end if''
end if'
rs.Close
set rs=nothing
set rs1=nothing
Response.Write bbsfltable2
'-----------------------------------------------------------------
case 3 '编辑版面-----------
editbbs=request("editbbs")
if editbbs<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from 版面分类 where 版面名称='"&editbbs&"' "
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Write "没有找到这个版面"+editbbs
else
if Request("editbbssave")="1" then
flname=Request.Form("flname")
boardname=Request.Form("bbsname")
bbsjs=Request.Form("bbsjs")
bbsadmin=Request.Form("bbsadmin")
bbsimage=Request.Form("bbsimage")
bbskz=Request.Form("bbskz")
bbszt=Request.Form("bbszt")
OrderID=Cint(Request.Form("OrderID"))
if flname<>"" and boardname<>"" then
rs("所属分类")=flname
rs("版面名称")=boardname
if bbsjs<>"" then rs("版面介绍")=bbsjs else rs("版面介绍")=" " end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -