?? aa_menu.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 產品名稱：CSYS.COM.CN企業全站管理系統（V2007簡體中文版）
' 聯系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.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 + -