<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%Call Head()%>

<%Call saycarda("移动位置")
id=request("id")
lid=request("lid")
if lid="" then lid=0
pid=request("pid")
lx=request("lx")
if lx=1 then mm="上移"
if lx=0 then mm="下移"
set rsez=server.createobject("ADODB.Recordset")
if lx=0 then
aqlz="select top 1 pid from class where active="&lid&" and pid>"&pid&" order by pid asc"
else
aqlz="select top 1 pid from class where active="&lid&" and pid<"&pid&" order by pid desc"
end if
rsez.open aqlz,conn,1,3
if not rsez.eof then
lpid=rsez("pid")
if pid<>"" then rsez("pid")=pid
rsez.update
end if
rsez.close
set rsez=nothing

if lpid<>"" then
set rs1=server.createobject("ADODB.Recordset")
rs1.open"select pid,classid from class where classid="&id,conn,1,3
if not rs1.eof then
rs1("pid")=lpid
rs1.update
end if
rs1.close
set rs1=nothing
end if
%>
<%=mm%>成功，请返回<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/>
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>
<%Call headsay()%>