<% 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 %>
----------
<%if iid<>0 then %> [进入新页面]
<%end if%> [功能设计]
[后台管理]