📄 move.asp
字号:
<!-- #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>
<table border="0" width="100%" align="center" cellspacing="1" cellpadding="4" class=a2>
<tr class=a3>
<td height="25"> <img src=images/Forum_nav.gif> <%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 method="POST" action=Manage.asp>
<input type="hidden" value="Move" name=menu>
<input type="hidden" value="<%=ThreadID%>" name="ThreadID">
<table width="50%" border="0" cellspacing="1" cellpadding="2" align="center" class=a2>
<tr><td class=a1 height="25" align="center">移动帖子</td></tr><tr>
<td height="19" valign="top" class=a4 align="center">
<p><br>
<select name=AimID>
<option selected value="">将主题移动到...</option>
<%
Rs.close
%>
<%BBSList(0)%>
</select>
<input type=submit value=" 确 定 "> <br>
<br></td></tr></table>
</form>
<%
htmlend
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -