move.asp

来自「基于asp的 班级同学录主页源代码」· ASP 代码 · 共 25 行

<!--#include file="connbbs.asp"-->
<% if session("user")="" then
response.redirect "../err.asp"
end if%>
<%
articleid=trim(request("articleid"))
articleid=replace(articleid,"'","")
bbsid=trim(request("bbsid"))
bbsid=replace(bbsid,"'","")
set rs=server.createobject("ADODB.recordset")
sql="select id,bbsname,bbsimage,bbsinfo,bbsadmin,article,reply from bbslist  order by id"
rs.open sql,conn,1,1
%><table width=100%><tr><td width=100% align=center><br><br>
<% if not rs.eof then%><form action="movesave.asp?articleid=<%=articleid%>&bbsid=<%=bbsid%>" method=post>
将该贴子转移到:<br>
<select name="tobbsid">
<option value="" selected>选择论坛分类</option>
<% do while not rs.eof%>
<option value=<%=rs("id")%>><%=rs("bbsname")%></option>
<% rs.movenext
Loop
%></select><input type=Submit value="确定" name=Submit">
</form>
<%else%>
没有建立论坛<% end if%></td></tr></table>