<%@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 %> 招生就业指导办公室

 

投身基层建设　创造美好未来
－－致全省广大青年学生的倡议书
（共青团贵州省委、贵州省学生联合会）

 

同学们、青年朋友们：

    在全国各族人民以邓小平理论和“三个代表”重要思想为指导，按照党的十六大描绘的宏伟蓝图，认真落实科学发展观，努力构建和谐社会，建设社会主义新农村，加快推进全面建设小康社会进程的时候，在高校毕业生们即将结束大学生活投身祖国建设，实现人生价值的时候，省委、省政府下发了《关于引导和鼓励高校毕业生面向基层就业的实施意见》，安排了“一村一名大学生”、“西部计划”、“见习行动”等大量到基层的就业并出台了具体的优惠政策。这充分体现了省委、省政府对高校毕业生就业工作的高度重视，对青年学生成长成才的关心。为积极响应省委、省政府的号召，共青团贵州省委、贵州省学生联合会向全省广大青年学生发出倡议：选择基层、面向农村、锻炼成才、建功立业，勇敢肩负起时代的重任。

    广大青年学生要指导投身基层作为参与实践、联系群众的有效方式。“实践出真知”，广大青年学生要在改革开放和现代化建设中有所作为，要在经济发展和社会进步中成就事业，就必须自觉选择与实践相一、与人民群众相结合的道路。向群众学习，向基层学习，坚持理论联系实际，认真研究和解决实践中产生的新问题，用理论知识、专业技能和实际行动推动新农村建设的伟大实践。

    广大青年学生要把投身基层作为加强学习、发展事业的崭新起点。基层不仅是青年学生建功立业的大舞台，也是接受教育、增长才干的大课堂。要在改革开放和现代化建设的每一线，植根基层沃土，汲取基层的营养；要在基层的奉献中，不断加强首选修养，提升精神境界。要牢固树立行行建功、处处立业的观念。在实施西部大开发的广阔天地中，在实现贵州经济社会发展的历史性跨越的伟大事业中，到处是青年学生就业的舞台，到处是青年学生创业的热土。我们相信，广大青年学生一定能在基层创造辉煌的业绩！谱写的青春的乐章！

    广大青年学生要把投身基层作为报效祖国、服务人民的重要途径。大学生是祖国的未来、民族希望，是国家宝贵的人才资源。党和人民对当代大学生寄予殷切希望，建设社会主义新农村需要大学生去倾情投入，中华民族的伟大复兴需要大学生去努力奋斗。青春只有在为祖国和人民的真诚奉献中才能更加绚丽多彩，人生只有融入国家和民放牧　伟大事业中才能闪闪发光。只有这样的青春才是永恒的青春！只有这样的人生才是无悔的人生！

    同学们，青年朋友们，时代的呼唤就是我们的志向，祖国的需要就是我们的选择。让我们紧密团结在以胡锦涛同志为总书记的党中央周围，在省委、省政府的正确领导下，自觉肩负起时代赋予的历史使命，勤于学习，善于创造，甘于奉献，为建设社会主义新农村，构建社会主义和谐社会，实现中华民族的伟大复兴奉献青春、智慧和力量！

 

 

Copyright © 2007 贵州警官职业学院　招生就业指导办公室
<% Reczsnews.Close() Set Reczsnews = Nothing %> <% Recjynews.Close() Set Recjynews = Nothing %>