📄 admin_board.asp

📁 功能强大的一个b/s工作站
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file=md5.asp-->
<title><%=Forum_info(0)%>--管理页面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
	dim str
	dim admin_flag
	admin_flag="11,12"
	if not master or instr(session("flag"),"11")=0 or instr(session("flag"),"12")=0 then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call dvbbs_error()
	else
		call main()
		conn.close
		set conn=nothing
	end if

	sub main()
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr> 
<th width="100%" class="tableHeaderText" colspan=2 height=25>论坛管理
</th>
</tr>
<tr>
<td class="forumrow" colspan=2>
<p><B>注意</B>：<BR>①删除论坛同时将删除该论坛下所有帖子！删除分类同时删除下属论坛和其中帖子！ 操作时请完整填写表单信息。<BR>②如果选择<B>复位所有版面</B>，则所有版面都将作为一级论坛（分类），这时您需要重新对各个版面进行归属的基本设置，<B>不要轻易使用该功能</B>，仅在做出了错误的设置而无法复原版面之间的关系和排序的时候使用
</td>
</tr>
<tr>
<td class="forumrow">
<B>论坛操作选项</B></td>
<td class="forumrow"><a href="admin_board.asp">论坛管理首页</a> | <a href="admin_board.asp?action=add">新建论坛版面</a> | <a href="?action=orders">一级分类排序</a> | <a href="?action=boardorders">N级分类排序</a> | <a href="?action=RestoreBoard" onclick="{if(confirm('复位所有版面将把所有版面恢复成为一级大分类，复位后要对所有版面重新进行归属的基本设置，请慎重操作，确定复位吗?')){return true;}return false;}">复位所有版面</a>
</td>
</tr>
</table>
<p></p>
<%
select case Request("action")
case "add"
	call add()
case "edit"
	call edit()
case "savenew"
	call savenew()
case "savedit"
	call savedit()
case "del"
	call del()
case "orders"
	call orders()
case "updatorders"
	call updateorders()
case "boardorders"
	call boardorders()
case "updatboardorders"
	call updateboardorders()
case "addclass"
	call addclass()
case "saveclass"
	call saveclass()
case "del1"
	call del1()
case "mode"
	call mode()
case "savemod"
	call savemod()
case "permission"
	call boardpermission()
case "editpermission"
	call editpermission()
case "RestoreBoard"
	call RestoreBoard()
case else
	call boardinfo()
end select
end sub

sub boardinfo()
Dim reBoard_Setting
%>
<table width="95%" cellspacing="1" cellpadding="1" align=center class="tableBorder">
<tr> 
<th width="35%" class="tableHeaderText" height=25>论坛版面
</th>
<th width="35%" class="tableHeaderText" height=25>操作
</th>
</tr>
<%
sql="select * from board order by rootid,orders"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
reBoard_Setting=split(rs("Board_setting"),",")
%>
<tr> 
<td height="25" width=35%  class="forumrow">
<%if rs("depth")>0 then%>
<%for i=1 to rs("depth")%>
&nbsp;
<%next%>
<%end if%>
<%if rs("child")>0 then%><img src="pic/plus.gif"><%else%><img src="pic/nofollow.gif"><%end if%>
<%if rs("parentid")=0 then%><b><%end if%><%=rs("boardtype")%><%if rs("child")>0 then%>(<%=rs("child")%>)<%end if%>
</td>
<td width=65% align=right class="forumrow"><a href="admin_board.asp?action=add&editid=<%=rs("boardid")%>"><font color="<%=Forum_body(14)%>"><U>添加版面</U></font></a> | <a href="admin_board.asp?action=edit&editid=<%=rs("boardid")%>"><font color="<%=Forum_body(14)%>"><U>基本设置</U></font></a> | <a href="admin_BoardSetting.asp?editid=<%=rs("boardid")%>"><font color="<%=Forum_body(14)%>"><U>高级设置</U></font></a>
<%if reBoard_Setting(2)=1 then%>
| <a href="admin_board.asp?action=mode&boardid=<%=rs("boardid")%>"><font color="<%=Forum_body(14)%>"><U>认证用户</U></font></a>
<%end if%>
| <a href="admin_update.asp?action=updat&submit=更新论坛数据&boardid=<%=rs("boardid")%>" title="更新最后回复、帖子数、回复数"><font color="<%=Forum_body(14)%>"><U>更新数据</U></font></a> | <a href="admin_update.asp?action=delboard&boardid=<%=rs("boardid")%>" onclick="{if(confirm('清空将包括该论坛所有帖子置于回收站，确定清空吗?')){return true;}return false;}"><font color="<%=Forum_body(14)%>"><U>清空</U></font></a> | <%if rs("child")=0 then%><a href="admin_board.asp?action=del&editid=<%=rs("boardid")%>" onclick="{if(confirm('删除将包括该论坛的所有帖子，确定删除吗?')){return true;}return false;}"><font color="<%=Forum_body(14)%>"><U>删除</U></a><%else%><a href="#" onclick="{if(confirm('该论坛含有下属论坛，必须先删除其下属论坛方能删除本论坛！')){return true;}return false;}"><font color="<%=Forum_body(14)%>"><U>删除</U></a><%end if%>&nbsp;</td>
</tr>
<%
rs.movenext
loop
set rs=nothing
%>
</table><BR><BR>
<%
end sub

sub add()
dim rs_c
set rs_c= server.CreateObject ("adodb.recordset")
sql = "select * from board order by rootid,orders"
rs_c.open sql,conn,1,1
	dim boardnum
	set rs = server.CreateObject ("Adodb.recordset")
	sql="select Max(boardid) from board"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	boardnum=1
	else
	boardnum=rs(0)+1
	end if
	if isnull(boardnum) then boardnum=1
	rs.close
%>
 <form action ="admin_board.asp?action=savenew" method=post>
<input type="hidden" name="newboardid" value=<%=boardnum%>>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr> 
<th height=24 colspan=2><B>添加新论坛</th>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow">论坛名称</td>
<td width="48%" class="forumrow"> 
<input type="text" name="boardtype" size="35">
</td>
</tr>
<tr> 
<td width="52%" height=24 class="forumrow">版面说明<BR>可以使用HTML代码</td>
<td width="48%" class="forumrow"> 
<textarea name="Readme" cols="40" rows="3"></textarea>
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>所属类别</U></td>
<td width="48%" class="forumrow"> 
<select name=class>
<option value="0">做为论坛分类</option>
<% do while not rs_c.EOF%>
<option value="<%=rs_c("boardid")%>" <%if request("editid")<>"" and clng(request("editid"))=rs_c("boardid") then%>selected<%end if%>>
<%if rs_c("depth")>0 then%>
<%for i=1 to rs_c("depth")%>
－
<%next%>
<%end if%><%=rs_c("boardtype")%></option>
<%
rs_c.MoveNext 
loop
rs_c.Close 
%>
</select>
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>使用设置模板</U><BR>相关模板中包含论坛颜色、设置、广告、图片<BR>等信息</td>
<td width="48%" class="forumrow"> 
<select name=sid>
<%
	sql = "select * from config order by active desc"
	rs_c.open sql,conn,1,1
	if rs_c.eof and rs_c.bof then
	response.write "<option value=>请先添加模板"
	else
	do while not rs_c.EOF
%>
<option value="<%=rs_c("id")%>"><%=rs_c("skinname")%> 
<%
	rs_c.MoveNext 
	loop
	end if
	rs_c.Close 
%>
</select>
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>论坛版主</U><BR>多斑竹添加请用|分隔，如：沙滩小子|wodeail</td>
<td width="48%" class="forumrow"> 
<input type="text" name="boardmaster" size="35">
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>首页显示论坛图片</U><BR>出现在首页论坛版面介绍左边<BR>请直接填写图片URL</td>
<td width="48%" class="forumrow">
<input type="text" name="indexIMG" size="35">
</td>
</tr>
<tr> 
<td width="52%" height=24 class="forumRow">&nbsp;</td>
<td width="48%" class="forumRow"> 
<input type="submit" name="Submit" value="添加论坛">
</td>
</tr>
</table>
</form>
<%
set rs_c=nothing
set rs=nothing
end sub

sub edit()
dim rs_c
sql = "select * from board order by rootid,orders"
set rs_c=conn.execute(sql)
sql = "select * from board where boardid="&request("editid")
set rs=conn.execute(sql)
%>        
 <form action ="admin_board.asp?action=savedit" method=post>       
<input type="hidden" name=editid value="<%=Request("editid")%>">
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr> 
<th height=24 colspan=2>编辑论坛：<%=rs("boardtype")%></th>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow">论坛名称</td>
<td width="48%" class="forumrow"> 
<input type="text" name="boardtype" size="35"  value="<%=rs("boardtype")%>">
</td>
</tr>
<tr> 
<td width="52%" height=24 class="forumrow">版面说明<BR>可以使用HTML代码</td>
<td width="48%" class="forumrow"> 
<textarea name="Readme" cols="40" rows="3"><%=rs("readme")%></textarea>
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>所属类别</U><BR>所属论坛不能指定为当前版面<BR>所属论坛不能指定为当前版面的下属论坛</td>
<td width="48%" class="forumrow"> 
<select name=class>
<option value="0">做为论坛分类</option>
<% do while not rs_c.EOF%>
<option value="<%=rs_c("boardid")%>" <% if cint(rs("parentid")) = rs_c("boardid") then%> selected <%end if%>><%if rs_c("depth")>0 then%>
<%for i=1 to rs_c("depth")%>
－
<%next%>
<%end if%><%=rs_c("boardtype")%></option>
<%
rs_c.MoveNext 
loop
rs_c.Close 
%>
</select>
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>使用设置模板</U><BR>相关模板中包含论坛颜色、设置、广告、图片<BR>等信息</td>
<td width="48%" class="forumrow"> 
<select name=sid>
<%
	sql = "select * from config order by active desc"
	rs_c.open sql,conn,1,1
	if rs_c.eof and rs_c.bof then
	response.write "<option value=>请先添加模板"
	else
	do while not rs_c.EOF
%>
<option value=<%=rs_c("id")%> <% if cint(rs("sid")) = rs_c("id") then%> selected <%end if%>><%=rs_c("skinname")%> 
<%
	rs_c.MoveNext 
	loop
	end if
	rs_c.Close 
%>
</select>
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>论坛版主</U><BR>多斑竹添加请用|分隔，如：沙滩小子|wodeail</td>
<td width="48%" class="forumrow"> 
<input type="text" name="boardmaster" size="35"  value='<%=rs("boardmaster")%>'>
<input type="hidden" name="oldboardmaster" value='<%=rs("boardmaster")%>'>
</td>
</tr>
<tr> 
<td width="52%" height=30 class="forumrow"><U>首页显示论坛图片</U><BR>出现在首页论坛版面介绍左边<BR>请直接填写图片URL</td>
<td width="48%" class="forumrow">
<input type="text" name="indexIMG" size="35" value="<%=rs("indexIMG")%>">
</td>
</tr>
<tr> 
<td width="52%" height=24 class="forumrow">&nbsp;</td>
<td width="48%" class="forumrow"> 
<input type="submit" name="Submit" value="提交修改">
</td>
</tr>
</table>
</form>
12 3 4 5 下一页
💿 文件大小 4313 K
👤 上传用户 WUYUEASDF
📂 所属分类源码/资料
🏷️ 相关标签

#工作站
⌨️ 快捷键说明

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