admin_board.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/dv_clsother.asp" -->
<!-- #include file="inc/DvADChar.asp" -->
<!-- #include file="inc/GroupPermission.asp" -->
<!--#include file=inc/md5.asp-->
<%
	Head()
	Server.ScriptTimeout=999999
	dim Str
	dim admin_flag
	admin_flag="9,10"
	founderr=False 
	if not Dvbbs.master or instr(","&session("flag")&",",",9,")=0 or instr(","&session("flag")&",",",10,")=0 then
		Errmsg=ErrMsg + "<BR><li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
		dvbbs_error()
	else
		call main()
		footer()
	end if

	sub main()
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder">
<tr> 
<th width="100%" class="tableHeaderText" colspan=2 height=25>论坛管理
</th>
</tr>
<tr>
<td class="forumRowHighlight" colspan=2>
<p><B>注意</B>：<BR>①删除论坛同时将删除该论坛下所有帖子！删除分类同时删除下属论坛和其中帖子！ 操作时请完整填写表单信息。<BR>②如果选择<B>复位所有版面</B>，则所有版面都将作为一级论坛（分类），这时您需要重新对各个版面进行归属的基本设置，<B>不要轻易使用该功能</B>，仅在做出了错误的设置而无法复原版面之间的关系和排序的时候使用，在这里您也可以只针对某个分类进行复位操作(见分类的更多操作下拉菜单)，具体请看操作说明<BR><font color=blue>每个版面的更多操作请见下拉菜单，操作前请仔细阅读说明，分类下拉菜单中比别的版面增加了分类排序和分类复位功能</font>
</td>
</tr>
<tr>
<td class="forumRowHighlight" height=25>
<B>论坛操作选项</B></td>
<td class="forumRowHighlight"><a href="admin_board.asp">论坛管理首页</a> | <a href="admin_board.asp?action=add">新建论坛版面</a> | <a href="?action=settemplates">模板风格批量设置</a> | <a href="?action=orders">一级分类排序</a> | <a href="?action=boardorders">N级分类排序</a> | <a href="?action=RestoreBoard" onclick="{if(confirm('复位所有版面将把所有版面恢复成为一级大分类，复位后要对所有版面重新进行归属的基本设置，请慎重操作，确定复位吗?')){return true;}return false;}">复位所有版面</a> | <a href="?action=RestoreBoardCache" 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 "RestoreBoardCache"
	Call RestoreBoardCache()
Case "clearDate"
	Call clearDate
Case "delDate"
	Call delDate
Case "RestoreClass"
	Call RestoreClass
Case "handorders"
	Call handorders
Case "savehandorders"
	Call savehandorders
Case "savesid"
	Call savesid
Case "upallsid"
	Call upallsid
Case "settemplates"
	Call Settemplates
Case else
	call boardinfo()
end select
end Sub
Sub upallsid()
	Dim Sid,cid
	SID= Request("Sid")
	Cid=Request("cid")
	Dvbbs.Execute("Update Dv_board set Sid="&CLng(SID)&",cid="&cid&"")
	Call Dvbbs.LoadBoardsInfo()
	Dv_suc("论坛模板统一设置成功!")
End Sub
Sub savesid
	Dim i,boardid,TempStr
	Dim Templateslist,sid,j,bid,cid
	sid=""
	For Each TempStr in Request.form("upboardid")
		If Bid="" Then
			Bid=TempStr
		Else
			Bid=Bid&","&TempStr
		End If 
	Next
	Bid=split(Bid,",")
	For i=0 to UBound(bid)
		If sid="" Then
			sid=Request("sid"&bid(i))
			cid=Request("cid"&bid(i))
		Else
			sid=sid&","&Request("sid"&bid(i))
			cid=cid&","&Request("cid"&bid(i))
		End If
	Next
	sid=split(sid,",")
	Cid=split(cid,",")
	Dvbbs.Name="Templateslist"
	If Dvbbs.ObjIsEmpty() Then  Dvbbs.ReloadTemplateslist()
	Templateslist= Dvbbs.Value
	Templateslist=split(Templateslist,"@@@")
	For i=0 to UBound(Templateslist)
		templateslist(i)=split(Templateslist(i),"|||")
		boardid=""
		For J=0 to UBound(Bid)
			If CLng(Templateslist(i)(0))=CLng(Sid(j)) Then
				If boardid="" Then 
					boardid=bid(j)
				Else
					boardid=boardid&","&bid(j)
				End If
			End If	
		Next
		If boardid<>"" Then
			'更新SID
			'Response.Write "Update Dv_board set Sid="&CLng(Templateslist(i)(0))&" Where BoardId In("&Boardid&") "		
			Dvbbs.Execute("Update Dv_board set Sid="&CLng(Templateslist(i)(0))&" Where BoardId In("&Boardid&") ")
		End If
	Next
	'更新cid
	For i=0 to UBound(bid)	
		Dvbbs.Execute("Update Dv_board set cid="&CLng(cid(i))&" Where BoardId="&bid(i)&" ")
	Next 
	Call Dvbbs.LoadBoardsInfo()
	Dv_suc("论坛模板批量设置成功!")
End Sub 
Sub Settemplates
Dim reBoard_Setting,MoreMenu,i
Dim Templateslist
Dvbbs.Name="Templateslist"
If Dvbbs.ObjIsEmpty() Then  Dvbbs.ReloadTemplateslist()
Templateslist= Dvbbs.Value
Templateslist=split(Templateslist,"@@@")
For i=0 to UBound(Templateslist)
	templateslist(i)=split(Templateslist(i),"|||")
Next
%>
<form action ="admin_board.asp?action=upallsid" method=post name="dv">
<table cellspacing="0" cellpadding="0" align=center Class="tableBorder" style="width:98%" >
<tr> 
<th colspan="2" class="tableHeaderText" align=center height=25>模 板 统 一 设 置
</th>
</tr>
<tr>
<td width=300 align=Left  class="forumRowHighlight" ><B>所有论坛设置为：</b>&nbsp; 模板
<script language="javascript">
<%
Dim cssdata
Response.Write "var StyleId="&Dvbbs.cachedata(17,0)&";"
Response.Write "var Cssid="&Dvbbs.cachedata(30,0)&";"
For i=0 to UBound(Templateslist)
	Dvbbs.SkinID=Templateslist(i)(0)
	Dvbbs.name="Forum_CSS"&Templateslist(i)(0)
	If Dvbbs.ObjIsEmpty() Then Dvbbs.TemplatesToCache ("Forum_CSS")
	cssdata=Dvbbs.value
	cssdata=Split(cssdata,"@@@")
	Response.Write "var css_Option"&Templateslist(i)(0)&"='"&cssdata(0)&"';"
	Response.Write chr(10)
	
Next 
%>
</script>
<select name="sid" onChange="Changeoption(this.value)" >
<%
For i=0 to UBound(Templateslist)
Response.Write "<option value="""&Templateslist(i)(0)&""""
If CLng(Templateslist(i)(0)) = CLng(Dvbbs.cachedata(17,0)) Then 
	Response.Write " selected"
End If 
Response.Write ">"&Templateslist(i)(1)&"</option>"
Next 
%>
</Select>
</td>
<td width=300 align=Left  class="forumRowHighlight" >
&nbsp;风格 
<select name=cid >
<option value="" >选择风格皮肤</option>
</select>
<Input type="submit" name="Submit" value="设 定"></td>
</tr>
</table><BR>
</form>
<SCRIPT LANGUAGE="JavaScript">

<!--
function Changeoption(sid)
{
var NewOption=eval("css_Option"+sid).split("|||");
var j=eval('document.dv.cid.length;');
	for (i=0;i<j;i++){
		eval('document.dv.cid.options[j-i]=null;')
	}
	for (i=0;i<NewOption.length-1;i++){
		tempoption=new Option(NewOption[i],i);
		eval('document.dv.cid.options[i]=tempoption;');
		if (Cssid==i&&sid==StyleId){
		eval('document.dv.cid.options[i].selected=true;');
		}
	}
}
var forum_sid=eval('document.dv.sid.value;');
Changeoption(forum_sid);
//-->
</SCRIPT>
<form action ="admin_board.asp?action=savesid" method=post name="dv1">
<table cellspacing="0" cellpadding="0" align=center Class="tableBorder" style="width:98%" >
<tr> 
<th width="70%" class="tableHeaderText" align=Left height=25>论坛版面
</th>
<th width="30%" class="tableHeaderText" align=Left height=25>采用模板
</th>
</tr>
<%
dim classrow
sql="select * from dv_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"),",")
if classrow="forumRowHighlight" then
	classrow="forumRow"
else
	classrow="forumRowHighlight"
end if
%>
<tr> 
<td height="25"  class="<%=classrow%>">
<%if rs("depth")>0 then%>
<%for i=1 to rs("depth")%>
&nbsp;
<%next%>
<%end if%>
<%if rs("child")>0 then%><img src="skins/default/plus.gif"><%else%><img src="skins/default/nofollow.gif"><%end if%>
<%if rs("parentid")=0 then%><b><%end if%><%=rs("boardtype")%><%if rs("child")>0 then%>(<%=rs("child")%>)<%end if%>
<%if rs("parentid")=0 then%></b><%end if%>
</td>
<td align=Left  class="<%=classrow%>" >
<select name="sid<%=Rs("BoardID")%>" onChange="Changeoption<%=RS("BoardID")%>(this.value)" >
<%
For i=0 to UBound(Templateslist)
Response.Write "<option value="""&Templateslist(i)(0)&""""
If CLng(Templateslist(i)(0)) = Rs("Sid") Then 
	Response.Write " selected"
End If 
Response.Write ">"&Templateslist(i)(1)&"</option>"
Next 
%>
</select>
<select name=cid<%=Rs("BoardID")%> >
<option value="" >选择风格皮肤</option>
</select>
<Input type="hidden" name="upboardid" value="<%=rs("boardid")%>">
</td></tr>
<script language="javascript">
<%
Response.Write "var StyleId"&Rs("BoardID")&"="&Rs("Sid")&";"
Response.Write "var Cssid"&Rs("BoardID")&"="&Rs("Cid")&";"
%>
</script>
<SCRIPT LANGUAGE="JavaScript">
<!--
function Changeoption<%=Rs("BoardID")%>(sid)
{
var NewOption=eval("css_Option"+sid).split("|||");
var j=eval('document.dv1.cid<%=Rs("BoardID")%>.length;');
	for (i=0;i<j;i++){
		eval('document.dv1.cid<%=Rs("BoardID")%>.options[j-i]=null;')
	}
	for (i=0;i<NewOption.length-1;i++){
		tempoption=new Option(NewOption[i],i);
		eval('document.dv1.cid<%=Rs("BoardID")%>.options[i]=tempoption;');
		if (Cssid<%=Rs("BoardID")%>==i&&sid==StyleId<%=Rs("BoardID")%>){
		eval('document.dv1.cid<%=Rs("BoardID")%>.options[i].selected=true;');
		}
	}
}
var forum_sid=eval('document.dv1.sid<%=Rs("BoardID")%>.value;');
Changeoption<%=Rs("BoardID")%>(StyleId);
//-->
</SCRIPT>
<%
Rs.movenext
loop
set rs=nothing
%>
<tr>
<td width=300 align=Left  class="forumRowHighlight" ></td>
<td width=300 align=Left  class="forumRowHighlight" ><input type="submit" name="Submit" value="设 定"></td>
</tr>
</table><BR><BR>
</form>

<%
End Sub 
sub boardinfo()
Dim reBoard_Setting,MoreMenu
%>
<table width="95%" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr> 
<th width="35%" class="tableHeaderText" height=25>论坛版面
</th>
<th width="35%" class="tableHeaderText" height=25>操作
</th>
</tr>
<%
dim classrow
sql="select * from dv_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"),",")
if classrow="forumRowHighlight" then
	classrow="forumRow"
else
	classrow="forumRowHighlight"
end if