link_move.asp

这是一个物流网站的源代码

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../inc/Config.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
dim id,action,Sequence
id=Request.QueryString("id")
action=Request.QueryString("action")
Language=formatStr(Request("Language"))
If id="" or not isnumeric(id) then Check_Alert "非法操作","Link_admin.asp"

sub up()
	dim sql,rs,Sequence
	sql="select * from Link where L_ID="&id
	set rs=conn.execute(sql)
	Sequence=rs("L_Order")
	Sortid=rs("L_Sortid")
	Language=rs("L_Language")
	rs.close
	
	if Sequence>1 then
		conn.execute("update Link set L_Order=L_Order+1 where L_Language='"&Language&"' and L_Sortid="&Sortid&" and L_Order="&(Sequence-1))
		conn.execute("update Link set L_Order=L_Order-1 where L_Language='"&Language&"' and L_Sortid="&Sortid&" and L_ID="&id)
	end if
	set rs=nothing
	closeconn
	response.Redirect("Link_Admin.asp?language="&language&"&sortid="&Sortid)
end sub

sub down()
	dim sql,rs,Sequence
	sql="select * from Link where L_ID="&id
	set rs=conn.execute(sql)
    Sequence=rs("L_Order")
	Sortid=rs("L_Sortid")
	Language=rs("L_Language")
	rs.close
	
	sql="select Max(L_Order) as MaxSequ from Link"
	set rs=conn.execute(sql)
	if Sequence<>rs("MaxSequ") then
		conn.execute("update Link set L_Order=L_Order-1 where L_Language='"&Language&"' and L_Sortid="&Sortid&" and L_Order="&(Sequence+1))
		conn.execute("update Link set L_Order=L_Order+1 where L_Language='"&Language&"' and L_Sortid="&Sortid&" and L_ID="&id)
	end if
	set rs=nothing
	closeconn
	response.Redirect("Link_Admin.asp?language="&language&"&sortid="&Sortid)
end sub

select case action
	case "up" up
	case "down" down
end select

closeconn

%>