setmenuorder.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<!-- #include file="../login/check.asp" -->

<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/sql.asp"-->

<%
Dim action
Dim id
Dim place
Dim menu_1
Dim menu_2
	action=Request.QueryString("action")
	id=Request.QueryString("id")
	place=Request.QueryString("place")
	menu_1=Request.QueryString("menu_1")
	menu_2=Request.QueryString("menu_2")


If place="menu_1" Then
'取出所有menu_1=本身menu_1的id值,并赋值给数组self_id()
	Set rs_get_self_id=server.createobject("adodb.recordset")
	sql_get_self_id="select id from [menu] where menu_1="&menu_1
	rs_get_self_id.open sql_get_self_id,conn,1,1
	Dim total_num
	total_num=rs_get_self_id.recordcount
	Dim self_id()
	ReDim self_id(total_num-1)
	Dim i
	i=0
	Do While Not rs_get_self_id.eof
		self_id(i)=rs_get_self_id("id")
		i=i+1
	rs_get_self_id.movenext
	Loop
	rs_get_self_id.close
	Set rs_get_self_id=nothing

	If action="up" Then
		Dim up_menu_1
		'取出上一行的menu_1值:up_menu_1
		  Set rs_get_up_menu_1=conn.execute("select top 1 menu_1 from [menu] where menu_1<"&menu_1&" order by menu_1 desc")
		If Not rs_get_up_menu_1.eof Then
			up_menu_1=rs_get_up_menu_1("menu_1")
			rs_get_up_menu_1.close
		  Set rs_get_up_menu_1=nothing
			'取出所有menu_1=up_menu_1的id值
		  Set rs_get_up_id=conn.execute("select id from [menu] where menu_1="&up_menu_1)
			'把上一行下移
			Do While Not rs_get_up_id.eof
				up_id=rs_get_up_id("id")
				conn.execute("update [menu] set menu_1=menu_1+1 where id="&up_id)
			rs_get_up_id.movenext
			Loop
			rs_get_up_id.close
		  Set rs_get_up_id=nothing

			'把本行上移
			For j= 0 To total_num-1
			conn.execute("update [menu] set menu_1=menu_1-1 where id="&self_id(j))
			Next
		End If
	ElseIf action="down" Then
		Dim down_menu_1
		'取出下一行的menu_1值:down_menu_1
		  Set rs_get_down_menu_1=conn.execute("select top 1 menu_1 from [menu] where menu_1>"&menu_1&" order by menu_1")
		If Not rs_get_down_menu_1.eof Then
			down_menu_1=rs_get_down_menu_1("menu_1")
			rs_get_down_menu_1.close
		  Set rs_get_down_menu_1=nothing
			'取出所有menu_1=down_menu_1的id值
		  Set rs_get_down_id=conn.execute("select id from [menu] where menu_1="&down_menu_1)

			'把下一行上移
			Do While Not rs_get_down_id.eof
				down_id=rs_get_down_id("id")
				conn.execute("update [menu] set menu_1 =menu_1-1 where id="&down_id)
			rs_get_down_id.movenext
			Loop
			rs_get_down_id.close
		  Set rs_get_down_id=nothing

			'把本行下移
			For j= 0 To total_num-1
			conn.execute("update [menu] set menu_1=menu_1+1 where id="&self_id(j))
			Next
		End If
	End If
ElseIf place="menu_2" Then

	If action="up" And menu_2<>1 Then
		Set rs_get_up_id2=conn.execute("select id from [menu] where menu_2<"&menu_2&" and menu_1="&menu_1&" order by menu_2 desc")
		If Not rs_get_up_id2.eof Then
			up_id2=rs_get_up_id2("id")
			'把上一行下移
			conn.execute("update [menu] set menu_2=menu_2+1 where id="&up_id2&" and menu_2<>0")
			'把本身上移
			conn.execute("update [menu] set menu_2=menu_2-1 where id="&id)
		End If
	ElseIf action="down" Then
		Set rs_get_down_id2=conn.execute("select id from [menu] where menu_2>"&menu_2&" and menu_1="&menu_1&" order by menu_2")
		If Not rs_get_down_id2.eof Then
			down_id2=rs_get_down_id2("id")
			'把下一行上移
			conn.execute("update [menu] set menu_2=menu_2-1 where id="&down_id2)
			'把本身下移
			conn.execute("update [menu] set menu_2=menu_2+1 where id="&id)
		End If
	End If

End If





response.redirect "menu_list.asp"
Call connclose()
%>