move.asp

ASP整套的建站源代码

<!-- #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
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










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=750 align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/closedfold.gif" border="0">　<a href="forumdisplay.asp?forumid=<%=forumid%>"><%=bbsname%></a><br>
　　&nbsp;<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　<a href="showtopic.asp?forumid=<%=forumid%>&id=<%=id%>"><%=rs("topic")%></a></td>
</tr>
</table>
<br>

<form method="post" action=manage.asp>
<input type="hidden" value="move" name=menu>
<input type="hidden" value="<%=id%>" name="id">
<input type="hidden" value="<%=forumid%>" name="forumid">



<TABLE cellSpacing=0 width=333 align=center bgColor=a4b6d7><TR><TD></TD></TR></TABLE>


<table width="333" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-collapse: collapse">
<tr bgcolor=ACABC4><td width="328" background=images/title_sub.gif height="25"><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
rs.Open "class order by id",Conn
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
%>