www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_menu.asp
<!--#include file="../conn.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="../inc/inc.asp"-->
<%
res w3chead(HTMLother),1
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""> <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""> <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"">"&vbcrlf
If action="move" Then
Set rs=conn.execute("UPDATE Admin_Menu set Ord="&Onord&" where id="&id)
Set rs1=conn.execute("UPDATE Admin_Menu set Ord="&ord&" where id="&Onid)
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"">┳ <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>"&vbcrlf
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""> ┣ <A HREF=""admin_menu.asp?action=edit&id="&rs2(0)&""">"&rs2(1)&"</A></td>"&vbcrlf
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>"&vbcrlf
Onid2=rs2(0)
Onord2=rs2(2)
menusii=menusii+1
Set rs3 = server.CreateObject("adodb.recordset")
sql="select id,Menu,Ord,TopId from Admin_Menu where TopId="&Onid2&" order by Ord"
rs3.Open sql,Conn,1,1
Onid3=0
Onord3=0
menusiii=0
If Not rs3.eof Then
Do While Not rs3.eof
response.write "<tr><td class=""art_info2 zq""> ┣ <A HREF=""admin_menu.asp?action=edit&id="&rs3(0)&""">"&rs3(1)&"</A></td>"&vbcrlf
response.write " <td class=""art_info2"">["
If menusiii<>0 Then
response.write "<A HREF=""admin_menu.asp?action=move&id="&rs3(0)&"&ord="&rs3(2)&"&Onid="&Onid3&"&Onord="&Onord3&""">上移</A> "
menu_js=menu_js&"document.getElementById(""move_"&menusi&"_"&menusii&"_"&menusiii-1&""").href="""
menu_js=menu_js&"admin_menu.asp?action=move&id="&Onid3&"&ord="&Onord3&"&Onid="&rs3(0)&"&Onord="&rs3(2)&""";"&vbcrlf
End If
If menusiii<rs3.recordcount-1 Then response.write "<A id=""move_"&menusi&"_"&menusii&"_"&menusiii&""" HREF="""">下移</A>"
response.write "]</td></tr>"&vbcrlf
Onid3=rs3(0)
Onord3=rs3(2)
menusiii=menusiii+1
rs3.movenext
loop
End If
rs3.close
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>"&vbcrlf
End If
rs.close
response.write "</table>"&vbcrlf
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
res footer(1),0
%>