add-clend.asp

来自「西亚电子购物系统」· ASP 代码 · 共 21 行

<!--#include file="../manage/check-3.asp"-->
<!--#include file="../conn/conn.asp" -->
<%
dim newTitle,clid
Select case Request("action")
	case "step1"
	
		newTitle =Request.Form("newTitle")
		conn.execute("Insert into sia_category(clname)values('"& newTitle &"')")
		Response.write "<script>alert(""添加成功"");window.close();window.opener.location.reload();</script>"
		Response.End
	case "step2"
	
		newTitle =Request.Form("newTitle")
		clid = Request.Form("clid")
		conn.execute("Insert into sia_class(claname,clid)values('"& newTitle &"',"& clid &")")
		Response.write "<script>alert(""添加成功"");window.close();window.opener.location.reload();</script>"
		Response.End
	end Select
%>