deptdel.asp

目前人力资源管理系统的发展已经相对成熟

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<!--#include file=purview.asp-->
<%
call bumenshezhi
doid=request("del")
if request("del")=1 then
	response.Write("<script language=javascript>alert('对不起这个部门不能删除！')</script>")
else
	if request("del")<>"" then
		set rsb=server.CreateObject("adodb.recordset")
		sqlb="Select * from tb_dept where id="&doid
		rsb.Open sqlb,conn,1,3
		if not rsb.EOF then
			bup = rsb("up")							
			set rsd=server.CreateObject("adodb.recordset")	
			sqld="Select * from tb_dept"
			rsd.Open sqld,conn,1,3
			do while not rsd.EOF
				dup = rsd("up")
				delid =rsd("id")			
				if InStr(bup,",") < 0 then
					del_name=split(dup,",")
					if del_name(0) = bup then
						rsd.Delete
						rsd.Update
						sqlw="delete from tb_zhiwei where suoshu="&delid
						conn.execute(sqlw)
						set rsre=server.CreateObject("adodb.recordset")
						sqlre="select * from tb_Employee where suoshu="&delid
						rsre.open sqlre,conn,1,1
						do while not rsre.eof 							
							set rs=server.CreateObject("adodb.recordset")
							sql="select * from tb_User where name="&rsre("id")
							rs.open sql,conn,1,3
							do while not rs.eof
									subdel1
							loop
							subdel2
						loop
					end if
					response.write "<script language=javascript>alert('部门删除成功！');parent.location.reload()</script>"
				else
					if InStr(dup,bup) > 0 then
						rsd.Delete
						rsd.Update
						sqlw="delete from tb_zhiwei where suoshu="&delid
						conn.execute(sqlw)
						set rsre=server.CreateObject("adodb.recordset")
						sqlre="select * from tb_Employee where suoshu="&delid
						rsre.open sqlre,conn,1,1
						do while not rsre.eof 
							set rs=server.CreateObject("adodb.recordset")
							sql="select * from tb_User where name="&rsre("id")
							rs.open sql,conn,1,3
							do while not rs.eof
								subdel1
							loop
								subdel2
						loop
					end if
				end if
				rsd.MoveNext
			loop
			response.write "<script language=javascript>alert('部门删除成功！');parent.location.reload()</script>"
			rsd.close
			set rsd=nothing
		end if
	end if
end if
sub subdel1
	sql1="delete from tb_Work where buzhizhe='"&rs("username")&"'"
	conn.execute(sql1)
	sql2="delete from tb_Messagef where fabuzhe='"&rs("username")&"'"
	conn.execute(sql2)
	sql3="delete from tb_Message where fabuzhe='"&rs("username")&"'"
	conn.execute(sql3)
	sql4="delete from tb_Letter_s where name='"&rs("username")&"'"
	conn.execute(sql4)
	sql5="delete from tb_Letter_f where name='"&rs("username")&"'"
	conn.execute(sql5)
	sql6="delete from tb_Leave where name='"&rs("username")&"'"
	conn.execute(sql6)
	sql7="delete from tb_Kaoqin where name='"&rs("username")&"'"
	conn.execute(sql7)
	sql8="delete from tb_Job where name='"&rs("username")&"'"
	conn.execute(sql8)
	rs.movenext
end sub
sub subdel2
	sql9="delete from tb_Employee where id="&rsre("id")
	conn.execute(sql9)
	sql11="delete from tb_Wage where name="&rsre("id")
	conn.execute(sql11)
	sql12="delete from tb_User where name="&rsre("id")
	conn.execute(sql12)
	sql13="delete from tb_Messagef where jieshouzhe="&rsre("id")
	conn.execute(sql13)
	sql14="delete from tb_Message where jieshouzhe="&delid
	conn.execute(sql14)
	sql15="select * from tb_Letter_s where duixiang='个人' and point="&rsre("id")
	conn.execute(sql15)
	sql16="select * from tb_Letter_f where duixiang='个人' and point="&rsre("id")
	conn.execute(sql16)
	sql17="select * from tb_Work where wanchenglei='个人' and wanchengzhe="&rsre("id")
	conn.execute(sql17)
	rsre.movenext
end sub
%>