employeedel.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<% if request("del")<>"" then
if request("del")=1 then 
response.Write("<script language=javascript>alert('此用户不能删除');location='employeeguan.asp'</script>")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_User where name="&request("del")
rs.open sql,conn,1,3
do while not rs.eof
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
loop
sql9="delete from tb_Employee where id="&request("del")
conn.execute(sql9)
sql11="delete from tb_Wage where name="&request("del")
conn.execute(sql11)
sql12="delete from tb_User where name="&request("del")
conn.execute(sql12)
sql13="delete from tb_Messagef where jieshouzhe="&request("del")
conn.execute(sql13)
sql14="delete from tb_Message where jieshouzhe="&request("del")
conn.execute(sql14)
sql15="delete from tb_Letter_s where duixiang='个人' and point="&request("del")
conn.execute(sql15)
sql16="delete from tb_Letter_f where duixiang='个人' and point="&request("del")
conn.execute(sql16)
sql17="delete from tb_Work where wanchenglei='个人' and wanchengzhe='"&request("del")&"'"
conn.execute(sql17)
response.Write("<script language=javascript>alert('已经全部删除');location='employeeguan.asp'</script>")
end if
 %>