基于ASP的人事管理系统(11)

rs("idorder")=int(request("idorder"))

rs.update

rs.close

response.Redirect "admin_cydh.asp"

set rs=nothing

case "del"‘删除客户电话

conn.execute "delete from tel where id="&id

response.Redirect "admin_cydh.asp"

end select%〉

4．常用网址子模块的设计

所有用户可以在页面link.asp中查看常用网址，但只有公司领导和系统员具有添加、修改、删除的管理权限。其中常用网址管理界面如图4.15所示。

图4.15常用网址管理界面

其中领导和管理员可以在页面links.asp中添加常用网址，添加的实现过程及实现代码与客户电话子模块实现过程及实现代码相类似。

5．邮编区号子模块的设计

所有用户可以在页面INDEX.ASP输入关键字进行查询邮编区号，但只有系统管理员具有添加、修改、删除的管理权限。其中邮编区号查询界面如图4.16所示。

图4.16邮编区号界面

其中查询处理页面SEARCH.ASP，查询实现代码如下：

<%

if key<>"" then

connstr="DBQ="+server.mappath("ybqh.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

set rst=server.createobject("adodb.recordset")

rst.open "select * from ybqh",conn,1,1

do while (not rst.eof)

tmpstr=rst("sm")&getpy(rst("sm"))&rst("dq")&getpy(rst("dq"))&rst("yb")&" "&rst("qh")

if instr(1,tmpstr,key,1)>0 then

 %> <tr class="tdbg"> <td><%=rst("sm")%></td><td><%=rst("dq")%></td><td><%

tmp=rst("yb")

if tmp="" then tmp="★★★"

response.write tmp

%></td><td><%=rst("qh")

 %></td></tr> <%

end if

rst.movenext

loop

%> </table>

<%

rst.close

conn.close

end if

%>

4.2.3 管理模块

行政管理模块主要提供公司内部通知的发布及管理。在该模块中所有用户可以查看通知内容，只有公司领导和系统管理员有发布及管理内部通知的权限。

1.内部通知子模块的设计

所有用户可以在tzs.asp页面中查看内部通知，但只有公司领导和系统管理员具有内部通知的发布、修改、删除的管理权限。

 (1) 内部通知查看界面如图4.17所示。选择标题查看通知具体内容。

图4.17 内部通知查看界面

(2) 内部通知发布界面如图4.18所示。其界面与公司动态发布界面相类似。

图4.18 内部通知发布界面

公司领导和系统管理员可以在页面addtz.asp中发布工作计划，其实现数据写入数据库的代码与公司动态发布实现代码相类似。

(3) 通知管理界面如图4.19 所示。公司领导和系统管理员在页面edittz.asp中修改、删除等对公司动态进行管理。

图4.19 通知管理界面

4.2.4 员工信息模块

系统中所有用户可以查询和搜索公司人员的信息。系统管理员可以添加及管理用户帐号，还可以添加部门和职位以及对部门和职位的管理。公司领导只有添加及管理下属的权限。

1．用户帐号添加及管理子模块设计

此项功能权限只有系统管理员才具有，管理员可以在页面adduser.asp中将用户的基本信息录入并获得一个帐号。每个登陆该系统的用户都必须获得系统管理员分配给自己的帐号才能有权登陆系统。

(1) 帐号添加界面如图4.20所示。

图4.20 帐号添加界面

其中实现用户基本信息写入数据库的代码如下：

<%

dim action

action=request.QueryString("action")

select case action

case "add"

set rs=server.CreateObject("adodb.recordset")

rs.Open "select * from [user]",conn,1,3

rs.AddNew

if request("username")=rs("username") then

  response.write "<script LANGUAGE='javascript'>alert('对不起，你授权的帐号已存在!');history.go(-1);</script>"‘判断帐号是否存在，提示信息

end if

    rs("username")=trim(request("username"))

    rs("userpassword")=md5(trim(request("password2")))

    rs("userzhenshiname")=trim(request("userzhenshiname"))

    rs("useremail")=trim(request("useremail"))

    rs("ifgongkai")=trim(request("ifgongkai"))

    rs("sfz")=trim(request("sfz"))

    rs("sex")=trim(request("shousex"))

    rs("nianling")=trim(request("nianling"))

    rs("shouhuodizhi")=trim(request("shouhuodizhi"))

    rs("youbian")=trim(request("youbian"))

    rs("usertel")=trim(request("usertel"))

    rs("usersj")=trim(request("usersj"))

    rs("Oicq")=trim(request("QQ"))

    rs("homepage")=trim(request("homepage"))

    rs("content")=trim(request("content"))

    rs("userdept")=trim(request("userdept"))

    rs("userzhiwei")=trim(request("userzhiwei"))

    rs("adddate")=now()

    rs("lastlogin")=now()

    rs("logins")=0

if request("flag")="" then  '管理权限

rs("flag")=1

rs("reglx")=1

else

rs("flag")=trim(request("flag"))

rs("reglx")=trim(request("flag"))

end if

rs.Update

rs.Close

            [11]