<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<card id="index" title="项目移动"><p>
<%

id= trim(request.QueryString("id"))  
  iid= trim(request.QueryString("iid"))

if id="" or IsNumeric(id)=False then
  Call Error("ID无效！")
  end if
if iid="" or IsNumeric(iid)=False then
  Call Error("ID无效！")
  end if
  if clng(id)=clng(iid) then
  Call Error("不能转移同一栏目！")
  end if
     set rs=server.createobject("adodb.recordset")
sql = "select * from ydbbs Where id="&id
rs.open sql,conn,1,3
if rs.eof then 
response.write("操作失败!没有此栏目")
else
if rs("prentID")=iid then
  Call Error("不能转移同一栏目！")
  end if
rs("prentID")=iid
rs.update()
response.write("移动项目成功")
end if
rs.close
set rs=nothing
%>
<br/>----------<br/>
<%if iid<>0 then %>
<a href="adminbbsll.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=iid%>&amp;p=3">[进入新页面]</a><br/>
<%end if%>
<a href="adminbbs.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[功能设计]</a><br/>
<a href="../index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[后台管理]</a>
</p></card></wml>