基于ASP的企业人事管理系统的设计与实现

项目资料及分析文章放在文末

系统主要实现功能

1. 用户注册登录功能，如本公司人员得到管理员给的账号可以登录本系统进行相应权限的操作，非公司人员可以通过注册只能登录公司首页，不能进行其他操作；
2. 公司人员可以查看自己的数据，修改账号；
3. 公司人员可以搜索本部门的其他人员；
4. 员工能看到本部门人员的简单信息，部门主管和经理可以看到公司所有人员的详细信息；
5. 公司的企业论坛，用户间都可以进行交流；
6. 对部门信息添加了任务安排功能，公司可对每个部门每月下发任务；
7. 在公司首页添加了生日提醒功能，使公司更为人性化。
8. 管理员可以对人员信息及部门信息进行添加、修改、删除，对企业论坛的管理及系统的维护。

主要界面：

本课题的开发采用ASP+SQL Sever 2000实现，采用B/S模式，前期主要运用所学相关知识、查询资料，学习其他优秀管理系统的开发方法，结合相关要求写出需求分析；后期，进行对本课题的设计与开发。

课题的页面主要采用ASP语言对数据库进行操作，通过对数据库的查询搜索来实现，控制页面的正确显示和对用户类型的权限设计。采用SQL数据库，包含六张表，实现整个系统的操作。在整个设计过程中以需求分析为基础，写出系统实现流程及相关问题的实现方法；系统开发完成后，进行调试和运行，做好调试和试运行的相关记录。

本系统前台选用了ASP、html等作为主要的编程语言,后台选用SQL Server 2000作为数据库服务器。利用ASP动态网页编程技术实现前后台的数据交互。

本系统实现了以下功能：管理企业的员工基本数据；当员工发生变动（转正、调动、职务变化等）时，对原有数据进行修改；进行基本信息的查询以满足决策和管理的需要；企业论坛，提供员工交流园地；人员生日提醒及各部门每月业务安排等功能。

这段代码如下：
 

<%

Function GetFileName(strFile)           /定义函数GetFileName

If strFile <> "" Then                   /如果路径不为空

GetFileName =mid(strFile,InStrRev(strFile, "\")+1)    /取得文件名

Else

GetFileName = ""                       /其他的返回文件名为空

End If

End function

strFileName = Request.Form("photourl")              /取得文件路径

Set objStream = Server.CreateObject("ADODB.Stream")    /建立Stream对象连接

objStream.Type = 1 ' adTypeBinary                    /设置打开模式

objStream.Open                                   /打开Stream对象

objStream.LoadFromFile strFileName              /根据路径打开文件

objStream.SaveToFile Server.MapPath("../img/photo/"&GetFileName(strFileName)),2

objStream.Close                   /保存文件到指定路径并且关闭对象

%>

网盘链接：

链接：https://pan.baidu.com/s/1yie4SKEBFoRZ-NjrRNaNzg
提取码：0wnd