<%@ LANGUAGE="VBSCRIPT" %> <% dim str if not master then Errmsg=Errmsg+"
"+"

本页面为管理员专用，请登陆后进入。" call Error() else call main() conn.close set conn=nothing end if sub main() %> align=center>

> 欢迎 <%=session("mastername")%>进入管理页面 <%call leftmenu()%> 1．注意事项： 在下面，您将看到目前所有的论坛列表。不能在同一个版面内进行操作。您可以将一个论坛和另外一个论坛进行合并，合并后两个论坛所有帖子转入合并论坛，被合并论坛将被删除且不可恢复。 <% if Request("action") = "unite" then call unite() else call boardinfo() end if end sub sub boardinfo() %> <% set rs = server.CreateObject ("Adodb.recordset") sql="select boardid,boardtype from board" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "没有论坛" else response.write " " response.write "将论坛" response.write "" do while not rs.eof response.write ""&rs("boardtype")&"" rs.movenext loop response.write "" end if rs.close sql="select * from board" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "没有论坛" else response.write "合并到" response.write "" do while not rs.eof response.write ""&rs("boardtype")&"" rs.movenext loop response.write "" end if rs.close set rs=nothing response.write " " %> <% end sub sub unite() %> <% if cint(request("newboard"))=cint(request("oldboard")) then response.write "请不要在相同版面内进行操作。" else newboard=cint(request("newboard")) oldboard=cint(request("oldboard")) '更新论坛帖子数据 conn.execute("update bbs1 set boardid="&newboard&" where boardid="&oldboard) '更新新论坛帖子计数 set rs=conn.execute("select lastbbsnum,lasttopicnum,todayNum from board where boardid="&oldboard) conn.execute("update board set lastbbsnum=lastbbsnum+"&rs(0)&",lasttopicnum=lasttopicnum+"&rs(1)&",todaynum=todaynum+"&rs(2)&" where boardid="&newboard) '删除被合并论坛 conn.execute("delete from board where boardid="&oldboard) response.write "合并成功，已经将被合并论坛所有数据转入您所合并论坛。" end if %> <% end sub %>