📄 aa_menu.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Call Page_formBody()
Call Page_Spane(5)
dim Menu_Name
Page_HeadName="<A HREF=Aa_Menu.asp?Action=Add>添加菜单</A> | <A HREF=Aa_Menu.asp?Action=Manage>菜单列表</A>"
Select Case Action
Case "Add"
Call Page_AdminFlag(3)
Page_BootmName="添加菜单"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_Menu.asp?Action=sAdd>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>菜单名称：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Menu_Name TYPE=text id=Menu_Name SIZE=25></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>所属分类：</TD>"&_
"<TD CLASS=Table8>"
IF Id="" THEN
strIfa = strIfa & "<select NAME=ParentID id=ParentID>"&_
"<OPTION VALUE='0' selected>无（作为一级菜单）</OPTION>"
Set Rs=server.createobject("adodb.recordSet")
Sql="Select * From Tx_Menu where ParentID=0 order by Menu_Order"
Rs.open Sql,Conn,1,1
while not Rs.eof
strIfa = strIfa & "<OPTION VALUE=" & Rs("Menu_Id") & ">" & Rs("Menu_Name") & "</OPTION>"
Rs.MoveNext
WEnd
Rs.Close
Set Rs=Nothing
strIfa = strIfa & "</select>"
Else
Menu_Name=Conn.Execute("Select Menu_Name from Tx_Menu where Menu_Id=" & Id)(0)
strIfa = strIfa & "<INPUT NAME=ParentID TYPE=hidden id=ParentID VALUE=" & Id & ">"
strIfa = strIfa & Menu_Name
End IF
strIfa = strIfa & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>链接地址："&_
"</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Menu_Url TYPE=text id=Menu_Url SIZE=25> 请输入相对地址，尽量避免使用外部链接</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>菜单审核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Menu_Flag VALUE='1' checked> 通过审核 <INPUT TYPE=radio CLASS=radio_all NAME=Menu_Flag VALUE='0'>取消审核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit CLASS=submit_all id=ok VALUE=提交资料> "&_
"<INPUT NAME=cl TYPE=reSet id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(4)
Set Rs_edit=server.Createobject("Adodb.RecordSet")
Sql="Select * from Tx_Menu Where Menu_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="菜单修改 > " & Rs_edit("Menu_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Menu_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
strIfa = "<TABLE WIDTH=100% BORDER0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_Menu.asp?Action=sEdit&Id=" & Id & ">"&_
"<TR>"&_
"<TD WIDTH=50% HEIGHT=30 CLASS=Table8>菜单名称：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Menu_Name VALUE=" & Rs_edit("Menu_Name") & " TYPE=text id=Menu_Name SIZE=25></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>所属分类：</TD>"&_
"<TD CLASS=Table8>"&_
"<select NAME=ParentID id=ParentID>"&_
"<OPTION VALUE='0'>无（作为一级菜单）</OPTION>"
Set Rs_p=server.createobject("adodb.recordSet")
Sql="Select * From Tx_Menu where ParentID=0 order by Menu_Order"
Rs_p.open Sql,Conn,1,1
while not Rs_p.eof
IF Rs_edit("ParentID")=Rs_p("Menu_Id") THEN
selected="selected"
Else
selected=""
End IF
strIfa = strIfa & "<OPTION VALUE=" & Rs_p("Menu_Id") & " " & selected & ">" & Rs_p("Menu_Name") & "</OPTION>"
Rs_p.MoveNext
WEnd
Rs_p.Close
Set Rs_p=Nothing
strIfa = strIfa & "</select>"&_
"</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=50 CLASS=Table8>链接地址：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Menu_Url VALUE=" & Rs_edit("Menu_Url") & " TYPE=text id=Menu_Url SIZE=25> 请输入相对地址，尽量避免使用外部链接</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>菜单审核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all CLASS=radio_all NAME=Menu_Flag VALUE='1' " & checked1 & "> 通过审核 <INPUT TYPE=radio CLASS=radio_all NAME=Menu_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit CLASS=submit_all id=ok VALUE=提交资料> "&_
"<INPUT NAME=cl TYPE=reSet CLASS=submit_all id=cl VALUE=重新输入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Manage"
Call Page_AdminFlag(4)
Page_BootmName="菜单列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD HEIGHT=23 CLASS=Table6>菜单名称</TD><TD WIDTH=20% CLASS=Table6>链接地址</TD><TD WIDTH=15% CLASS=Table6>排序</TD><TD WIDTH=13% CLASS=Table6>属性</TD><TD WIDTH=30% CLASS=Table6>操作</TD></TR>"
dim ClassImages,Rs_t,TitleFlag1
Set Rs=server.createobject("adodb.recordSet")
Sql="Select * From Tx_Menu where ParentID=0 order by Menu_Order"
Rs.open Sql,Conn,1,1
while not Rs.eof
IF Rs("Menu_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>审核</FONT>"
End IF
Set Rs_p=server.createobject("adodb.recordSet")
Sql="Select * From Tx_Menu Where ParentID Like '%" & Rs("Menu_Id") & "%'"
Rs_p.open Sql,Conn,1,1
IF Rs_p.recordcount=0 THEN
ClassImages="Images/Admin/Admin20051034.gIF"
Else
ClassImages="Images/Admin/Admin20051035.gIF"
End IF
Rs_p.Close
Set Rs_p=Nothing
strIfa = strIfa & "<Form NAME=EditOrder method=post action=Aa_Menu.asp?Action=EditOrder&Id=" & Rs("Menu_Id") & ">"&_
"<TR CLASS=Table9 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
"<TD HEIGHT=25> <IMG SRC=" & ClassImages & " WIDTH=15 HEIGHT=15><A HREF=Aa_Menu.asp?Action=Edit&Id=" & Rs("Menu_Id") & "><B>" & Rs("Menu_Name") & "</B></A></TD>"&_
"<TD ALIGN=center>" & Rs("Menu_Url") & "</TD>"&_
"<TD> "&_
"<INPUT NAME=Menu_order TYPE=text id=Menu_order VALUE=" & Rs("Menu_Order") & " SIZE=4 maxlength=4 onkeypress='event.returnValue=IsDigit();'>"&_
"<INPUT TYPE=submit CLASS=submit_all NAME=ok VALUE='提交'></TD>"&_
"<TD ALIGN=center><FONT COLOR=006600> </FONT><B>一级菜单</B></TD>"&_
"<TD ALIGN=center><A HREF=Aa_Menu.asp?Action=Add&Id=" & Rs("Menu_Id") & ">添加子菜单</A> | <A HREF=Aa_Menu.asp?Action=Edit&Id=" & Rs("Menu_Id") & ">修改</A> | <A HREF=Aa_Menu.asp?Action=Flag&Id=" & Rs("Menu_Id") & ">" & TitleFlag & "</A> | <A HREF=Aa_Menu.asp?Action=Del&Id=" & Rs("Menu_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A></TD>"&_
"</TR></form>"
Set Rs_t=server.createobject("adodb.recordSet")
Sql="Select * From Tx_Menu where ParentID=" & Rs("Menu_Id") & " order by Menu_Order"
Rs_t.open Sql,Conn,1,1
while not Rs_t.eof
IF Rs_t("Menu_Flag")=1 THEN
TitleFlag1="<FONT COLOR=006600>取消</FONT>"
Else
TitleFlag1="<FONT COLOR=ff0000>审核</FONT>"
End IF
strIfa = strIfa & "<Form NAME=EditOrder method=post action=Aa_Menu.asp?Action=EditOrder&Id=" & Rs_t("Menu_Id") & ">"&_
"<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
"<TD HEIGHT=25> <IMG SRC=Images/Admin/Admin20051034.gIF WIDTH=15 HEIGHT=15><A HREF=Aa_Menu.asp?Action=Edit&Id=" & Rs_t("Menu_Id") & ">" & Rs_t("Menu_Name") & "</A></TD>"&_
"<TD ALIGN=center>" & Rs_t("Menu_Url") & "</TD>"&_
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -