menu_save_small_class.asp

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

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

<%
Dim menu_1
Dim smallclass
	menu_1=Request("menu_1")
	smallclassname=Request.Form("smallclassname")
	smallclassurl=Request.Form("smallclassurl")

	Response.Write menu_1
	Response.Write "<br>"
	Response.Write smallclassname

	Set rs_get_max_menu_2=conn.execute("select top 1 menu_2 from [menu] where menu_1="&menu_1&" order by menu_2 desc")
	Dim next_menu_2
		next_menu_2=rs_get_max_menu_2("menu_2")+1
	rs_get_max_menu_2.close
	Set rs_get_max_menu_2=nothing

	Response.Write next_menu_2

	Call InsertSql("menu","MenuName,Menu_1,Menu_2,MenuUrl"," '"&smallclassname&"','"&Menu_1&"','"&next_menu_2&"','"&smallclassurl&"' ")
	Call connclose
	Response.Redirect "menu_list.asp"
%>