您没有管理本页面的权限。"
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()
%>
合并论坛数据
<%
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 & ""
rs.MoveNext
loop
myCache.add BoardJumpList,dateadd("n",60,now)
set rs=nothing
'end cache
end sub
%>