<% IF KEY<>0 then Call Error("你的权限不足！") end if id= int(request.QueryString("id")) iid= int(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 lxl= request.QueryString("lx") if clng(id)=clng(iid) then Call Error("不能转移同一栏目！") end if set rs=server.createobject("adodb.recordset") sql = "select * from class Where classid="&id rs.open sql,conn,1,3 if rs.eof then response.write("操作失败!没有此栏目") else if rs("parent")=iid then Call Error("不能转移同一栏目！") end if rs("parent")=iid rs.update() response.write("移动栏目成功") end if rs.close set rs=nothing %>
----------
<%if id<>0 then %> [栏目分类]
<%end if%> [栏目管理]
[后台管理]