move.asp

来自「教师评估系统」· ASP 代码 · 共 31 行

<!-- #include file="Cls.asp" --><%
top "移动帖子",false
ChkUser

ThreadID=ChkNumeric(Request("ThreadID"))
ForumID=Conn.Execute("select ForumID from [WxThreads] where id="&ThreadID)(0)

sql="select ForumName,ParentID from [WxForums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
ForumName=Rs(0)
ParentID=Rs(1)
Rs.close

sql="select * from [WxThreads] where id="&ThreadID&" and ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
%>
<iframe class="frame" src="" name="Temp"></iframe>
<form method="post" name="MoveForm" action="Manage.asp?menu=Move" onsubmit="return VerifyMove(this);" target="Temp">
<input type="hidden" name="ThreadID" value="<%=ThreadID%>" />
<div class="tc b cb">
<div class="fl r w2 si">移动到</div>
<div class="fl si"><select name="AimForumID">
<option value="">将主题移动到...</option>
<%
Rs.close
BBSList(0)
%><%=ForumsList%></select><span id="chkMove"></span></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value=" 确 定 " /></div>
</form>
<%CloseDataBase%>