stockpile_product_del.asp

来自「ASP数据库系统开发案例精选(光盘）中的客户关系管理系统 用户名/密码：a」· ASP 代码 · 共 25 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<!--#include file=purview.asp-->
<%
call product                  '验证用户权限
if request("del")<>"" then
	kid=Split(Request("del"),",") '分解字符成数组
	response.Write("正在删除...")
	for i=0 to ubound(kid)        '利用循环逐个删除——产品表
	sqld="delete from tb_Product where id="&clng(kid(i))
	conn.execute(sqld)
	sqld="delete from tb_Stockpile where StockpileProductName="&clng(kid(i))  '利用循环逐个删除——库存表
	conn.execute(sqld)
	next
	'取得返回页的参数
	if request("p")="" then
		response.Redirect("Stockpile_Product.asp")
	else
		response.Redirect("Stockpile_Product.asp?p="&request("p"))
	end if
else
	response.Write("<script language=javascript>alert('请选择要删除的信息');location='javascript:history.go(-1)'</script>")
end if
%>