|
管理员登录部分源码如下： <% dim rs 内容来自论文无忧网 www.paper51.com UserName1=Checkstr(request.form("UserName")) 内容来自www.paper51.com
PassWd1=Checkstr(request.form("PassWd")) 内容来自www.paper51.com code=request.Form("code") copyright paper51.com iftrim(code)<>CStr(session("CheckCode")) then 内容来自论文无忧网 www.paper51.com response.write "<scriptLANGUAGE='javascript'>alert('对不起，登陆失败！请输入正确验证码');history.go(-1);</script>" copyright paper51.com response.End() copyright paper51.com end if 内容来自www.paper51.com
if trim(username1)<>""then copyright paper51.com set rs=server.CreateObject("ADODB.RecordSet") 内容来自论文无忧网 www.paper51.com rs.open "select * from admin whereUserName='" & UserName1 & "' and passwd='" & passwd1& "'",conn,1 copyright paper51.com if not rs.bof and not rs.eof then 内容来自www.paper51.com session("admin_name")=rs("Username") 内容来自www.paper51.com session("oskey")=rs("oskey") paper51.com session.Timeout=30 内容来自www.paper51.com response. redirect "main.asp" 内容来自论文无忧网 www.paper51.com else 内容来自论文无忧网 www.paper51.com response.write"<script LANGUAGE='javascript'>alert('对不起，登陆失败！请输入正确的用户名和密码');history.go(-1);</script>" 内容来自论文无忧网 www.paper51.com end if http://www.paper51.com end if 内容来自www.paper51.com '显式声明该变量为"无"，期望占用的内存能回收（实际情况是常常无法回收） paper51.com set rs=nothing 内容来自www.paper51.com %> 内容来自www.paper51.com 6.2 系统主页面 paper51.com 用户登录成功后，进入本系统的主界面。如图5所示。 paper51.com 在主界面最右方是“系统使用帮助说明”和系统的左方是菜单栏，包括是4个主要功能模块，分别是“人事管理”“用户管理”“员工登录”和“ 退出系统”。其中人事管理模块内包括：添加员工信息、显示员工信息、搜索员工人信息、查看有修改权的员工信息、查看无修改权的员工信息。用户管理模块包括：用户添加、用户查看、修改密码。员工登录后进入的是员工自助模块。 内容来自www.paper51.com
图5 系统主界面 copyright paper51.com 6.3 企业员工信息管理系统模块6.3.1 员工信息添加 paper51.com 添加员工记录页面主要用来填写员工具体情况。在这个页面中包括多个字段信息，其中员工姓名字段是不能为空的。该页面还有员工出生日期，员工开始工作时间等信息。在添加页面中的任何时间信息时，都必须按照时间格式填写，否则会出错，也就是不能把员工信息成功添加数据库中。添加员工记录页面personnel_add.asp静态页面，这个页面的处理程序包含在personnel_addasp.asp页面中。如图6所示。 内容来自论文无忧网 www.paper51.com
关键代码分析： http://www.paper51.com Request(variable)来获取页面中的记录； copyright paper51.com 程序中使用request(“name”)取得页面中添加的员工姓名表单域。该表单域不能为空，这里使用if name=””来判断该表单域是否为空，当为空时弹出警告。 copyright paper51.com
用byear&”-“&bmonth&”-“&bday来连接年月日； copyright paper51.com '页面中员工工龄的计算 内容来自www.paper51.com
<% copyright paper51.com
nowtime=now() copyright paper51.com works=year(workstart) 内容来自www.paper51.com nowtime=year(nowtime) paper51.com workage=Cint(nowtime)-Cint(works) '计算员工工龄 paper51.com %> 内容来自论文无忧网 www.paper51.com 图6 员工信息添加页面 内容来自论文无忧网 www.paper51.com '在email表单域时,做了对email地址的验证 内容来自论文无忧网 www.paper51.com <% http://www.paper51.com if email<>"" then'验证email 内容来自www.paper51.com Dim regEx, Match ' 创建变量 内容来自论文无忧网 www.paper51.com Set regEx = New RegExp '创建一个正则表达式对象 paper51.com
regEx.Pattern="^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" 内容来自论文无忧网 www.paper51.com
regEx.IgnoreCase = True copyright paper51.com Set Match = regEx.Execute(email) ' 执行搜索 内容来自www.paper51.com if match.count=0 then paper51.com
response.Write "<scriptlanguage=javascript>{window.alert('输入的“E-mail”格式错误！');window.history.go(-1);}</script>" copyright paper51.com
response.End paper51.com
%> 内容来自www.paper51.com 6.3.2 员工信息显示 copyright paper51.com 在显示员工信息页面列出所有员工信息，该页面可以显示全部员工信息，也可以分页显示，可以对员工信息进行查看、修改和删除操作。在该页面中还可以单击某个排序方式对员工信息进行排序。在此页面中，还可单击页面中的员工姓名或“查看”链接就可以查看该员工的详细信息。如图7： http://www.paper51.com
copyright paper51.com
图7 员工信息显示页面 copyright paper51.com
页面的设置，初始值count=0,在条件not rs.eof and count<rs.pagesize下，即数据库中记录不为空并且在count值小于该页的最大显示的记录数时，在页面中就显示出count值大小的记录。 内容来自www.paper51.com
排序工作，程序中以by的值来判断排序方式，单击“按工作时间升序排列”， by的值为worksrartasc时；单击“按工作时间的降序排列”by的值为birthdaydesc。 内容来自论文无忧网 www.paper51.com 6.3.3 员工信息搜索 内容来自www.paper51.com
员工信息搜索页面可按姓名、姓别、身份证号、籍贯、政治面貌等选项进行搜索。而显示搜索员工信息时可以按多种方式显示，可以显示一些字段，也可以取消一些字段的显示。搜索员工信息页面如图8所示： paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com |