ok-xiugai-lb.asp

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

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