<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim wynewsshow Dim wynewsshow_numRows Set wynewsshow = Server.CreateObject("ADODB.Recordset") wynewsshow.ActiveConnection = MM_conn_STRING wynewsshow.Source = "SELECT * FROM wynewsData ORDER BY wynews_time DESC" wynewsshow.CursorType = 0 wynewsshow.CursorLocation = 2 wynewsshow.LockType = 1 wynewsshow.Open() wynewsshow_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 wynewsshow_numRows = wynewsshow_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim wynewsshow_total Dim wynewsshow_first Dim wynewsshow_last ' set the record count wynewsshow_total = wynewsshow.RecordCount ' set the number of rows displayed on this page If (wynewsshow_numRows < 0) Then wynewsshow_numRows = wynewsshow_total Elseif (wynewsshow_numRows = 0) Then wynewsshow_numRows = 1 End If ' set the first and last displayed record wynewsshow_first = 1 wynewsshow_last = wynewsshow_first + wynewsshow_numRows - 1 ' if we have the correct record count, check the other stats If (wynewsshow_total <> -1) Then If (wynewsshow_first > wynewsshow_total) Then wynewsshow_first = wynewsshow_total End If If (wynewsshow_last > wynewsshow_total) Then wynewsshow_last = wynewsshow_total End If If (wynewsshow_numRows > wynewsshow_total) Then wynewsshow_numRows = wynewsshow_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 = wynewsshow MM_rsCount = wynewsshow_total MM_size = wynewsshow_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 wynewsshow_first = MM_offset + 1 wynewsshow_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (wynewsshow_first > MM_rsCount) Then wynewsshow_first = MM_rsCount End If If (wynewsshow_last > MM_rsCount) Then wynewsshow_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 %> 专题专栏 新农村建设
 
  检索 高级检索
|
|
|
|
|
|
|
|
|
    您对我县新改版的网站满意程度如何?
很满意
满意  
一般  
不满意
  您当前的位置 :首 页专题专栏 > 新农村建设
 


渭源县社会主义新农村建设工作领导小组文件

渭新领发[2008]   03  号    
 
       
渭源县社会主义新农村建设工作领导小组办公室
关于转发甘肃省新农村建设社会帮扶资金(物资)管理
办法(试行)的通知

莲峰镇政府、县新农村建设工作领导小组各成员单位:
    现将《甘肃省新农村建设社会帮扶资金(物资)管理办法(试行)》转发你们,请认真抓好贯彻落实。

2008年8月1日

甘肃省新农村建设社会帮扶资金(物资)管理办法(试行)

第一章  总 则

    第一条 社会帮扶资金(物资)是指社会各界(包括企业、单位、社会团体、个人)响应中央和省委的号召,在自愿的基础上,通过各种形式参与支持新农村建设而捐助的资金(物资)。
    第二条 社会帮扶资金(物资)是新农村建设发挥农民主体、政府主导作用的资金(物资)支持和补充。
    第三条 省级社会帮扶工作每年集中组织一次,临时性的捐助可随时接受。
    第四条 为加强和规范社会帮扶资金(物资)的管理和使用,提高效益,根据《省委、省政府关于推进社会主义新农村建设的实施意见》(省委发〔2006〕2号)和《甘肃省新农村建设社会帮扶工作意见》(甘新领发〔2007〕2号)等文件精神,结合我省实际,特制定本办法。

第二章  资金(物资)管理

    第五条 社会帮扶资金(物资)由省委社会主义新农村建设工作领导小组(以下简称领导小组)统一管理和使用,以项目补助、贷款贴息和以奖代补的形式直接安排到村,下拨到项目村所在的县市区新农村办公室,接受捐助方监督。
    第六条 省委社会主义新农村建设工作领导小组办公室(以下简称省委新农村办公室)(或委托有关单位)设立社会帮扶资金捐助收入过渡账户。社会各界捐助的帮扶资金直接汇入捐助收入过渡账户,由账户设立单位开具捐助收据。社会帮扶资金实行财政专户管理,专账管理,专款专用。
    第七条 社会帮扶资金存入银行期间所得利息全部用于新农村建设。
    第八条 社会帮扶资金(物资)实行报账制管理。县市区新农村办公室负责对项目实施进行监督,乡镇政府帮助村组织实施。项目完成后,由实施村提供票据和任务清单,乡镇政府提出核查意见,报县市区新农村办公室审核报账。
    第九条 社会帮扶的物资,受助单位要加强监管,建立台账,严格履行出入库手续,凡形成固定资产的要纳入村级固定资产管理。有特殊要求的,由省委新农村办公室会同捐助单位共同拨付。
    第十条 捐助单位有安排意向的,省委新农村办公室给予充分的尊重。开展结对帮扶的企业捐助的资金(物资),由帮扶企业直接投向被帮扶村,并报县级新农村办公室登记备案后上报省、市新农村办公室。
    第十一条 社会帮扶资金由市州新农村办公室考察后提出申请,并编写项目实施方案后,统一报省委新农村办公室,省委新农村办公室考察后提出安排意见,经领导小组负责同志批准后下达。对确定补助的项目,给予一次性资金补助;对确定贴息的项目,安排贴息扶持。
    第十二条 对群众积极性高、村级班子凝聚力强、工作扎实的村,采取以奖代补的形式给予奖励性扶助,扶助标准由领导小组确定。被奖励村由市州新农村办公室会同省上督导单位省农牧厅、省扶贫办统一提名,报省委新农村办公室,省委新农村办公室考察后提出具体意见,经领导小组负责同志审核后安排。
    第十三条 接受社会帮扶资金(物资)帮扶的村,要将社会帮扶资金(物资)使用情况向村民公开,接受村民监督。

第三章  资金(物资)使用

    第十四条 社会帮扶资金(物资)使用,坚持“专款专用、统筹安排、集中使用、注重实效”的原则,严禁挪用、截留,不得提取任何管理费用,不得改变用途。
    第十五条 社会帮扶资金(物资)主要用于支持生产发展,扶持基础设施和社会事业发展等项目建设。
    第十六条 有特殊要求的社会帮扶资金(物资)的使用用途,按捐助单位的要求使用。

第四章  项目验收

    第十七条 社会帮扶资金(物资)支持的项目完成后,县市区新农村办公室会同有关单位进行初查后,向市州新农村办公室申请,由市州新农村办公室向省委新农村办公室提出验收申请,省委新农村办公室组织有关单位或委托市州新农村办公室组织验收。
    第十八条 项目验收的内容主要是资金的使用、审核以及项目质量、效益等目标完成情况。项目验收要严格按照实施方案进行。

第五章  附 则

    第十九条 本办法由省委新农村办公室负责解释。
   第二十条 本办法自印发之日起执行。

主办:渭源县人民政府    承办:渭源县经济信息中心
备案序号:甘ICP备05024460号
<% wynewsshow.Close() Set wynewsshow = Nothing %>