kehu_pact_del.asp

来自「该源码包含了CRM系统的基本功能」· ASP 代码 · 共 22 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<!--#include file=purview.asp-->
<%
call pact
if request("del")<>"" then
kid=Split(Request("del"),",") 
response.Write("正在删除...")
for i=0 to ubound(kid)
sqld="delete from tb_Pact where id="&clng(kid(i))
conn.execute(sqld)
next
if request("p")="" then
response.Redirect("KeHu_Pact.asp")
else
response.Redirect("KeHu_Pact.asp?p="&request("p"))
end if
else
response.Write("<script language=javascript>alert('请选择要删除的信息');location='javascript:history.go(-1)'</script>")
end if
%>