admin_menu.asp

asp学生信息管理系统

<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<%
Login_Judge
Ispower 1001
Dim Onid,Onord,menusi,Onid2,Onord2,menusii,menu_js
action=che(request("action"))
id = che(request("id"))
ord = che(request("ord"))
Onid = che(request("Onid"))
Onord = che(request("Onord"))
If action="edit" Then
	Set rs = server.CreateObject("adodb.recordset")
	sql="select id,Menu,TopID from Admin_Menu where Id="&id
	rs.Open sql,Conn,1,1
	response.write "<h1>管理菜单名称修改</h1>"
	response.write "<table width=""100%"" cellspacing=""1"" cellpadding=""0"" class=""info_tab"">"
	response.write "<FORM METHOD=POST ACTION=""admin_menu.asp?action=mods&id="&id&""">"
	response.write "<tr><td class=""art_tit zq"" colspan=2><A HREF=""admin_menu.asp"">返回菜单管理</A></td></tr>"
	response.write "<tr><td class=""art_info2 zq"" width=""40%"">上级菜单</td>"
	response.write "<td class=""art_info2 zq"">&nbsp;<SELECT NAME=""TopID"">"
	topmenulist rs(2)
	response.write "</SELECT></td></tr>"
	response.write "<tr><td class=""art_info2 zq"">菜单名称</td>"
	response.write "<td class=""art_info2 zq"">&nbsp;<INPUT TYPE=""text"" NAME=""Menu"" value="""&rs(1)&"""></td></tr>"
	response.write "<tr><td class=""art_info2"" align=center colspan=2><INPUT TYPE=""submit"" value=""确认修改""> "
	response.write "<INPUT TYPE=""reset""></td></tr></FORM></table>"
ElseIf action="mods" Then
	Menus = che(request("Menu"))
	TopID = che(request("TopID"))
	If Menus="" or id="" Then errormsg "非法参数!"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Admin_Menu] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
	rs("Menu") = Menus
	rs("TopID") = TopID
	rs.Update
	End If
	rs.close

	'Sql = "UPDATE Admin_Menu set Menu='"&Menus&"' and TopID="&TopID&" where id="&id
	'response.write sql
	'response.end
	'Set rs=conn.execute(sql)
	rightmsg "admin_menu.asp",""
Else
	response.write "<h1>后台管理菜单列表</h1>"
	response.write "<table width=""100%"" cellspacing=""1"" cellpadding=""0"" class=""info_tab"">"
	If action="move" Then
	Sql = "UPDATE Admin_Menu set Ord="&ord&" where id="&Onid
	sql2="UPDATE Admin_Menu set Ord="&Onord&" where id="&id
	Set rs=conn.execute(sql)
	Set rs1=conn.execute(sql2)
	End If
	Set rs = server.CreateObject("adodb.recordset")
	sql="select id,Menu,Ord from Admin_Menu where TopId=0 order by Ord"
		rs.Open sql,Conn,1,1
		If Not rs.eof Then
			Onid=0
			Onord=0
			menusi=0
			menu_js=""
			Do While Not rs.eof
			response.write "<tr><td class=""art_tit zq"">┳&nbsp;&nbsp;<A HREF=""admin_menu.asp?action=edit&id="&rs(0)&""">"&rs(1)&"</A></td>"
			response.write "<td class=""art_tit"">["
			If menusi<>0 Then
				response.write "<A HREF=""admin_menu.asp?action=move&id="&rs(0)&"&ord="&rs(2)&"&Onid="&Onid&"&Onord="&Onord&""">上移</A> "
				menu_js=menu_js&"document.getElementById(""move_"&menusi-1&""").href="""
				menu_js=menu_js&"admin_menu.asp?action=move&id="&Onid&"&ord="&Onord&"&Onid="&rs(0)&"&Onord="&rs(2)&""";"&vbcrlf
			End If 
			If menusi<rs.recordcount-1 Then response.write "<A id=""move_"&menusi&""" HREF="""">下移</A>"
			response.write "]</td></tr>"
			Onid=rs(0)
			Onord=rs(2)
			menusi=menusi+1

				Set rs2 = server.CreateObject("adodb.recordset")
				sql="select id,Menu,Ord,TopId from Admin_Menu where TopId="&Onid&" order by Ord"
				rs2.Open sql,Conn,1,1
				Onid2=0
				Onord2=0
				menusii=0
				If Not rs2.eof Then
					Do While Not rs2.eof
					response.write "<tr><td class=""art_info2 zq"">&nbsp;&nbsp;&nbsp;&nbsp;┣&nbsp;&nbsp;<A HREF=""admin_menu.asp?action=edit&id="&rs2(0)&""">"&rs2(1)&"</A></td>"
					response.write "<td class=""art_info2"">["
					If menusii<>0 Then
						response.write "<A HREF=""admin_menu.asp?action=move&id="&rs2(0)&"&ord="&rs2(2)&"&Onid="&Onid2&"&Onord="&Onord2&""">上移</A> "
						menu_js=menu_js&"document.getElementById(""move_"&menusi&"_"&menusii-1&""").href="""
						menu_js=menu_js&"admin_menu.asp?action=move&id="&Onid2&"&ord="&Onord2&"&Onid="&rs2(0)&"&Onord="&rs2(2)&""";"&vbcrlf
					End If 
					If menusii<rs2.recordcount-1 Then response.write "<A id=""move_"&menusi&"_"&menusii&""" HREF="""">下移</A>"
					response.write "]</td></tr>"
					Onid2=rs2(0)
					Onord2=rs2(2)
					menusii=menusii+1
					rs2.movenext
					loop
				End If 
				rs2.close
			rs.movenext
			loop
		Else
			response.write "<tr><td class=""art_tit"" align=center colspan=2><BR>当前列表为空<BR><BR></td></tr>"
		End If 
		rs.close
		response.write "</table>"
		response.write "<SCRIPT LANGUAGE=""JavaScript"">"&menu_js&"</SCRIPT>"
		Set rs = nothing 
End If 


Sub topmenulist(menuid)
	Set menurs = server.CreateObject("adodb.recordset")
	sql="select id,Menu from Admin_Menu where TopId=0 order by Ord"
		menurs.Open sql,Conn,1,1
		If Not menurs.eof Then
		response.write "<option value=""0"""
		If Int(menuid)=0 Then response.write " selected "
		response.write ">根目录...</option>"
		Do While Not menurs.eof
		response.write "<option value="""&menurs(0)&""""
		If Int(menuid)=menurs(0) Then response.write " selected "
		response.write ">"&menurs(1)&"</option>"
		menurs.movenext
		loop
		End If
End sub%>

	
     
   
 </body></html>