<%@LANGUAGE="VBSCRIPT"%> <% Dim Reczsnews Dim Reczsnews_numRows Set Reczsnews = Server.CreateObject("ADODB.Recordset") Reczsnews.ActiveConnection = MM_connzsnews_STRING Reczsnews.Source = "SELECT * FROM newsData ORDER BY news_time DESC" Reczsnews.CursorType = 0 Reczsnews.CursorLocation = 2 Reczsnews.LockType = 1 Reczsnews.Open() Reczsnews_numRows = 0 %> <% Dim Recjynews Dim Recjynews_numRows Set Recjynews = Server.CreateObject("ADODB.Recordset") Recjynews.ActiveConnection = MM_connjynews_STRING Recjynews.Source = "SELECT * FROM newsData ORDER BY news_time DESC" Recjynews.CursorType = 0 Recjynews.CursorLocation = 2 Recjynews.LockType = 1 Recjynews.Open() Recjynews_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 15 Repeat2__index = 0 Recjynews_numRows = Recjynews_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 15 Repeat1__index = 0 Reczsnews_numRows = Reczsnews_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recjynews_total Dim Recjynews_first Dim Recjynews_last ' set the record count Recjynews_total = Recjynews.RecordCount ' set the number of rows displayed on this page If (Recjynews_numRows < 0) Then Recjynews_numRows = Recjynews_total Elseif (Recjynews_numRows = 0) Then Recjynews_numRows = 1 End If ' set the first and last displayed record Recjynews_first = 1 Recjynews_last = Recjynews_first + Recjynews_numRows - 1 ' if we have the correct record count, check the other stats If (Recjynews_total <> -1) Then If (Recjynews_first > Recjynews_total) Then Recjynews_first = Recjynews_total End If If (Recjynews_last > Recjynews_total) Then Recjynews_last = Recjynews_total End If If (Recjynews_numRows > Recjynews_total) Then Recjynews_numRows = Recjynews_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = Recjynews MM_rsCount = Recjynews_total MM_size = Recjynews_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record Recjynews_first = MM_offset + 1 Recjynews_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (Recjynews_first > MM_rsCount) Then Recjynews_first = MM_rsCount End If If (Recjynews_last > MM_rsCount) Then Recjynews_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> 招生就业指导办公室

《贵州警官职业学院就业工作目标管理考评机制》


为了进一步构建我院学生就业工作的长效机制,有效促进学生就业工作水平的不断提升,充分调动各系部就业工作人员的积极性和主动性,建立健全学生就业指导服务体系,努力实现毕业生最大限度的充分就业,结合我院具体情况,特制定本办法。

一、考评内容
(一)工作开展情况(100分)
1.领导重视,保障有力
系部领导班子能够充分认识学生就业工作对于社会稳定、经济发展和学校办学的重要性,切实把就业工作放在重要和突出的位置来抓;成立党政一把手为组长的就业工作领导小组,主动适应新形势下就业工作的需要,改善就业工作条件,为就业工作提供人力、财力、物力保障;充分调动教职员工参与就业工作的积极性,形成全员参与的氛围。
2.制度健全,责任明确
能建立与就业工作相关的例会制度、就业流程管理制度、学习培训制度、档案管理制度等,分工明确,责任落实,就业工作有章可循。
3.规范管理,优化服务
能坚持“规范、高效、反应迅捷”的原则,认真做好毕业生生源审核、就业推荐、就业协议管理、就业率和就业方案的上报、档案转递等就业流程工作;牢记服务宗旨,强化岗位职责,坚持以人为本的工作理念,采取各种措施,切实为用人单位和学生提供全方位优质服务。
4.加强教育,科学指导
能够适应形势需要,切实转变观念,积极开展全方位、全过程就业指导;引导学生树立职业意识,依靠科学化手段,帮助学生完成自我认知、职业定向和生涯设计;开展丰富多彩的毕业生教育活动,引导学生树立正确的价值观、成才观、就业观;鼓励和引导毕业生到西部去,到基层去,到艰苦地区去,到祖国最需要的地方去就业。教育指导活动要富有针对性和实效性。
5.开发市场,拓宽渠道
在巩固、深化原有就业渠道的基础上,能结合本单位实际,突出专业特色,加强市场调研和需求预测,制定学生就业市场开拓方案,坚持“主动出击”的原则,采取“走出去、请进来”和广泛建立学生就业实践基地等措施,利用各种资源,积极开拓就业市场;加大宣传力度,加强与用人单位的沟通与合作,广泛搜集用人单位的需求信息,建立健全本单位用人单位信息资料库和毕业生资源库。
6.就业信息化建设
能充分利用现代化手段,建立畅通的学生就业信息发布渠道,在学院网站主页中设立学生就业栏目,积极组织引导学生参与网上招聘。积极致力于就业工作信息化的研究、开发、使用,逐步构建起网上就业服务体系。力争有效提升学生就业信息利用率和学生就业信息化水平,不断提高学生就业工作效能。
7.调查研究,创新工作
能积极开展毕业生、用人单位和就业市场的调查分析,认真研究新形势下学生就业工作面临的新情况、新问题,突出重点、抓住难点,注重就业困难学生的帮扶工作,并结合就业工作实践进行理论上的探索、研究,不断创新就业工作方式和方法。
8.就业率
就业率以招生就业指导办公室的统计、公布为准。

二、考评步骤与方法
1.组织发放调查问卷,了解学生对本单位就业工作开展情况的评价。
2.各系部依据考评内容进行自评,并写出书面自评报告。
3.学生就业指导中心分组调研、走访,通过查阅有关档案资料、召开座谈会等形式了解各单位就业工作的开展情况。
4.就业率达到和超过学校年度一次性就业率指标的单位:
就业率得分=100× 系年度就业率
就业率低于学校年度一次性就业率指标并高于70%的单位:
就业率得分=80×系年度就业率
就业率低于70%的单位:
就业率得分=60×系年度就业率
5.招生就业指导办公室组织学校相关职能部门负责人结合汇总的各方面情况(包括平时的工作记录),在量化打分并合并计算总分(满分200,即100×就业率+工作开展情况得分)的基础上进行考评。

三、考评等级及结果使用
学生就业工作考评分为优秀、合格、不合格三个等级。各种等级的评定均本着实事求是和公平、公正的原则进行。优秀单位的量化资格线为180分,数量不超过单位总数的30%。合格单位的量化资格线为130分。考评为优秀的单位直接授予校级“学生就业工作先进集体”荣誉称号,并在“学生就业工作先进个人”的评选上优先予以考虑;考评为不合格的单位给以“黄牌”警告,同时取消评选先进个人的资格。对于因组织、管理、教育不力引发重大责任事故、造成严重不良影响的单位,评优实行一票否决。 考评工作结束后,学校将在年度就业工作会议上,对获奖单位、个人以及进步幅度比较大的单位进行物质和精神奖励。

四、附则
1.就业工作考评于每年第四季度进行。
2.本办法自公布之日起实行。
3.本办法的解释权归属招生就业指导办公室。

附件:学生就业工作考评“工作开展情况”内容项目与分值对应表(总分值:100分)


项目

考 评 内 容

满分

得分

领导重视

将就业工作,列入重要日程,定期研究、部署
实施“一把手工程,成立党政负责人为组长的就业工作领导小组 ,分管书记重视工作实施
支持学生就业工作活动的开展(人力、物力、财力等)毕业班有专人负责

10

 

制度建设

年度工作计划和总结制度、工作例会制度、档案的建立和管理制度、就业流程管理制度等
就业工作人员定期进行业务学习、培训制度
任期目标中有明确的就业工作绩效指标和分工

10

 

 

就业管理

毕业生生源、就业方案报送准确,无漏报、错报现象
及时准确地统计、报送就业工作阶段进度和就业率
就业推荐表和协议书管理严格,无借用、乱用协议书现象
学生诚信度高,自荐和推荐材料无虚假现象
能妥善安排本单位毕业生的招聘活动,妥善组织毕业生参加校外招聘活动,无影响教学、实习现象
在推荐择业、评选优秀毕业生中贯彻公开、公正、公平原则
毕业生离校手续(包括组织关系、户口、报到证,毕业生查体,归还公物和各类证件)办理、发放准确无误毕业生档案转递,移交严格、及时、准确

15

 

市场开拓

有市场开发与建设年度计划、长远规划和实施方案
年度内在巩固和开发就业市场方面有新举措
主动开展本单位各专业年度和未来就业市场的分析与预测,能组织开展劳动法、升学、报考公务员等方面的学习和指导
积极为毕业生搜集用人信息,信息有效率高。有用人单位信息资料库和毕业生资源库
完善“促销”手段(如印制宣传材料等),通过各种途径宣传本单位学科和专业优势

15

 

加强教育科学指导

开展全程就业指导,不同年级开展不同内容的指导
依靠科学的测评手段,帮助学生开展职业能力倾向测试和辅导,帮助学生进行职业生涯规划设计
开展就业咨询活动、个性化指导和困难群体毕业生指导和帮助。
利用社会力量开展就业指导专题讲座。每学年举办报告不低于5场次
就业指导内容丰富实用,方法灵活多样,学生反映好
就业教育:能够开展就业形势与政策、择业观、成才观和职业理想教育以及诚信与职业道德教育等
毕业教育:重点进行“热爱学校,不忘师恩”、“毕业思源,立业思进”和服从祖国需要教育、文明离校教育等

15

 

市场需求调查

开展毕业生思想状况和就业意向调查、毕业生跟踪调查、就业市场需求调查,形成书面调查报告。进行年度就业工作总结,并形成书面总结分析报告
组织就业工作人员开展理论研讨工作,在正式刊物上发表就业工作论文
参与学校、学院就业工作课题研究

15

 

工作创新

在就业工作管理和制度建设方面有创新思路和方法,在指导服务方面有创新形式和内容,在工作条件等方面有新发展,新突破

10

 

工作绩效

能按时保质保量完成各项工作任务,按时报送各种材料、数据等,完成工作效率高,质量好,

10

 

Copyright © 2008 贵州警官职业学院 招生就业指导办公室

<% Reczsnews.Close() Set Reczsnews = Nothing %> <% Recjynews.Close() Set Recjynews = Nothing %>