<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
%>