⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 movethread.asp

📁 秘密网源代码 传闻拉了 100W风投
💻 ASP
字号:
<!-- #include file="Setup.asp" --><%


ThreadID=RequestInt("ThreadID")

Set rs=Conn.Execute("Select * From [Wo_Threads] where ThreadID="&ThreadID)
if Rs.Eof then error("系统不存在此主题")
ForumID=Rs("ForumID")
Topic=Rs("Topic")
PostAuthor=Rs("PostAuthor")
TotalReplies=Rs("TotalReplies")
Rs.close

sql="select * from [Wo_Forums] where ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
	ForumName=Rs("ForumName")
	ParentID=Rs("ParentID")
	GroupID=Rs("GroupID")
	Moderated=Rs("Moderated")
Rs.close
%>
<!-- #include file="Utility/ForumPermissions.asp" -->
<%
if PermissionManage=0 then error("您的<a href=ShowForumPermissions.asp?ForumID="&ForumID&">权限</a>不够")

HtmlTop



sql="select * from [Wo_Threads] where ThreadID="&ThreadID&" and ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
%>
<div id="CommonBreadCrumbArea"><%ClubTree%> → <%ForumTree(ParentID)%><%=ForumTreeList%><a href="ShowForum.asp?ForumID=<%=ForumID%>"><%=ForumName%></a> → <a href="ShowPost.asp?ThreadID=<%=ThreadID%>"><%=Rs("Topic")%></a> → 移动主题</div>
<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" width=100% id=CommonListArea>
		<tr id=CommonListTitle>
			<td align="center" colspan=2>移动主题</td>
		</tr>
		<tr id=CommonListCell>
			<td align="right" width=30%>主 题:</td>
			<td><%=Topic%></td>
		</tr>
		<tr id=CommonListCell>
			<td align="right">作 者:</td>
			<td><%=PostAuthor%></td>
		</tr>
		<tr id=CommonListCell>
			<td align="right">回复数:</td>
			<td><%=TotalReplies%></td>
		</tr>
		<tr id=CommonListCell>
			<td align="right">移动到:</td>
			<td>
			<select name="AimForumID" size=10 style="width:300px">
<%
Rs.close
GroupList 0
%><%=ForumsList%></select>
			</td>
		</tr>
		<tr id=CommonListCell>
			<td colspan=2 align=center><input type="submit" value=" 确 定 ">  <input onclick="history.back()" type="button" value=" 返 回 "></td>
		</tr>
	</table>
</form>

<script language="JavaScript">
function VerifyInput()
{
	if (document.form.AimForumID.value == "")
	{
		alert("请选择您要移动到哪个群组");
		document.form.AimForumID.focus();
		return false;
	}
}
</SCRIPT>
<%
HtmlBottom
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -