menu_save.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<!-- #include file="../login/check.asp" -->

<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/sql.asp"-->

<%
Dim action
action=request("action")

Dim MenuName,MenuUrl,Menu_1,Menu_2
MenuName = Request.Form("MenuName")
MenuUrl  = Request.Form("MenuUrl")


If action="add" Then
menu_add
ElseIf action="edit" Then
menu_edit
ElseIf action="del" Then
menu_del
End if

Sub menu_add

Dim rs_get_max_menu_1,max_menu_1
Set rs_get_max_menu_1=conn.execute("select top 1 menu_1 from [menu] order by menu_1 desc")
max_menu_1=rs_get_max_menu_1("menu_1")+1
rs_get_max_menu_1.close
Set rs_get_max_menu_1=nothing
Menu_2=0
Call InsertSql("menu","MenuName,Menu_1,Menu_2","'"&MenuName&"','"&max_menu_1&"','"&Menu_2&"'")
End Sub

Sub menu_edit
Call UpdateSql("menu","MenuName,MenuUrl","'"&MenuName&"','"&MenuUrl&"' ","id="&Request.QueryString("id"))
End Sub

Sub menu_del
	Dim rs_get_self_menu_1,self_menu_1,self_menu_2
	Set rs_get_self_menu_1=conn.execute("select * from [menu] where id="&Request.QueryString("id"))
	self_menu_1=rs_get_self_menu_1("menu_1")
	self_menu_2=rs_get_self_menu_1("menu_2")
	rs_get_self_menu_1.close
	Set rs_get_self_menu_1=nothing

If self_menu_2<>0 Then
	Call DeleteSql_id("menu",Request.QueryString("id"))
else
	conn.execute("delete from [menu] where menu_1="&self_menu_1)
	conn.execute("update [menu] set menu_1=menu_1-1 where menu_1>"&self_menu_1)
End If

End Sub

response.redirect "menu_list.asp"
Call connclose()
%>