报社内部干部员工绩效考核系统的实现

赵永生 苏苗石

(温州日报报业集团)

[摘　要]　温州日报报业集团的绩效考核体系是将目标管理和绩效考核相结合，主要分采编记者、编辑考核分数和通讯员以及差错扣分等几大功能，建立起目标任务与职责协调一致的岗位责任考核体系。文章依据实际情况构建了温州日报报业集团绩效考核体系的流程图，设计一套直观、联网、高效的考核系统。 [关键词]　温州日报报业集团 绩效考核 考核系统1　温州日报报业集团的考核体系需求分析随着集团信息化的建设，报社近几年无纸化办公的推进，依托集团内部域局网的网络环境，需开发一套网络化、智能化、适合报社的考核系统。功能方面需求：1.稿件四级打分制：对见报稿件实施记者本人打参考分、相关主任打核实分、考核部门计分、领导审批分。2.版面计分：根据版面的重要性和时效性，版面根据版面新闻特点划分为一至四类版面，每个版面再划分为A+、A、A-、B+、B、B-、C等七个等级分别对应不用分值，系统并具有自动计分和手动调整分数的功能。3.评优推荐：要求具有在线推荐功能、在线投票功能、在线评选功能。4.差错管理：要求每天对差进行登记，随时公布供报社相关人员查看。5.通讯员稿费：要求由记者编辑在线登记，考核部门工作人员核对，考核部门主任审批，领导最终审批，最后自动生成报表送交相关部门。2　系统数据库介绍2.1数据库结构2.1.1数字报纸数据库（如“图1”）

图1

2.1.2系统考核内部数据库主要的表(1)用户数据表user：用于用户资料登记、岗位、身份、权限等资料。(2)版面计分表bmjf：用于记录版面资料，登记版面考核分值。(3)稿件计分表gjjf：用于记录稿件资料，登记稿件考核分值。(4)好稿资料表hgtj：用于记录好新闻，包括季度好新闻、年度好新闻评选。(5)月度汇总表ydkh：用于统计月度考核报表资料。3　软件系统有要功能介绍3.1系统主页面设计（如“图2”）

图2

3.2人事管理模块主要包括：人员统计、请假登记、请假管理、请假年报、年休年报、年休设置、出差登记、出差管理、出差年报、出差汇总、通迅录维护等功能。解决：编办人事部门传统手工记录，系统自动计算请假、年休天数，自动导入考核任务并供考核部门参考修正，各种数据支持考核部门随时查询结果并做为考核依据。3.3采编考核功能主要包括：版面登记、稿件登记、绩效考核、稿件加分、版面加分、每日计分清单、考核统计报表、考核状态查询、采编考核月报表、行政考核月报表、经营考核月报表、考核年度报表、每日考核浏览、记者考核月排名表、编辑考核月排名表。相关设置：考核规定、考核任务、记者别名等功能。3.3.1绩效考核该模块为本系统核心部分，分为版面计分和稿件计分，本功能最大的特点就是采用最新的PDF数字报显示方式，支持打分时能时时更新显示和保留打分痕迹，能给绩效考核计分领导及员工查询以直观、方便、快捷地显示方式。（如“图3”）

图3

3.4采编评优包括：好新闻推荐、手动推荐好新闻、每日待评稿、好新闻查询、季度好新闻、年度好新闻、补推年度好新闻、版面月汇总、季度好版面、年度好版面。支持每日推荐好稿，统计每日好稿、季度好稿、年度好稿等，季度好版面、年度好版面等功能。3.5差错管理包括：差错管理、差错登记、差错管理、差错审核、差错浏览、差错统计、见报情况通报、登记情况、通报管理、通报浏览、一周审读管理、一周审读查询。主要分：稿件差错扣款功能和每日通报和一周审读等功能。3.6通讯员稿酬管理包括：稿酬登记、稿酬管理、通讯员档案登记、通讯员档案管理、档案整理、通讯员别名、通讯员稿酬审批、稿酬核审报表、现金领取报表、邮政汇款报表、邮政报表(邮局)、银行汇款报表等功能。3.7系统设置包括：部门设置、岗位设置、部门岗位、考核分类、版面分类、权限设置、登陆记录、IP记录0、IP记录1、错误IP、MAC记录、浏览记录 、数据库清理、考勤数据修复、添加人员、人员资料修改、密码修改等功能。3.8我的桌面包括：个人中心、请假记录、出差记录、日报通讯录、集团通讯录、常用工具、广告价目表、万年历、常用电话、参考资料、日报PPT模板、系统设置、登入密码修改、系统使用手册等功能。4　软件设计中主要问题和解决思路4.1系统流程图:（如“图4”）

图4

4.2系统硬件、软件环境要求本系统主要适合在各报社单位中使用。系统利用Windows - IIS、ASP、ASP.NET、CCS+HTML系统，IE-WEB访问系统架构。服务器WINDOWS2003-SERVER以上， SQL-SERVER 2005，IIS7.0、ASP、ASP.NET、AspUpload、aspjpeg等组件。 客户端要求系统环境：Win9X、WinNT、Win2000、Windows XP、Windows7、Windows8均可直接访问，要求IE7.0以上，显屏分辨率1024*768以上。本系统占用资源较少，对内存储器和外存储器的要求不算太高，CPU：P4，内存：1G以上即可正常运行。4.3系统设计中主要技术解决思路4.3.1 数字报数据库转入考核数据库 由版面登记、稿件登记模块实现从数字报纸数据库导入到考核内部数据库。4.3.1.1数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） WZRBSZB为对外数字报纸数据库Dim ConnStr,SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalNameSqlDatabaseName = "WZRBSZB"SqlPassword = "******"SqlUsername = "wzrbkh"SqlLocalName = "192.168.219.*"ConnStr = "Provider = Sqloledb; SERVER="&SqlLocalName&"; DATABASE=" & SqlDatabaseName & "; UID=" & SqlUsername & ";PASSWORD= " & SqlPassword & ";"Set conn = Server.CreateObject("ADODB.Connection")conn.open ConnStrDim Rs,SQL,rs1,sql1,rs2,sql2

SQL="select * from epaper where date='"&jbdate&"' Order By type,pagetitle,id"

If Not IsObject(Conn) Then ConnectionDatabase

Set Rs=Server.CreateObject("ADODB.RecordSet")

Rs.Open SQL,Conn,1,3

4.3.1.2判断数字报当天版面资料，如果存在为更新版面类别，不存在则自动新增记录。

（1）读取数字报相关字段资料，如下代码：

dim bc,bx,bm

if not rs.eof then

bc=rs(0)

bx=Cint(mid(rs(4),2,2))

bm=mid(rs(4),6,len(rs(4))-5)

else

bx= Cint(Request("bx"))

bm= Request("bm")

end if

i=1

（2）打开考核系统内部数据库的版面表并判断是否存在。

sql3="select * from bmjf where bc="&rs(0)

rs3.open sql3,conn3,1,3

if rs3.eof then

if trim(Request.Form("bmfl"&rs(0)))<>"不考核" then

SQL3="Insert Into [bmjf](jbdate,bc,bx,bm,jfr,url,bztype,bmfl,pdfurl) Values ('"&Request("jbdate")&"',"&rs(0)&",'"&Cint(mid(rs(4),2,2))&"','"&bm&"','"&Session("Admin_Name")&"','"&trim(rs(6))&"','"&rs(9)&"','"&Request.Form("bmfl"&rs(0))&"','"&trim(rs(8))&"')"

Conn3.Execute(sql3)

end if

else

’bmjf 为版面数据库

SQL3="update bmjf set jfr='"&Session("Admin_Name")&"',bmfl='"&Request.Form("bmfl"&rs(0)) &"',jfdate='"&now&"',bc="&rs(0)&",pdfurl='"&rs(8)&"' where bc="&rs(0)

Conn3.Execute(sql3)

end if

rs3.close

rs.movenext

loop

Response.Write("<script>alert(""保存成功!"");location.href='bmdj.asp?jbdate="&jbdate&"';</script>")

4.3.2绩效考核计分部分4.3.2.1判断计分版面有无本地图片（是否计过分）显示相关图片<%f1=Server.MapPath("Content4")&"\"&y1&"\"&m0&d0&right("0"&trim(bx),2)&"c_b.jpg"if fso.FileExists(f1) thenf2="Content/"&y1&"/"&m0&d0&right("0"&trim(bx),2)&"c_b.jpg?"&now()%><img src='<%=f2%>' border="0" usemap="#Map1"><%else%><img src='<%=replace(replace(url1,"/content/",""),"/Content/","")%>' border="0" usemap="#Map1"><%end if%><map name="Map1" id="Map"><%Response.Write replace(rs1(0),"content.aspx?id=","bwgjsh.asp?url="&url&"&gj=")Response.Write "<area shape='poly' coords='0,0,375,0,375,30,0,30,0,0' href='bwbmsh.asp?bc="&bc&"&bm="&bm&"&url="&url1&"&jbdate="&jbdate&"&bx="&bx&"' />"%></map></td></tr><%rs1.close%>4.3.2.2计分写图部分f1="\\192.168.219.25\ImagesData\"&urlf1=replace(f1,"/","\")if not fso.FolderExists(Server.MapPath("Content"&mid(url,11,5))) thenfso.createfolder Server.MapPath("Content"&mid(url,11,5))end ifJpeg.Open f1Jpeg.Canvas.Font.Family = "Courier New" '字体Jpeg.Canvas.Font.Family = "黑体"Jpeg.Canvas.Font.Bold = True '是否加粗sql="select * from gjjf where bc="&Request("bc")&" and bx="&Request("bx")&"and jf>=2 order by gj,pfdj desc"Rs.Open SQL,Conn,1,3Jpeg.Canvas.Font.Color = &HFFFFFFJpeg.Canvas.Print x+25+2,y-10+2, replace(trim(rs("jz")),"无","")if fz>0.1 then Jpeg.Canvas.Print x+40+2,y+10+2, fzJpeg.Canvas.Font.Color = &H0000FFJpeg.Canvas.Print x+25,y-10, replace(trim(rs("jz")),"无","")if fz>0.1 then Jpeg.Canvas.Print x+40,y+10, fzelsex=(int(x1)+int(x2))/2-70y= int(y1)+40+(sl-1)*20+pp*20if int(y)>int(y2) then y=y-y2+y1Jpeg.Canvas.Font.Color = &HFFFFFFif fz=0 thenfz0=" "elsefz0=fzend ifJpeg.Canvas.Print x+2,y+2, trim(rs("jz"))&" "&fz0Jpeg.Canvas.Font.Color = &H0000FFJpeg.Canvas.Print x,y, trim(rs("jz"))&" "&fz0end if4.3.3通讯员考核部分 通讯员稿分登记自动连接方正文韬采编数据库，采用对内容进行全文检索方式，自动快速筛选通讯员关键词稿件供采编人员登记入库。if instr(rs("txt_textcontent"),"通讯员 ")>0 or instr(rs("txt_textcontent"),"通讯员 ")>0 or instr(rs("txt_textcontent"),"通讯员　")>0 then

a=instr(instr(rs("txt_textcontent"),"通讯员"),rs("txt_textcontent")," ")

a1=instr(instr(rs("txt_textcontent"),"通讯员"),rs("txt_textcontent"),"　")

b=instr(instr(rs("txt_textcontent"),"通讯员")+5,rs("txt_textcontent")," ")

b1=instr(instr(rs("txt_textcontent"),"通讯员")+5,rs("txt_textcontent"),")")

b2=instr(instr(rs("txt_textcontent"),"通讯员")+5,rs("txt_textcontent"),"）")

b3=instr(instr(rs("txt_textcontent"),"通讯员")+5,rs("txt_textcontent"),"　")

4.3.4打印报表输出分页控制采用PAGE控制，考虑到第一页有大标题为21行，其他页只有列名，设定为23页，有如下代码实现：page=(page+1)gjlb=Trim(rs3("gjlb"))if page=21 or (page-23) mod 23=0 then %></table><div style="page-break-after: always;"> </div> ’强制分页命令5　软件的二次开发思考由于时间上的紧凑，本人水平有限，本系统还存在一定的局限性和不完善性，二次开发的空间还是很大的。将来可能提出要求：（1） 融入员工日常考勤数据，并直接计入员工日期绩效工资中；（2） 打印功能上的完善（应包括按时间段、员工名字进行统计查询打印）；（3）领导打分支持手写设备，人性化打分 。（4） 解决和完善其它的一些关于系统安全性和可靠性的问题。 主要参考文献

[1]、张海藩《软件工件导论》 （第5版） 清华大学出版社 2012.05 393页

[2]、刘化君《计算机网络原理与网络技术》（第2版） 电子工业出版社 2012.06 446页

[3]、章立民《ASP.NET 开发实战范例宝典》 科学出版社 2010.10 544页

[4]、尚俊杰《网络程序设计——ASP》 （第3版） 清华大学出版社 2009-01 306页[5]、曾 顺 《精通CSS+DIV网页样式布局》 人民邮电出版社 2007-08 449页 作　　者：赵永生 （温州日报计算机室负责人） 电话：13858803399电子信箱：652180@QQ.com邮寄地址：浙江温州鹿城区公园路105号温州日报计算机室 作　　者：苏苗石（温州商报出版部主任）电子信箱：38461693@qq.com 电话：13587686599邮寄地址：浙江温州市鹿城区新城蒲中路2号 编辑：中国新闻技术工作者联合会