<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head
call saycardd("图片移动")
id= trim(request.QueryString("id"))  
  lid= trim(request.QueryString("lid"))
        set rs=server.createobject("adodb.recordset")
sql = "select * from wjfile Where id="&id
rs.open sql,conn,1,3
if rs.eof then 
response.write("操作失败!没有此分类")
else
rs("lid")=lid
rs.update()
response.write("移动分类成功")
end if
rs.close
set rs=nothing
%>
<br/>----------<br/>
<a href='picdl.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>[图片类别]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%response.write""
call head3()%>