ok-tianjia-lb.asp

来自「电子商务系统Easy_Buy是一个在线销售系统」· ASP 代码 · 共 32 行

<!--#include file="../login/0.asp"-->
<!--#include file="../../conn/conn.asp" -->
<%
dim newTitle,lbid,xlbid
Select case Request("action")
	case "step1"
	
		newTitle =Request.Form("newTitle")
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Insert into lb(lbname)values('"& newTitle &"')")
		Response.write "<script>alert(""添加成功"");window.close();window.opener.location.reload();</script>"
		Response.End
	case "step2"
	
		newTitle =Request.Form("newTitle")
		lbid = Request.Form("lbid")
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Insert into xlb(xlbname,lbid)values('"& newTitle &"',"& lbid &")")
		Response.write "<script>alert(""添加成功"");window.close();window.opener.location.reload();</script>"
		Response.End
	case "step3"
	
		newTitle =Request.Form("newTitle")
		lbid = Request.Form("lbid")
		xlbid = Request.Form("xlbid")
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Insert into slb(slbname,lbid,xlbid)values('"& newTitle &"',"& lbid &","& xlbid &")")
		Response.write "<script>alert(""添加成功"");window.close();window.opener.location.reload();</script>"
		Response.End
end Select
%>