aspsql人力资源管理系统设计

aspsql人力资源管理系统设计内容摘要：

= % call renshishezhi 39。 人员 set rsr=() sqlr=select * from tb_Employee where kong=1 sqlr,conn,1,1 39。 部门 function bumen set rsb=() sqlb=select * from tb_dept where id=amp。 rsr(suoshu) sqlb,conn,1,1 (rsb(title)) end function 39。 职位 function zhiwei set rsz=() sqlz=select * from tb_ZhiWei where id=amp。 rsr(zhiwei) sqlz,conn,1,1 (rsz(zhiwei)) end function % 4 添加员工 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=DataBase/ % set rs=() sql=select * from tb_Jobbase where id=amp。 request(id) sql,conn,1,1 % 5 填写合同 文件为 能选择人员名称，查看资 料选择合同类型期限填写有效期 代码 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=DataBase/ !include file= !include file= % call tianxiehetong if request(post) then if request(qixian) and request(nameid) then set rsa=() sqla=select * from tb_Employee where id=amp。 request(nameid) sqla,conn,1,3 rsa(hetong)=request(hetong) rsa(qixian)=request(qixian) rsa(youxiaoqi)=request(cyear)amp。 amp。 request(cmonth)amp。 amp。 request(cday)amp。 至amp。 request(zyear)amp。 amp。 request(zmonth)amp。 amp。 request(zday) rsa(zhengshi)=1 (script language=javascriptalert(39。 提 交 成 功39。 )。 location=39。 39。 /script) else (script language=javascriptalert(39。 人员名称或合同期限不能为空39。 )。 location=39。 javascript:(1)39。 /script) end if end if 39。 员工 set rs=() sql=select * from tb_Employee where kong=1 and hetong is null sql,conn,1,1 % 6 合同管理 合同管理文件为 可以修改合同类型合同期限有效期 % call tianxiehetong if request(post) then if request(qixian) then set rsa=() sqla=select * from tb_Employee where id=amp。 request(id) sqla,conn,1,3 rsa(hetong)=request(hetong) rsa(qixian)=request(qixian) rsa(youxiaoqi)=request(text) (script language=javascriptalert(39。 提 交 成 功39。 )。 location=39。 ?id=amp。 request(id)amp。 39。 /script) else (script language=javascriptalert(39。 合 同 期 限 不 能 为 空39。 )。 location=39。 javascript:(1)39。 /script) end if end if 39。 员工 set rs=() sql=select * from tb_Employee where id=amp。 request(id) sql,conn,1,1 % 7 合同模板 合同模板文件为 显示合同类型 % call hetongmoban 39。 获取默认参数 if request(uid) then uid=request(uid) else uid=6 end if 39。 提交合同 if request(post) then if request(content) then set rsh=() sqlh=select * from tb_Pact where id=amp。 uid sqlh,conn,1,3 rsh(content)=request(content) ( ) else ( ) end if end if set rs=() sql=select * from tb_Pact where id=amp。 uid sql,conn,1,1 % 工作管理模块 主要有布置工作任务、管理工作任务、在线发布通知三部分组成。 布置工作任务文件为 可填写人物名称、任务内容、完成者、任务期限 代码 % call buzhigongzuo if request(post) then if request(title)= then (script language=javascriptalert(39。 任 务 名 称 必 须 填 写39。 )。 location=39。 javascript:(1)39。 /script) () end if if request(content)= then (script language=javascriptalert(39。 任 务 内 容 必 须 填 写39。 )。 location=39。 javascript:(1)39。 /script) () end if if request(wanchengtime)= then (script language=javascriptalert(39。 任 务 期 限 必 须 填 写39。 )。 location=39。 javascript:(1)39。 /script) () end if 39。 取完成者的名称 select case request(wancheng) case 部门 wanchengzhe=request(bumen) case 个人 wanchengzhe=request(geren) case 全部员工 call quanbuyuangong end select 39。 布置任务 set rsa=() sqla=select * from tb_Work sqla,conn,1,3 rsa(buzhizhe)=session(admin_name) rsa(title)=request(title) rsa(content)=request(content) rsa(buzhitime)=now() rsa(wanchengzhe)=wanchengzhe rsa(wanchengtime)=request(wanchengtime) rsa(wanchenglei)=request(wancheng) rsa(wanchengdu)=未完成 (script language=javascriptalert(39。 布 置 成 功39。 )。 location=39。 39。 /script) end if 39。 发送到全部员工 function quanbuyuangong set rsaff=() sqlaff=SELECT FROM INNER JOIN ON = sqlaff,conn,1,3 do while not 39。 布置任务 set rsa=() sqla=select * from tb_Work sqla,conn,1,3 rsa(buzhizhe)=session(admin_name) rsa(title)=request(title) rsa(content)=request(content) rsa(buzhitime)=now() rsa(wanchengzhe)=rsaff(id) rsa(wanchengtime)=request(wanchengtime) rsa(wanchenglei)=个人 rsa(wanchengdu)=未完成 (rsaff(id)) loop (script language=javascriptalert(39。 布 置 成 功39。 )。 location=39。 39。 /script) end function 39。 部门 set rs=() sql=Select * from tb_dept order by up sql,conn,1,3 39。 人员 set rsr=() sqlr=select * from tb_Employee where kong=1 sqlr,conn,1,1 % 2 管理工作任务 管理布置任务文件为 浏览删除任务 代码： %@LANGUAGE=VBSCRIPT CODEPAGE=936% !inclu。