aa_menu.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

                  "<TD>　 "&_
                  "<INPUT NAME=Menu_order TYPE=text id=Menu_order VALUE=" & Rs_t("Menu_Order") & " SIZE=3 maxlength=3 onkeypress='event.returnValue=IsDigit();'>"&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=ok VALUE=提交>"&_
                  "</TD>"&_
                  "<TD ALIGN=center><FONT COLOR=006600>&nbsp;</FONT>二级菜单</TD>"&_
                  "<TD ALIGN=center><FONT COLOR=dfdfdf>添加子菜单</FONT> | <A HREF=Aa_Menu.asp?Action=Edit&Id=" & Rs_t("Menu_Id") & ">修改</A> | <A HREF=Aa_Menu.asp?Action=Flag&Id=" & Rs_t("Menu_Id") & ">" & TitleFlag1 & "</A> | <A HREF=Aa_Menu.asp?Action=Del&Id=" & Rs_t("Menu_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A></TD>"&_
                  "</TR></form>"
                  Rs_t.MoveNext
                  Wend
                  Rs_t.Close
                  Set Rs_t=Nothing
                  Rs.MoveNext
                  Wend
                  Rs.Close
                  Set Rs=Nothing
strIfa = strIfa & "</TABLE>"
Call Page_aTable(0,0)
Case "sAdd"
IF Request.form("Menu_Name")="" THEN
Errorst="请输入菜单名称！"
founderr=True
elseIF Request.form("Menu_Url")="" THEN
Errorst="请输入链接地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	dim Menu_Order
	    Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_Menu where ParentID=" & Request.form("ParentID") & " order by Menu_Order desc"
        Rs.open Sql,Conn,1,1
		IF Rs.recordcount=0 THEN
		    Menu_Order=Rs.recordcount
		Else
		    Menu_Order=Rs("Menu_Order")
		End IF
		Rs.Close
		Set Rs=Nothing
	Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_Menu"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Menu_Name")=Request.form("Menu_Name")
		Rs("Menu_Url")=Request.form("Menu_Url")
		Rs("ParentID")=Request.form("ParentID")
		Rs("Menu_Order")=Menu_Order+1
		Rs("Menu_Flag")=Request.form("Menu_Flag")
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory="Aa_Menu.asp?Action=Manage"
		saveok="菜单：[ " & Request.form("Menu_Name") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("Menu_Name")="" THEN
Errorst="请输入菜单名称！"
founderr=True
elseIF Request.form("Menu_Url")="" THEN
Errorst="请输入链接地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
        Sql="Select * From Tx_Menu where ParentID=" & Request.form("ParentID") & " order by Menu_Order desc"
        Rs.open Sql,Conn,1,1
		IF Rs.recordcount=0 THEN
		    Menu_Order=Rs.recordcount
		Else
		    Menu_Order=Rs("Menu_Order")
		End IF
		Rs.Close
		Set Rs=Nothing
	Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_Menu where Menu_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Menu_Name")=Request.form("Menu_Name")
		Rs("Menu_Url")=Request.form("Menu_Url")
		Rs("ParentID")=Request.form("ParentID")
		Rs("Menu_Flag")=Request.form("Menu_Flag")
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=Request.servervariables("http_referer")
		saveok="菜单：[ " & Request.form("Menu_Name") & " ] 修改成功！"
	    Call Form_Saveok()
		End IF
Case "EditOrder"
IF not isnumeric(Request.form("Menu_order")) THEN
Errorst="错误的参数（请输入数字）！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	
	    NewOrder=Request.form("Menu_order")
	    Set Rs=server.Createobject("Adodb.RecordSet")
            Sql="Select * From Tx_Menu Where Menu_Id=" & Id
            Rs.open Sql,Conn,1,3
            OldOrder=Rs("Menu_Order")
		    Menu_Name=Rs("Menu_Name")
		    ParentID=Rs("ParentID")
	        IF NewOrder="" THEN
		        Rs("Menu_Order")=Rs("Menu_Order")
	        Else
		        Rs("Menu_Order")=NewOrder
	        End IF
		    Rs.UpDate
		Rs.Close
		Set Rs=Nothing
	    Set Rs=server.Createobject("Adodb.RecordSet")
            Sql="Select * From Tx_Menu Where ParentID=" & ParentID & " And Menu_Order>=" & NewOrder & " And Menu_Id<>" & Id & " Order By Menu_Order"
            Rs.open Sql,Conn,1,3
	        IF Rs.Recordcount<>0 THEN
	            IF Rs("Menu_Order")<NewOrder+1 THEN
                    While Not Rs.eof
		                Rs("Menu_Order")=Rs("Menu_Order")+1
	                    Rs.moveNext
                    Wend
	            End IF
	        End IF
	    Rs.Close
		Set Rs=Nothing
		ToHistory="Aa_Menu.asp?Action=Manage"
		saveok="菜单：" & Menu_Name & " 原序号为" & OldOrder & "，现序号为" & NewOrder & "！"
	    Call Form_Saveok()
End IF
Case "Del"
Set Rs=server.Createobject("Adodb.RecordSet")
Sql="Select * from Tx_Menu where ParentID=" & Id
Rs.open Sql,Conn,1,1
crecordcount=Rs.Recordcount
Rs.Close
Set Rs=Nothing
IF crecordcount<>0 THEN
Errorst="您要删除的菜单有下属子菜单，请先删除子菜单！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "Delete From Tx_Menu Where Menu_Id=" & Id
    ToHistory="Aa_Menu.asp?Action=Manage"
    saveok="删除成功！"
    Call Form_Saveok()
	End IF
Case "Flag"
	Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_Menu where Menu_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("Menu_Flag")=1 THEN
		    Rs("Menu_Flag")=0
		saveok="菜单：[ " & Rs("Menu_Name") & " ] 已取消审核！"
		Else
		    Rs("Menu_Flag")=1
		saveok="菜单：[ " & Rs("Menu_Name") & " ] 已通过审核！"
		End IF
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
	    Call Form_Saveok()
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_EndBody()
%>