del.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 24 行

<!--#include file="../Session.asp"-->
<%
Id = Request("Id")

Select case Request("action")
	case "Fdel"	'F=first
		conn.execute("Delete From BigClass where BigId = " & Id)
		conn.execute("Delete From SmallClass where BigId = " & Id)
		conn.execute("Delete From ThirdClass where BigId = " & Id)
		conn.execute("Delete From Merchandise where BigId = " & Id)
		Response.redirect "Default.asp"
		Response.End
	case "Sdel"	'S=second
		conn.execute("Delete From SmallClass where SmallId = " & Id)
		conn.execute("Delete From ThirdClass where SmallId = " & Id)
		conn.execute("Delete From Merchandise where SmallId = " & Id)
		Response.redirect "Default.asp"
		Response.End
	case "Tdel"	'T=third
		conn.execute("Delete From ThirdClass where ThirdId = " & Id)
		Response.redirect "Default.asp"
		Response.End
End Select
%>