📄 dimission.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936" Transaction="Required"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>人力资源管理系统</title>
<link href="../Include/type.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 48px; top: 178px;">
<!--内容开始-->
<div id="mainop" style="position:absolute; width:70%; height:115px; z-index:4; left: 15%; top: 0px;">
<%
call checkin_sys(session("UsersId"),session("PerId"),26)
dim id,res,userid,ddate,check_inall,check_indept
id=Request.QueryString("id")
ddate = cstr(year(date))&"-"&cstr(month(date))&"-"&cstr(day(date))
set res=server.CreateObject("ADODB.recordset")
res.Open "select a.users_id from users as a inner join personnel as b on a.personnel_id=b.personnel_id where b.personnel_id="&id,conn,3,3
userid=res.Fields(0).Value
'Response.Write userid
'Response.End
res.Close
res.Open "exec dism "&userid,conn,1,1
check_inall=res(0)
res.close
res.open "exec check_indept "&userid,conn,1,1
check_indept=res(0)
if check_inall="false" then
Response.Write "<script language='Javascript'>"
Response.Write "alert('该员工具有唯一性权限,或有工作任务未完成!');"
response.Write "window.history.go(-1);"
Response.Write "</script>"
elseif check_indept<>"3" then
Response.Write "<script language='Javascript'>"
Response.Write "alert('该员工具有唯一的本部门审核权限,离职前请将所具有权限交接给他人!');"
response.Write "window.history.go(-1);"
Response.Write "</script>"
elseif check_inall="true" and check_indept="3" then
on error resume next
conn.execute "update personnel set personnel_state='离职',personnel_ldate='"&ddate&"' where personnel_id="&id '修改员工状态
conn.execute "delete users where users_id="&userid '删除员工对应用户
if err.number=0 then
ObjectContext.setComplete
Response.Write "<script language='Javascript'>"
Response.Write "alert('该员工已离职!');"
Response.Write "document.location='Search_emly.asp';"
Response.Write "</script>"
else
ObjectContext.setAbort
Response.Write "<script language='Javascript'>"
Response.Write "alert('设置离职未成功!');"
Response.Write "document.location='Search_emly.asp';"
Response.Write "</script>"
end if
end if
res.Close
set res=nothing
conn.close
set conn=nothing
%>
</div>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -