my_buyer_del.asp

来自「适用于网络/信息企业」· ASP 代码 · 共 30 行

<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<%
dim Makking
Makking = Trim(Request.QueryString("Makking"))    
'---------------------------------
select case Makking
case ""

Conn.Execute("Delete My_Buyer Where Buyer_ID='"& Request.QueryString("ID") &"' and Employee_ID = '"& Session("Eboer_CRM_Employee_ID") &"'")

	Set Rs = Conn.Execute("Select Count(*) As My_Buyer_Count From My_Buyer Where Buyer_ID = '"& Request.QueryString("ID") &"'")
	
		My_Buyer_Count = Rs("My_Buyer_Count")
			
		Rs.Close
		
	Set Rs = Nothing

	Conn.Execute("Update Buyer_Info Set My_Buyer = "& My_Buyer_Count &" Where Buyer_ID='"& Request.QueryString("ID") &"'")

	Response.Write "<script>window.opener.location.reload();window.close();</script>"
	Response.End

end select
Conn.Close
Set Conn = Nothing
%>