<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%Call Head()%>
<%
dim lid
lid=usb(request("lid"))
if lid="" then lid=0
%>
<card title="高级调序">
<p>
请在里面输入序号。从小到大排序 <br/>
----------<br/>
<%
set rsez=server.createobject("ADODB.Recordset")
aqlz="SELECT * FROM [class] where [parent]="&lid&"  order by pid asc"
rsez.open aqlz,conn,1,2
if rsez.eof then
response.write("暂无栏目，请添加<br/>")
else
z=1
do while not rsez.eof
spmc=left(rsez("class"),10)
if len(rsez("class"))>8 then spmc=spmc+"..."
%>
<%=z%>.<input name="name<%=minute(now)%><%=second(now)%>wapidc<%=rsez("classid")%>" value="<%=rsez("pid")%>" format="*N" size="3"/><%=ubb(spmc)%><br/>
<%z=z+1
rsez.movenext
loop
end if
rsez.close
set rsez=nothing
%>
<anchor title="确定提交">高级调位
<go href="/admin/kuaif_gjtxcl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>" method="post" accept-charset='utf-8'>
<%
set rs2=server.createobject("ADODB.Recordset")
aqlz="SELECT * FROM [class] where [parent]="&lid&"  order by pid asc"
rs2.open aqlz,conn,1,2
if not rs2.eof then
do while not rs2.eof
%>
<postfield name="namewapidc<%=rs2("classid")%>" value="$(name<%=minute(now)%><%=second(now)%>wapidc<%=rs2("classid")%>)"/>
<%
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
%>
<postfield name="txt" value="$(txt<%=minute(now)%><%=second(now)%>)"/>
<postfield name="sid" value="<%=sid%>"/>
<postfield name="lid" value="<%=lid%>"/>
</go>
</anchor><br/>---------<br/>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">[添加下级栏目]</a><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/>
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>
</p>
</card>
</wml>