<!-- #include file="Setup.asp" --><%
ThreadID=int(Request("ThreadID"))

ForumID=Conn.Execute("Select ForumID From [BBSXP_Threads] where id="&ThreadID)(0)

sql="select * from [BBSXP_Forums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
ForumName=Rs("ForumName")
ForumLogo=Rs("ForumLogo")
followid=Rs("followid")
Rs.close


top

sql="select * from [BBSXP_Threads] where ID="&ThreadID&" and ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
%>
<script>
if ("<%=ForumLogo%>"!=''){Logo.innerHTML="<img border=0 src=<%=ForumLogo%> onload='javascript:if(this.height>60)this.height=60;'>"}
</script>
<div class="mainnav">
<table cellspacing="1" cellpadding="5" border="0" width="100%" class="a2">
	<tr class="a3">
		<td>&nbsp;<img src="images/Forum_nav.gif">&nbsp; <%ClubTree%> 
		→ <%ForumTree(followid)%><%=ForumTreeList%>
		<a href="ShowForum.asp?ForumID=<%=ForumID%>"><%=ForumName%></a> →
		<a href="ShowPost.asp?ThreadID=<%=ThreadID%>"><%=Rs("Topic")%></a> → 移动帖子</td>
	</tr>
</table>
<br>
<form name=form method="POST" action="Manage.asp" onsubmit="return VerifyInput();">
	<input type="hidden" value="Move" name="menu">
	<input type="hidden" value="<%=ThreadID%>" name="ThreadID">
	<table cellspacing="1" cellpadding="5" border="0" width="100%" class="a2">
		<tr>
			<td class="a1" align="center">移动帖子</td>
		</tr>
		<tr>
			<td valign="top" class="a4" align="center">
			<p><br>
			<select name="AimForumID">
			<option>将主题移动到...</option>
			<%
Rs.close
BBSList(0)
%><%=ForumsList%></select>&nbsp;&nbsp;
			<input type="submit" value=" 确 定 "> <br>
			<br>
			</p>
			</td>
		</tr>
	</table></div>
</form>

<SCRIPT>
function VerifyInput()
{

if (document.form.AimForumID.value == "")
{
alert("请选择您要移动到哪个论坛");
document.form.AimForumID.focus();
return false;
}

}
</SCRIPT>
<%
htmlend
%>