<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%Call Head()%>
<%
dim lid
lid=usb(request("lid"))
if lid="" then lid=0

Call saycardd("高级调序")

set rsez=server.createobject("ADODB.Recordset")
aqlz="SELECT * FROM [class] where [parent]="&lid
rsez.open aqlz,conn,1,2
if rsez.eof then
response.write("高级调位失败，可能没有栏目<br/>")
else
z=1
do while not rsez.eof
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="SELECT * FROM [class] where [classid]="&rsez("classid")
rs.open rsppl,conn,1,2
if not rs.eof then
if request("namewapidc"&rs("classid")&"")<>"" then rs("pid")=request("namewapidc"&rs("classid")&"")
rs.update
end if
rs.close
set rs=nothing
rsez.movenext
loop
end if
rsez.close
set rsez=nothing
%>
高级调位成功<br/>
----------<br/>
<a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">[返回栏目管理]</a><br/>
<a href="index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">[返回后台管理]</a><br/>
<%Call head1()%>