计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

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

2014-06-28 01:11
导读:age(UserID,Content) values('"UserID"','"content"')" end if conn.execute(SQL) % 4.2.2 信息模块 公共信息模块提供公司最新动态、工作计划的发布与、客户电话和常用网址及邮
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]      

上一篇:论中小民营企业知识型员工流失背景分析及对策 下一篇:变革型领导理论对管理者的启示