<%@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年建设项目表

项目名称

建设主要内容

投入
资金
(万元)

完成期限

责任
单位

备注

基础设施建设项目

道路
建设

主干道路硬化6.5公里，巷道硬化4.8公里

141

2008年5月底前

县交通局
县财政局
莲峰镇

已完成1公里道路硬化。县财政局解决40万元；县交通局追加10万元

渠系
改建

改建渠系1000米，自来水入户66户

7.5

2008年5月底前

县水务局
县扶贫办

县水务局接通16户示范户自来水；县扶贫资金解决50户自来水2.5万元

住宅建设

16户小康示范户后续工程，150户农户大门、围墙改造

182

08年5月底前

县发改局
县民政局
莲峰镇

县发改局解决50万元，县民政局解决50万元，群众自筹82万元

沼气建设

新建沼气170座（县农业局100座，扶贫办70座）

22.5

08年5月底前

县扶贫办
县农业局

已建260座

荒山造林及村庄绿化

完成荒山造林500亩,并对7.5公里主干道栽植杨树,圈舍改造100户

10

08年4月15日前

县林业局
莲峰镇

林业局提供苗木，并解决圈舍改造资金10万元，莲峰镇组织苗木栽植

卫生厕所配备

修建卫生厕所350座

8.75

08年5月月底前

县卫生局

 

农电及亮化

接通16户小康示范户农电，主干道、广场配备节能路灯

 

08年5月底前

县电力公司

 

有线电视

接通寇家坡、后庄、掌子三社有线电视

 

08年5月底前

县广电局

 

信息宽带

开通团结村信息宽带

 

08年5月底前

县电信局

 

村计生室建设

建设村计生室，配备计生服务人员及设备

 

08年5月底前

县计生局

 

村庄规划

做好团结村道路框架等规划

5

08年3月底前

县城乡建设局

已解决2万元

建设用地审批

办理团结村建设用地手续

 

08年5月底前

县国土资源局

 

垃圾处理厂建设

建成垃圾处理厂1处，集中处理全村生产生活垃圾

3

08年5月底前

县环保局

 

村容村貌整治

落实好“三清三改” ，修建公厕一所

 

08年5月底前

莲峰镇

 

增收项目

良种牛引进

引进良种母牛38头,新建暖棚38座

19.5

08年5月底前

县扶贫办

07年引进260头

良种母猪引进

引进良种母猪猪仔投放农户75户

15

08年5月底前

县扶贫办

 

中药材标准化示范

建成一个950亩的GAP中药材（红、黄芪）连片种植示范点

19

08年4月15日前

县扶贫办

07年种植400亩

玉米双垄沟种植

建成一个1000亩的地膜玉米连片示范点

10

08年4月15日前

县农技中心

 

扶持贷款

各协调贷款50万元。

150

08年5月底前

农行
农发行
信用联社

 

科技扶贫项目

学校危房改建

改修建后庄、水泉小学围墙及校舍

39

08年5月底前

县教育局

 

村级卫生所

新建村级卫生所1处，配备医疗器械及从业人员培训

6

08年5月底前

县卫生局

 

文化活动中心

体育局配备体育健身器械；文化旅游局建设1个农家书屋及150平方米文化活动室，完成文化广场硬化

40

08年5月底前

县体育局
县文化旅游局
莲峰镇等

县新农村办协调解决30万元

农业技术培训

培训700人（次）

3.5

08年3月底前

县农业局
劳务办

 

精神文明建设

举办2期法制培训班，培训600人。举办各种评选

 

08年3月底前

县司法局
精神文明办
县妇联
团县委
莲峰镇等

 

“万村千乡工程”

建成连锁超市和连锁便民店6个。

6

08年5月底前

县中小企业管理局
县供销联社
莲峰镇

 

 

气象
屏幕

 

建一个气象屏幕

5

08年5月底前

县气象局

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