moveto.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="user.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->

<table width="775" border="0" align="center" cellspacing="0" class="td4">
  <tr>
    <td></td>
  </tr>
</table>
<%

if  uzhiwu<1 then '是否正常登陆 
Response.Write "目前您不是以管理员身份登陆请<a href=index.asp>返回首页</a>"
else  '是正常登陆

moveto=request("ids")
luntan=request.form("luntan")
if luntan<>"" then
ccluntan ="select * from luntan where luntan='"&luntan&"'" 
set rsluntan=server.createobject("adodb.recordset")
rsluntan.open ccluntan,conn,1,1
if not rsluntan.eof then
conn.Execute("update neirong set idl='"&rsluntan("idl")&"' where IDS="&moveto&"")
response.redirect"show.asp?ids="&moveto&""
else
Response.Write "<div align=center>"&luntan&"不存在，<a href=moveto.asp?ids="&moveto&">请重新输入"&sbbs&"名称</a></div>"
end if
end if
if moveto<>"" then%>
<table width="775" border="0" align="center" cellspacing="0" class="td4">
  <tr>
    <td>移动贴子</td>
  </tr>
</table>

<table width="80%" border="0" align="center" cellspacing="0">
  <tr>
    <td>
      <form name="form1" method="post" action=moveto.asp?ids=<%=moveto%>>
        移动到<%=sbbs%>：<input type="text" name="luntan">
        <input type="submit" name="Submit2" value="提交">
      </form></td>
  </tr>
</table>

<%
end if

end if'不是正常登陆
Response.Write""&asptbcopy&""
%>