sk_crm_class_del.asp

为你节约成本,让你的企业在信息时代助上一臂之力!!! 真正做到无纸办公,全自动化信息办公,不受地点的限制,只要你能上网就能随时随地掌握公司动向.

<% @language="vbscript" %>
<%
if session("name")="" or session("dd")="" then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
end if
if session("quanxian")<"3"  then
Response.Write("<script>alert(""对不起,你的权限不够！"");history.back();</script>")
response.end
end if
dd=session("dd")
%>
<!--#include file="conn.asp" -->
<%
response.buffer=true
Response.Expires=0
sclass_folder=Request("sclass_folder")
sclass_id=Request("sclass_id")

 sql="select * from SK_customer where vest_s = "&sclass_id&" and vest_m ="&session("dd")&""
 Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
  if rs.eof and rs.bof then

dim temrs,temsql
	set temrs=server.createobject("adodb.recordset")
	temsql="delete from SK_sclass where sclass_folder='"&sclass_folder&"'  and sclass_id="&sclass_id
	temrs.open temsql,conn,1,3
    set temrs=nothing
   else
    Response.Write("<script>alert(""对不起，该类别下面包含有客户资料,请删除客户资料后再删除类别！"");history.back();</script>")
    response.end
    end if
    conn.close
    set conn=nothing
%>