📄 admin_boardunite.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.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="13"
if not master or instr(session("flag"),admin_flag)=0 then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
call dvbbs_error()
else
if Request("action") = "unite" then
call unite()
else
call boardinfo()
end if
conn.close
set conn=nothing
end if
sub boardinfo()
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th height=25>合并论坛数据
</th>
</tr>
<form action=admin_boardunite.asp?action=unite method=post>
<tr>
<td class=forumrow>
<B>合并论坛选项</B>：<BR>
<B>将本论坛及其下属版面的帖子都转移至目标论坛，并删除本论坛及其下属版面</B><BR><BR>
<%
set rs = server.CreateObject ("Adodb.recordset")
sql="select boardid,boardtype,depth from board order by rootid,orders"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有论坛"
else
response.write " 将论坛 "
response.write "<select name=oldboard size=1>"
do while not rs.eof
%>
<option value="<%=rs("boardid")%>"><%if rs("depth")>0 then%>
<%for i=1 to rs("depth")%>
－
<%next%>
<%end if%><%=rs("boardtype")%></option>
<%
rs.movenext
loop
response.write "</select>"
end if
rs.close
sql="select boardid,boardtype,depth from board order by rootid,orders"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有论坛"
else
response.write " 合并到 "
response.write "<select name=newboard size=1>"
do while not rs.eof
%>
<option value="<%=rs("boardid")%>"><%if rs("depth")>0 then%>
<%for i=1 to rs("depth")%>
－
<%next%>
<%end if%><%=rs("boardtype")%></option>
<%
rs.movenext
loop
response.write "</select>"
end if
rs.close
set rs=nothing
response.write " <BR><BR><input type=submit name=Submit value=合并论坛><BR><BR>"
%>
</td>
</tr>
<tr>
<td class=forumrow><B>注意事项</B>：<BR><FONT COLOR="red">所有操作不可逆，请慎重操作</FONT><BR> 不能在同一个版面内进行操作、不能将一个版面合并到其下属论坛中。<BR>合并后您所指定的论坛（或者包括其下属论坛）将被删除，所有帖子将转移到您所指定的目标论坛中
</td>
</tr></form>
</table>
<%
end sub
sub unite()
dim newboard
dim oldboard
dim ParentStr,iParentStr
dim depth,iParentID,child
if cint(request("newboard"))=cint(request("oldboard")) then
response.write "请不要在相同版面内进行操作。"
exit sub
end if
newboard=clng(request("newboard"))
oldboard=clng(request("oldboard"))
'将本论坛及其下属版面的帖子都转移至目标论坛，并删除本论坛及其下属版面
'得到当前版面下属论坛
set rs=conn.execute("select ParentStr,Boardid,depth,ParentID,child from board where boardid="&oldboard)
if rs(0)="0" then
ParentStr=rs(1)
iParentID=rs(1)
else
ParentStr=rs(0) & ","
iParentID=rs(3)
end if
iParentStr=rs(1)
depth=rs(2)
child=rs(4)+1
i=0
set rs=conn.execute("select Boardid from board where boardid="&newboard&" and ParentStr like '%"&ParentStr&"%'")
if not (rs.eof and rs.bof) then
response.write "不能将一个版面合并到其下属论坛中"
exit sub
end if
'得到当前版面下属论坛ID
set rs=conn.execute("select Boardid from board where ParentStr like '%"&ParentStr&"%'")
if not (rs.eof and rs.bof) then
do while not rs.eof
iParentStr=iParentStr & "," & rs(0)
i=i+1
rs.movenext
loop
end if
if i>0 then
ParentStr=iParentStr
else
ParentStr=oldboard
end if
'更新其原来所属论坛版面数
if depth>0 then
conn.execute("update board set child=child-"&child&" where boardid="&iparentid)
'更新其原来所属论坛数据，排序相当于剪枝而不需考虑
for i=1 to depth
'得到其父类的父类的版面ID
set rs=conn.execute("select parentid from board where boardid="&iparentid)
if not (rs.eof and rs.bof) then
iparentid=rs(0)
conn.execute("update board set child=child-"&child&" where boardid="&iparentid)
end if
next
end if
'更新论坛帖子数据
For i=0 to ubound(AllPostTable)
conn.execute("update "&AllPostTable(i)&" set boardid="&newboard&" where boardid in ("&ParentStr&")")
Next
conn.execute("update topic set boardid="&newboard&" where boardid in ("&ParentStr&")")
conn.execute("update besttopic set boardid="&newboard&" where boardid in ("&ParentStr&")")
'删除被合并论坛
set rs=conn.execute("select sum(lastbbsnum),sum(lasttopicnum),sum(todayNum) from board where boardid in ("&ParentStr&")")
conn.execute("delete from board where boardid in ("&ParentStr&")")
'更新新论坛帖子计数
dim trs
set trs=conn.execute("select ParentStr,boardid from board where boardid="&newboard)
if trs(0)="0" then
ParentStr=trs(1)
else
ParentStr=trs(0)
end if
conn.execute("update board set lastbbsnum=lastbbsnum+"&rs(0)&",lasttopicnum=lasttopicnum+"&rs(1)&",todaynum=todaynum+"&rs(2)&" where boardid in ("&ParentStr&")")
response.write "合并成功，已经将被合并论坛所有数据转入您所合并论坛，建议您到更新论坛数据页面更新论坛数据。"
set rs=nothing
set trs=nothing
call cache_board()
end sub
sub cache_board()
'cache版面数据
myCache.name="BoardJumpList"
Dim BoardJumpList
set rs=conn.execute("select boardid,boardtype,depth from board order by rootid,orders")
do while not rs.EOF
BoardJumpList = BoardJumpList & "<option value=""list.asp?boardid="&rs(0)&""" "
if boardid=rs(0) then
BoardJumpList = BoardJumpList & "selected"
end if
BoardJumpList = BoardJumpList & ">"
select case rs(2)
case 0
BoardJumpList = BoardJumpList & "╋"
case 1
BoardJumpList = BoardJumpList & " ├"
end select
if rs(2)>1 then
for i=2 to rs(2)
BoardJumpList = BoardJumpList & " │"
next
BoardJumpList = BoardJumpList & " ├"
end if
BoardJumpList = BoardJumpList & rs(1)&"</option>"
rs.MoveNext
loop
myCache.add BoardJumpList,dateadd("n",60,now)
set rs=nothing
'end cache
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -