kehu_kehu_del.asp

ASP数据库系统开发案例精选(光盘）中的客户关系管理系统 用户名/密码：admin/admin

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<!--#include file=purview.asp-->
<%
call client
if request("del")<>"" then
	kid=Split(Request("del"),",") 
	response.Write("正在删除...")
	for i=0 to ubound(kid)
	sqld="delete from tb_Client where id="&clng(kid(i))'删除客户信息
	conn.execute(sqld)
	sqll="delete from tb_Linkman where LinkmanClient="&clng(kid(i))'删除客户的联系人信息
	conn.execute(sqll)
	sqlp="delete from tb_Pact where PactClient="&clng(kid(i))'删除客户的合同信息
	conn.execute(sqlp)
	sqlp="delete from tb_Feedback where FeedbackClient="&clng(kid(i))'删除客户反馈信息
	conn.execute(sqlp)
	sqlp="delete from tb_Product where ProductProvider="&clng(kid(i))'删除客户的产品信息
	conn.execute(sqlp)
	next
	'返回所在页
	if request("p")="" then
		response.Redirect("KeHu_KeHu.asp")
	else
		response.Redirect("KeHu_KeHu.asp?p="&request("p"))
	end if
else
	response.Write("<script language=javascript>alert('请选择要删除的信息');location='javascript:history.go(-1)'</script>")
end if
%>