deltitle.asp

矮子多用户版客户管理系统2.0Bate2

<% @language="vbscript" %>
<%
if session("name")="" or session("dd")="" then
response.write "SORRY <br>"
response.write "数据在携带中出现意外！<br>"
response.write "<a href=login.asp>回去重来</a>"
response.end
end if
if session("quanxian")<"3"  then
response.write "SORRY <br>"
response.write "您的权限不够！请勿尝试非法访问！<br>"
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 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 sclass where sclass_folder='"&sclass_folder&"'  and sclass_id="&sclass_id
	temrs.open temsql,conn,1,3                                                          
    set temrs=nothing
    
  
   else  
    response.write "<p align='center'>本类还有客户，请先删除本类下的所有客户！" 
    response.write "<a href=gtitle.asp>请点此返回</a></p>" 
    response.end
    end if
Response.Write("<script>parent.leftFrame.location='fi.asp';self.location='gtitle.asp'</script>") 

    conn.close
    set conn=nothing
%>