⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 savehm.asp

📁 功能强大的网络办公系统 支持油箱管理,短消息,文件管理,考勤管理等功能
💻 ASP
字号:
🔍 
<!--#include file="../includes/keepHouse.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebOffice</title>
</head>

<body>
<%
call insureID()
if session("POSITION_ID")<>1 AND session("POSITION_ID")<>4 then
	call noRight
end if

if request("action")="Hire" then
	call saveHire()
elseif request("action")="ModifyPosition" then
	call saveModifyPosition()
else
	debug("111")
	'call trigErr()
end if

sub saveHire()
	dim PERSON_NAME
	dim GENDER
	dim DEPT_ID
	dim POSITION_ID
	PERSON_NAME=request("PERSON_NAME")
	GENDER=request("GENDER")
	DEPT_ID=request("DEPT_ID")
	POSITION_ID=request("POSITION_ID")
	
	if PERSON_NAME="" or GENDER="" or DEPT_ID="" or POSITION_ID="" then
		call trigErr()
	end if
	if GENDER="Male" then
		GENDER=1
	elseif GENDER="Female" then
		GENDER=0
	end if
	
	if (POSITION_ID<=3 and DEPT_ID>1) or(POSITION_ID>3 and DEPT_ID=1) then
		response.write "您的操作引起冲突:该部门没有设置这个职位"
		response.write "&nbsp;[<a href=""javaScript:history.back()"">修改</a>]"
		response.write "&nbsp;[<a href=""Browse.asp"">取消</a>]"
	end if
	sql="SELECT Personnel.PERSONNEL_ID, Personnel.PERSON_NAME " _
		&"FROM Personnel INNER JOIN " _
		&"[Position] ON Personnel.POSITION_ID = [Position].POSITION_ID INNER JOIN " _
		&"Department ON Personnel.DEPT_ID = Department.DEPT_ID " _
		&"WHERE ([Position].POSITION_ID = "&POSITION_ID&") AND (Department.DEPT_ID = "&DEPT_ID&") "
	call openDB()
	rs.open sql,conn,1,1
	if not rs.eof then
		response.write "您的操作引起冲突:该职位已经有职员担任:"&rs("PERSON_NAME")&"(职员ID:"&rs("PERSONNEL_ID")&")"
		response.write "&nbsp;[<a href=""javaScript:history.back()"">修改</a>]"
		response.write "&nbsp;[<a href=""Browse.asp"">取消</a>]"
		call closeDB()
	end if
	
	
	sql="INSERT INTO Personnel(PERSON_NAME, PERSON_GENDER, POSITION_ID, DEPT_ID, FIRED) " _
		&"VALUES( '"&request("PERSON_NAME")&"',"&GENDER&"," _
		&request("POSITION_ID")&","&request("DEPT_ID")&",0) "
	conn.execute(sql)
	call closeDB()
	response.write "添加成功![<a href=""Browse.asp"">返回</a>]"
end sub

sub saveModifyPosition()
	dim TargetDeptId
	dim TargetPositionId
	dim PersonnelId
	TargetDeptId=request.form("TargetDeptId")
	TargetPositionId=request.form("TargetPositionId")
	PersonnelId=request.form("PersonnelId")
	if(TargetDeptId="" or TargetPositionId="" or PersonnelId="") then
	debug("222")
		'trigErr
	end if
	TargetDeptId=cint(TargetDeptId)
	TargetPositionId=cint(TargetPositionId)
	PersonnelId=cint(PersonnelId)
	sql="SELECT Department.DEPT_ID AS EXPR1 "_
	&"FROM Department INNER JOIN "_
    &"  Personnel ON Department.DEPT_ID = Personnel.DEPT_ID INNER JOIN "_
    &"  [Position] ON Personnel.POSITION_ID = [Position].POSITION_ID "_
	&"WHERE (Department.DEPT_ID = "&TargetDeptId&") AND ([Position].POSITION_ID = "&TargetPositionId&") "_
	&"AND([Position].POSITION_ID=1 OR [Position].POSITION_ID=4) "
	call openDB()
	'debug(sql)
	rs.open sql,conn,1,1
	if not rs.eof then
		response.write "您的操作引起冲突:该职位已经有职员担任,且只能由一人担任."
		response.write "&nbsp;[<a href=""javaScript:history.back()"">修改</a>]"
		response.write "&nbsp;[<a href=""BrowseDeptList.asp"">取消</a>]"
		call closeDB()
		response.end
	end if
	sql="UPDATE Personnel SET POSITION_ID="&TargetPositionId&" , DEPT_ID="&TargetDeptId _
	&" WHERE PERSONNEL_ID="&PersonnelId
	conn.execute(sql)
	closeDB
		response.write "更改成功![<a href=""BrowseDeptList.asp"">返回</a>]"
end sub
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -