永利彩票平台登录

赵永生 苏苗石

(温州日报报业集团)

  [摘　要]　温州日报报业集团的绩效考核体系是将目标管理和绩效考核相结合，主要分采编记者、编辑考核分数和通讯员以及差错扣分等几大功能，建立起目标任务与职责协调一致的岗位责任考核体系。文章依据实际情况构建了温州日报报业集团绩效考核体系的流程图，设计一套直观、联网、高效的考核系统。

    [关键词]　温州日报报业集团 绩效考核 考核系统

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,SqlLocalName

SqlDatabaseName = “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 ConnStr

Dim 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) then

f2=”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\”&url

f1=replace(f1,”/”,”\”)

if  not fso.FolderExists(Server.MapPath(“Content”&mid(url,11,5))) then

fso.createfolder Server.MapPath(“Content”&mid(url,11,5))

end if

Jpeg.Open f1

Jpeg.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,3

Jpeg.Canvas.Font.Color = &HFFFFFF

Jpeg.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, fz

Jpeg.Canvas.Font.Color = &H0000FF

Jpeg.Canvas.Print x+25,y-10, replace(trim(rs(“jz”)),”无”,””)

if fz>0.1 then Jpeg.Canvas.Print x+40,y+10, fz

else

x=(int(x1)+int(x2))/2-70

y= int(y1)+40+(sl-1)*20+pp*20

if int(y)>int(y2) then y=y-y2+y1

Jpeg.Canvas.Font.Color = &HFFFFFF

if fz=0 then

fz0=” ”

else

fz0=fz

end if

Jpeg.Canvas.Print x+2,y+2, trim(rs(“jz”))&” “&fz0

Jpeg.Canvas.Font.Color = &H0000FF

Jpeg.Canvas.Print x,y, trim(rs(“jz”))&” “&fz0

end if

4.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@

邮寄地址：浙江温州鹿城区公园路105号温州日报计算机室

 

作　　者：苏苗石（温州商报出版部主任）

电子信箱：38461693@    电话：13587686599

邮寄地址：浙江温州市鹿城区新城蒲中路2号