<%@ codepage ="936" %>
<!-- #include file="setup.asp" -->
<%
ID=Request("ID")
forumid=Request("forumid")
if isnumeric(""&forumid&"") = flase then
error("<li>非法操作")
end if
sql="select * from bbsconfig where id="&forumid&""
rs.Open sql,Conn,1
if rs.eof then
message=message&"<li>数据库中不存在ID为 <font color=red>"&forumid&"</font> 的论坛数据"
error(""&message&"")
end if
bbsname=rs("bbsname")
rs.close
%>
<%
sql="select * from forum where ID="&ID&" and forumid="&forumid&""
rs.Open sql,Conn,1
top
%>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}.title {FONT-SIZE: 9pt; COLOR: #FFFFFF;}
</style>
<title><%=rs("topic")%></title>
<center>
<table width=100% align="center" border="0">
<tr>
<td vAlign="top" width="30%"></td>
<td vAlign="center" align="top">&nbsp;&nbsp;<img src="images/closedfold.gif" border="0">&nbsp;&nbsp;<a href="index.asp"><%=clubname%></a><br>
&nbsp;&nbsp;<img src="images/bar.gif" border="0"><img src="images/closedfold.gif" border="0">&nbsp;&nbsp;<a href="forumdisplay.asp?forumid=<%=forumid%>"><%=bbsname%></a><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">&nbsp;&nbsp;<a href="showtopic.asp?forumid=<%=forumid%>&id=<%=id%>"><%=rs("topic")%></a></td>
</tr>
</table>
<br>
<form method="post" action=manage.asp?menu=move&forumid=<%=forumid%>&id=<%=id%>&bbsname=<%=bbsname%>>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center bgColor=a4b6d7
border=0>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=6 width="100%" border=0>
<TBODY></TBODY></TABLE></TD></TR></TABLE>
<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-collapse: collapse">
<tr bgcolor=ACABC4><td bordercolor="#C4D4E5" bgcolor="#C4D4E5"><div align="center"><span>
移动帖子</span></div>
</td></tr><tr><td height="19" width="328" valign="top" bgcolor="#F2F8FF">
<div align="center"><p><br><select name=moveid>
<option selected value="">将主题移动到...</option>
<%
rs.close
sql="select * from class"
rs.Open sql,Conn,1
do while not rs.eof
%>
<option style=BACKGROUND-COLOR:ECF5FF value="">╋ <%=rs("classname")%></option>
<%
sql="select * from bbsconfig where classid="&rs("id")&""
rs1.Open sql,Conn
do while not rs1.eof
%>
<option value="<%=rs1("id")%>">　├『<%=rs1("bbsname")%>』</option>
<%
rs1.movenext
loop
rs1.close
rs.movenext
loop
rs.close
%>
</select>
</p>
<p>
<input type=submit value=" 确 定 ">
</div></td></tr></table>
</form>
<a href=javascript:history.back()>BACK </a><br>
<%
htmlend
%>