人力资源管理系统代码 ASP.docx

<%

else

response.Redirect（"login.asp"）

endif

%>

7模块设计

7．1人力规划

人力规划主要包括部门设置、职位设置、人事设置、添加员工、填写合同、合同管理和合同模版7部分组成。

1.部门设置

部门设置主要用于用户管理部门的名称，包括显示、添加、修改和删除部门信息4个部分部门显示

当用户在单击“部门设置”超链接时，页面在展示区会显示出部门名称其程序代码如下：

<%

callbumenshezhi

'部门

setrsb=server.CreateObject（"adodb.recordset"）

sqlb="selectlevelfromtb_Deptgroupbylevel"

rsb.opensqlb,conn,1,1

max=rsb.recordcount

rsb.close

%>

部门设置可以添加部门名称、修改部门、删除部门

添加部门对应文件deptadd.asp，代码

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile=DataBase/conn.asp-->

--#includefile=yan.asp-->

--#includefile=purview.asp-->

<%

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromtb_Deptorderbyup"

rs.opensql,conn,1,1

ifrequest（"post"）<>""then

ifrequest（"title"）<>""then

setrsc=server.CreateObject（"adodb.recordset"）

sqlc="select*fromtb_Deptwhereshangji="&request（"up"）&"andtitle='"&request（"title"）&"'"

rsc.opensqlc,conn,1,1

ifnotrsc.eofthen

response.Write（"alert（'同一级别下的部门不能重名'）;location='javascript:

history.go（-1）'"）

response.End（）

endif

setrsj=server.CreateObject（"adodb.recordset"）

sqlj="select*fromtb_Deptwhereid="&request（"up"）

rsj.opensqlj,conn,1,1

up=rsj（"up"）

setrsa=server.CreateObject（"adodb.recordset"）

sqla="Select*fromtb_Deptwhereidisnull"

rsa.Opensqla,conn,1,3

rsa.addnew

rsa（"title"）=request（"title"）

rsa（"level"）=rsj（"level"）+1

rsa（"up"）=request（"up"）

rsa（"shangji"）=request（"up"）

rsa.update

rsa.close

setrsa=server.CreateObject（"adodb.recordset"）

sqla="Select*fromtb_Deptorderbyiddesc"

rsa.Opensqla,conn,1,3

id=rsa（"id"）

'添加排序

setrsa1=server.CreateObject（"adodb.recordset"）

sqla1="Select*fromtb_Dept"

rsa1.Opensqla,conn,1,3

rsa1（"up"）=up&","&id

rsa1.update

rsa1.close

setrsc=nothing

response.Write（"alert（'添加成功'）;parent.location.reload（）"）

else

response.Write（"alert（'请填写部门名称'）;location='javascript:

history.go（-1）'"）

endif

endif

%>

修改部门文件为deptedit.asp代码

<%

callbumenshezhi

ifrequest（"post"）<>""then

setrsa=server.CreateObject（"adodb.recordset"）

sqla="select*fromtb_Deptwhereid="&request（"id"）

rsa.opensqla,conn,1,3

rsa（"title"）=request（"title"）

rsa（"content"）=request（"content"）

rsa.update

rsa.close

response.Write（"alert（'修改成功'）;opener.location.reload（）;window.close（）"）

endif

ifrequest（"id"）<>""then

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromtb_Deptwhereid="&request（"id"）

rs.opensql,conn,1,1

%>

删除部门文件deptopen.asp代码

<%

callbumenshezhi

ifrequest（"id"）<>""then

'部门名称

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromtb_Deptwhereid="&request（"id"）

rs.opensql,conn,1,1

'上级部门

ifrs（"shangji"）<>""then

setrss=server.CreateObject（"adodb.recordset"）

sqls="select*fromtb_Deptwhereid="&rs（"shangji"）

rss.opensqls,conn,1,1

endif

'下级部门

setrsd=server.CreateObject（"adodb.recordset"）

sqld="select*fromtb_Deptwhereshangji="&request（"id"）

rsd.opensqld,conn,1,1

'职位名称

setrsz=server.CreateObject（"adodb.recordset"）

sqlz="select*fromtb_ZhiWeiwheresuoshu="&rs（"id"）

rsz.opensqlz,conn,1,1

endif

%>

2.职位设置

职位设置文件为zhiwei.asp，可以选择所属部门，添加职位、修改职位文件zhiweiopen.asp

代码

<%

callzhiweishezhi

ifrequest（"post"）<>""then

ifrequest（"zhiwei"）<>""then

setrs1=server.CreateObject（"adodb.recordset"）

sql1="Select*fromtb_ZhiWei"

rs1.Opensql1,conn,1,3

rs1.addnew

rs1（"zhiwei"）=request（"zhiwei"）

rs1（"suoshu"）=request（"suoshu"）

rs1.update

rs1.close

setrs1=nothing

response.Write（"alert（'提交成功'）;location='zhiwei.asp'"）

else

response.Write（"alert（'职位名称必须填写'）;location='zhiwei.asp'"）

endif

endif

修改职位代码

setrs=server.CreateObject（"adodb.recordset"）

sql="Select*fromtb_deptorderbyup"

rs.Opensql,conn,1,3

%>

<%

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromtb_ZhiWeiwhereid="&request（"id"）

rs.opensql,conn,1,1

selectcaserequest（"post"）

case"rename"

setrs1=server.CreateObject（"adodb.recordset"）

sql1="select*fromtb_ZhiWeiwhereid="&request（"id"）

rs1.opensql,conn,1,3

rs1（"zhiwei"）=request（"zhiwei"）

rs1.update

rs1.close

response.Write（"alert（'修改成功'）;opener.location.reload（）;window.close（）"）

case"del"

onerrorresumenext

ifrequest（"id"）=2then

response.Write（""）

response.End（）

endif

sql2="updatetb_Employeesetzhiwei=null,suoshu=null,kong=0wherezhiwei='"&request（"id"）&"'"

conn.execute（sql2）

sql1="deletefromtb_ZhiWeiwhereid="&request（"id"）

conn.execute（sql1）

response.Write（"alert（'删除成功'）;opener.location.reload（）;window.close（）"）

endselect

%>

3人事设置

人事设置文件为employeeedit.asp可以添加职位、修改人员部门职务信息

代码

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile=DataBase/conn.asp-->

--#includefile=yan.asp-->

--#includefile=purview.asp-->

<%

callrenshishezhi

'人员

setrsr=server.CreateObject（"adodb.recordset"）

sqlr="select*fromtb_Employeewherekong=1"

rsr.opensqlr,conn,1,1

'部门

functionbumen

setrsb=server.CreateObject（"adodb.recordset"）

sqlb="select*fromtb_deptwhereid="&rsr（"suoshu"）

rsb.opensqlb,conn,1,1

response.Write（rsb（"title"））

endfunction

'职位

functionzhiwei

setrsz=server.CreateObject（"adodb.recordset"）

sqlz="select*fromtb_ZhiWeiwhereid="&rsr（"zhiwei"）

rsz.opensqlz,conn,1,1

response.Write（rsz（"zhiwei"））

endfunction

%>

4添加员工

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile=DataBase/conn.asp-->

<%

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromtb_Jobbasewhereid="&request（"id"）

rs.opensql,conn,1,1

%>

5填写合同文件为pactadd.asp能选择人员名称，查看资料选择合同类型期限填写有效期

代码

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile=DataBase/conn.asp-->

--#includefile=yan.asp-->

--#includefile=purview.asp-->

<%

calltianxiehetong

ifrequest（"post"）<>""then

ifrequest（"qixian"）<>""andrequest（"nameid"）then

setrsa=server.CreateObject（"adodb.recordset"）

sqla="select*fromtb_Employeewhereid="&request（"nameid"）

rsa.opensqla,conn,1,3

rsa（"hetong"）=request（"hetong"）

rsa（"qixian"）=request（"qixian"）

rsa（"youxiaoqi"）=request（"cyear"）&"-"&request（"cmonth"）&"-"&request（"cday"）&"至"&request（"zyear"）&"-"&request（"zmonth"）&"-"&request（"zday"）

rsa（"zhengshi"）=1

rsa.update

rsa.close

response.Write（"alert（'提交成功'）;location='pactadd.asp'"）

else

response.Write（"alert（'人员名称或合同期限不能为空'）;location='javascript:

history.go（-1）'"）

endif

endif

'员工

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromtb_Employeewherekong=1andhetongisnull"

rs.opensql,conn,1,1

%>

6合同管理

合同管理文件为pacradde.asp可以修改合同类型合同期限有效期

<%

calltianxiehetong

ifrequest（"post"）<>""then

ifrequest（"qixian"）<>""then

setrsa=server.CreateObject（"adodb.recordset"）

sqla="select*fromtb_Employeewhereid="&request（"id"）

rsa.opensqla,conn,1,3

rsa（"hetong"）=request（"hetong"）

rsa（"qixian"）=request（"qixian"）

rsa（"youxiaoqi"）=request（"text"）

rsa.update

rsa.close

response.Write（"alert（'提交成功'）;location='pactadde.asp?

id="&request（"id"）&"'"）

else

response.Write（"alert（'合同期限不能为空'）;location='javascript:

history.go（-1）'"）

endif

endif

'员工

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromtb_Employeewhereid="&request（"id"）

rs.opensql,conn,1,1

%>

7合同模板

合同模板文件为pactm.asp显示合同类型

<%

callhetongmoban

'获取默认参数

ifrequest（"uid"）<>""then

uid=request（"uid"）

el