评价网 > 科教论文 > 管理学毕业论文 > 企业管理论文 > 正文

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

2014-06-28 01:11 age(UserID,Content) values('"&UserID&"','"&content&"')"

end if

conn.execute(SQL)

%>

4.2.2 信息模块

公共信息模块提供公司最新动态、工作计划的发布与、客户电话和常用网址及邮编区号的查询，以便提高工作效率。

1．公司动态子模块设计

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

 (1) 动态查看界面如图4.8所示。选中可以查看动态具体内容。

图4.8 动态查看界面

用户查看公司动态的部分实现代码如下：

<%set rs=server.createobject("adodb.recordset")

rs.open"select * from news  order by adddate desc",conn,1,1

if rs.recordcount=0 then %>

<table width="100%" cellpadding="2" cellspacing="1" class="border" align="center">

<tr><td align=center>暂无动态信息</td> </tr>

</table>

〈%else

rs.PageSize =20 '每页记录条数

iCount=rs.RecordCount '记录总数

iPageSize=rs.PageSize

maxpage=rs.PageCount

page=request("page")

if Not IsNumeric(page) or page="" then

page=1

else

page=cint(page)

end if

if page<1 then

page=1

elseif  page>maxpage then

page=maxpage

end if

rs.AbsolutePage=Page

if page=maxpage then

x=iCount-(maxpage-1)*iPageSize

else

x=iPageSize

end if%>

(2) 动态发布界面如图4.9所示。其中添加动态主题、发布人，另外也可以对动态内容进行格式编辑。

图4.9 动态发布界面

公司领导和系统管理员可以在页面addnews.asp中发布公司最新动态，其实现代码如下：

<%if request.QueryString("action")="save" then

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

rs.open "select * from news",conn,1,3

rs.addnew

rs("newsname")=trim(request("newsname"))

rs("addname")=trim(request("addname"))

Content=Request.Form("Content")

'将里面的链接换地链接

aa="http://"&Request.ServerVariables("server_name")&Request.ServerVariables("path_info")

 aa= mid(aa,1,len(aa)-17)        '16=ggxx/addnews.asp

content=replace(content,aa,"")

session("content")=content

rs("newscontent")=content

rs("adddate")=now()

rs("viewcount")=0

rs.update

rs.close

set rs=nothing

session("content")=""

response.write "<script language=javascript>

alert('添加成功！');window.location.href='editnews.asp';</script>"

response.End

end if

%>

(3) 动态管理界面如图4.10所示。

图4.10 动态管理界面

公司领导和系统管理员在页面editnews.asp中删除公司动态信息。修改动态信息的内容，直接选中动态标题进入动态修改页面newsedit.asp。

2．工作计划子模块的设计

所有用户可以在gzjhinfo.asp页面中查看工作计划，在页面gzjhedit.asp中添加个人工作计划限，但只有公司领导和系统管理员具有动态发布、修改、删除的管理权限。

(1) 工作计划查看界面如图4.11所示。选择标题可以查看工作计划详细内容。

图4.11 工作计划查看界面

(2) 工作计划发布界面如图4.12所示。工作计划发布界面与动态发布界面相类似，同样可以进行格式编辑。

图4.12 工作计划发布界面

公司领导和系统管理员可以在页面addgzjhs.asp中发布工作计划，其实现过程及实现代码与公司动态发布的实现过程及代码相类似。

(3) 工作计划管理界面如图4.13所示。公司领导和系统管理员在页面editgzjh.asp中可以删除工作计划，选中工作计划标题进入计划修改页面gzjhedit.asp。

图4.13 工作计划管理界面

3．客户电话子模块的设计

(1) 客户电话查看、管理界面如图4.14所示。

图4.14 客户电话管理界面

所有用户可以在页面cydh.asp中查看客户电话，但只有公司领导和系统管理员具有添加、修改、删除的管理权限。

(2) 领导和管理员可以在页面admin_cydh.asp中添加和修改客户电话。其中，实现添加、修改和删除实现代码如下：

<%dim action,id

id=request.QueryString("id")

action=request.QueryString("action")

select case action

case "add"‘添加新的客户电话

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

rs.Open "select * from tel",conn,1,3

rs.AddNew

rs("gstel")=trim(request("gstel1"))

rs("gsname")=trim(request("gsname1"))

rs("khtel")=trim(request("khtel1"))

rs("khname")=trim(request("khname1"))

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

rs.Update

rs.Close

set rs=nothing

response.Redirect "admin_cydh.asp"

case "edit"‘修改客户电话

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

rs.open "select * from tel where id="&id,conn,1,3

rs("gstel")=trim(request("gstel"))

rs("gsname")=trim(request("gsname"))

rs("khtel")=trim(request("khtel"))

rs("khname")=trim(requ

           [10]