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

📄 save.asp

📁 办公系统
💻 ASP
字号:
🔍 
<!--#include file="../includes/db.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>办公自动化系统</title>
</head>

<body>
<%
call insureID()
'只有总经理有招纳员工和调整员工职位的权限
'只有部门经理有对本部门员工有招纳的权限
if session("Position_id")<>1 AND session("Position_id")<>4 then
	call noRight
end if
'根据不同的要求执行不同的操作
if request("action")="Add" then
	response.write "tt"
	call saveAdd()
elseif request("action")="ModifyPosition" then
	call saveModifyPosition()
else
	call trigErr()
end if
'保存招纳
sub saveAdd()
	dim Pername
	dim Sex
	dim Dept_id
	dim Position_id
	Pername=request("Pername")
	Sex=request("Sex")
	Dept_id=request("Dept_id")
	Position_id=request("Position_id")
	
	if Pername="" or Sex="" or Dept_id="" or Position_id="" then
		call trigErr()
	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 Users_info.User_id, Users_info.Name " _
		&"FROM Users_info INNER JOIN " _
		&"[Position] ON Users_info.Position_id = [Position].Position_id INNER JOIN " _
		&"Dept ON Users_info.Dept_id = Dept.Dept_id " _
		&"WHERE ([Position].Position_id = "&Position_id&") AND (Dept.Dept_id = "&Dept_id&") "
	call openDB()
	rs.open sql,conn,1,1
	if not rs.eof then
		response.write "您的操作引起冲突:该职位已经有职员担任:"&rs("Name")&"(职员ID:"&rs("User_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 Users_info(Name, Sex, Position_id, Dept_id, Fired) " _
		&"VALUES( '"&request("Pername")&"',"&Sex&"," _
		&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")
	User_id=request.form("User_id")
	if(TargetDeptId="" or TargetPositionId="" or PersonnelId="") then
		call trigErr()
	end if
	TargetDeptId=cint(TargetDeptId)
	TargetPositionId=cint(TargetPositionId)
	User_id=cint(User_id)
	sql="SELECT Dept.Dept_id AS Dept1 "_
	&"FROM Dept INNER JOIN "_
    &"  Users_info ON Dept.Dept_id = Users_info.DEPT_ID INNER JOIN "_
    &"  [Position] ON Users_info.Position_id = [Position].Position_id "_
	&"WHERE (Dept.Dept_id = "&TargetDeptId&") AND ([Position].Position_id = "&TargetPositionId&") "_
	&"AND([Position].Position_id=1 OR [Position].Position_id=4) "
	call openDB()
	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=""Browse_Dept.asp"">取消</a>]"
		call closeDB()
		response.end
	end if
	sql="UPDATE Users_info SET Position_id="&TargetPositionId&" , Dept_id="&TargetDeptId _
	&" WHERE User_id="&User_id
	conn.execute(sql)
	closeDB
		response.write "更改成功![<a href=""Browse_Dept.asp"">返回</a>]"
end sub
%>
</body>
</html>

⌨️ 快捷键说明

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