sk_crm_system_deltree.asp

来自「为你节约成本,让你的企业在信息时代助上一臂之力!!! 真正做到无纸办公,全自动」· ASP 代码 · 共 31 行

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

response.buffer=true
Response.Expires=0

id=Request("id")

dim rs,sql  ,temprs,tempsql                                 
	set rs=server.createobject("adodb.recordset")
	sql="delete from SK_mclass where mclass_id="&id&" and user_id="&session("dd")&"  "
	rs.open sql,conn,1,3                                            
    set rs=nothing
              

    conn.close
    set conn=nothing    
%>
<%
response.Redirect "SK_CRM_system_userlist.asp?SK_mclass=78"
response.end
%>