<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "组织建设" If (Request("MM_EmptyValue") <> "") Then Recordset1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connnews_STRING Recordset1.Source = "SELECT * FROM newsData WHERE news_type = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY news_time DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 15 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recordset1_total Dim Recordset1_first Dim Recordset1_last ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_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 = Recordset1 MM_rsCount = Recordset1_total MM_size = Recordset1_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 Recordset1_first = MM_offset + 1 Recordset1_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount End If If (Recordset1_last > MM_rsCount) Then Recordset1_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 %> 浙江旅游职业学院团委
设为首页 | 加入收藏 | 联系我们 
    首   页 |  团委概况 |  组织建设  |  规章制度  |  理论学习 |  团史知识 |  文件资料  |  历史回顾  |  管理登录  | 学院网站 |

 
 
 
 
当前位置:首页-->勤工助学


浙江旅游职业学院学生勤工助学管理实施办法

    学生勤工助学是指在校学生利用课余时间,通过参与校内外科技、文化服务等劳动,培养实践能力,并获得合理的报酬,以补充在校学习生活费用的各类活动。为加强对学生勤工助学活动的组织管理和指导,根据原国家教委、财政部《关于进一步做好普通高等学校勤工助学工作意见的通知》精神,结合我校具体情况,特制定本办法。

第一条 组织学生开展勤工助学的指导思想

    组织学生开展勤工助学是学校学生工作的重要组成部分。学校各单位、各部门组织学生勤工助学要以培养学生的创新精神、实践能力,促进学生的综合素质发展,同时帮助学生解决经济困难为宗旨。勤工助学工作必须坚持以下几个原则:

1.要把组织学生开展勤工助学作为培养学生的重要途径,重在引导学生通过参与学校工作和社会实践,树立正确的人生观、劳动观,培养创新精神和提高实践能力。

2.要把组织学生勤工助学与贫困生资助工作结合起来,通过提供合适的工作岗位和优惠付酬,支持和帮助经济困难学生顺利完成学业。

3.要把组织学生勤工助学与培养和提高大学生创新创业能力结合起来,通过提供良好的外部环境和政策支持,鼓励和支持大学生创新创业活动。

4.在组织学生参加勤工助学时,要确保学生的人身安全,并以不影响学生学业为前提,不能安排学生参与有害身心健康的工作。

第二条 学生勤工助学管理机构及工作职责

    学生勤工助学活动由院团委统一组织和管理。院团委下设勤工助学部,负责制定学生勤工助学管理规定,指导开展和协调全校的学生勤工助学工作。

1.勤工助学部在院团委领导下开展勤工助学工作,对学生勤工助学活动和酬金发放等工作实施规范管理。

2.积极开拓学生勤工助学岗位,建立校内勤工助学基地(旅苑宾馆,食堂……),为学生参加校外勤工助学活动创造良好的条件。

3.与校外单位联系,在确保安全、不影响学习和没有不良社会影响的前提下,组织学生参加校外勤工助学。

4.开展必要的学生勤工助学岗前培训。

第三条 勤工助学活动的组织与管理

1.院团委勤工助学部是代表学校对学生勤工助学活动进行管理的职能部门。

2.未经学校勤工助学管理部门同意,任何单位和个人不得以勤工助学为名张贴广告招聘学生,进行各项经营性活动。

3.申请勤工助学的学生必须具备以下条件:

(1)遵守学校各项规章制度,道德品行良好;

(2)家庭经济困难的同学优先考虑;

(3)身体健康,能胜任工作。

4.校内勤工助学岗位分固定性岗位和临时性岗位两种。固定性勤工助学岗位是指相对长期固定的学生勤工助学岗位,一般在每学期初由用工部门申请,经审定设立。临时性岗位是指学生临时参加的劳动岗位,一般时间持续不超过一周。

5.校内各部门在设立校内固定性和临时性勤工助学岗位时,必须先填写《勤工助学岗位申请表》,经主管校领导审核批准后方可设岗。

6.学生参与校内有收费项目或有专门经费的部门劳动,报酬支付原则上实行“谁用工谁支付”;参加科研工作,报酬从用工者的科研经费中开支。

7.各用人单位(部门)聘用学生必须统一由院团委勤工助学部发布招聘通知,经用人单位(部门)面试合格后录用。在录用安排岗位时,应优先录用经济困难的学生。

8.勤工助学管理部门应不定期地对用人单位(部门)勤工助学情况进行检查,对发现的问题要及时处理。

9.不允许学生在学期间个人擅自到社会上从事兼职工作或在校内进行经商活动,否则,一旦学生与用人单位发生矛盾或造成不良后果,其责任自负,期间如违反校纪校规,学校将按有关规定作出处理。

第四条 勤工助学考核、报酬发放和计酬标准

1.用人单位(部门)负责对参加勤工助学的学生进行工作考核。对考核合格者,由用人单位(部门)填写《学生勤工助学金发放表》,院团委审核同意后,学生凭本人学生证在规定时间到校财务处或院团委勤工助学部领取。

2.勤工助学岗位的安排应充分考虑到学生的专业学习,不应安排过多的时间参加劳动,以免影响学业。对临时性工作岗位,用工一天以内的可按小时计酬,学生参加劳动时间应控制在6小时以内。用工一周以内的可按天计酬,一周内学生参加劳动时间应控制在20小时以内。对持续一个月或一个月以上的固定工作岗位,应按月计酬,原则上一个月内学生参加劳动时间应控制在60小时以内。

3.对被学校认定的特困生参加的勤工助学工作,在计酬上应适当给予优惠,报酬支付可上浮20%-30%。

第五条 本办法自发文之日起执行,由学生处院团委负责解释。

 

附件:

1、《浙江旅游职业学院学生勤工助学管理实施步骤》

2、《浙江旅游职业学院学生勤工助学岗位申请表》(学生填写)

3、《浙江旅游职业学院勤工助学岗位申请表》

4、《勤工助学工作考核表》(校内)

5、《勤工助学金发放表》

 


版权所有:中国共青团 浙江旅游职业学院 委员会
Copyright©2005 www.tczj.net All Right Reserved.
E-MAIL: tw@tczj.net 电话:0571-82838032

<% Recordset1.Close() Set Recordset1 = Nothing %>