del-leibie.asp

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

<!--#include file="../login/0.asp"-->
<!--#include file="../../conn/conn.asp" -->
<% 
Select case Request("action")
	case "lbdel"
	    id = Request("id")
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Delete lb where lbid = " & id)
		conn.execute("Delete xlb where lbid = " & id)
		conn.execute("Delete slb where lbid = " & id)
		Response.write "<script>alert(""删除成功"");location.href=""leibie.asp"";</script>"
		Response.End
	case "xlbdel"
		id = Request("id")
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Delete xlb where xlbid = " & id)
		conn.execute("Delete slb where xlbid = " & id)
		Response.write "<script>alert(""删除成功"");location.href=""leibie.asp"";</script>"
		Response.End
	case "slbdel"
		id = Request("id")
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Delete slb where slbid = " & id)
		Response.write "<script>alert(""删除成功"");location.href=""leibie.asp"";</script>"
		Response.End
End Select
%>