<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% ' *** 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 %> <% 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 %>

== 区 辖 镇==

== 区 辖 乡==
   
您现在的位置:首 页 >> 乡镇名片 >>武南镇
黄羊镇概况

   凉州区农村有9镇38乡,1个指挥部,即黄羊、武南、高坝、清源、金羊、永昌、双城、和平、丰乐镇;上泉、张义、中路、二坝、庙山、谢河、河东、吴家井、长城、清水、发放、大柳、双树、东河、古城、校尉、韩佐、六坝、新华、南营、金塔、西营、红星、柏树、松树、金山、青林、康宁、永丰、五和、怀安、洪祥、四坝、金沙、中坝、羊下坝、下双、九墩、九墩滩开发指挥部;下辖448个村民委员会,3673个村民小组;另有2个街道办事处,即黄羊镇街街道办事处、武南镇街街道办事处。城区有6个街道办事处,即东关街、东大街、西关街、西大街、火车站街、地质新村街街道办事处,下辖36个社区。总人口101万人,其中农业人口79万人,城市人口22万人;总面积5081平方公里,其中耕地面积146万亩,城区建设面积约24平方公里。

  黄羊镇位于凉州区东端,总面积102平方公里,其中城镇面积10平方公里,耕地面积7.23万亩。辖一个街道办事处,8个居委会,14个行政村,即:黄羊、新店、大墩、广场、横沟、土塔、长丰、唐沟、李宽、七里、中腰、西河、渠中、三河,下设155个村民小组,总人4.85万人,其中城镇人口1.7万人。镇政府驻黄羊村。驻有省畜牧学校、省农机学校、黄羊河农场、省农垦农业研究院等单位20多家。2001年,完成农业总产值7388万元,财政收入768万元,乡镇企业总产值76025万元,农民人均纯收入2855元。有中小学18所,在校学生6637人;区第五人民医院正在筹建之中。近年来,先后荣获“全国精神文明建设先进乡镇”、“全省明星乡镇”、全省“文明镇”等荣誉称号。
镇区内交通便利,通讯快捷,国道312线、兰新、干武铁路干线穿境而过,武黄公路、黄哈公路相互交汇,集货运客运为一体的黄羊火车站就在镇内;乡村道路四通八达,交通比较便利。特别是1997年,黄羊镇被国家计委列为全国农村生态环境及基础设施建设的首批试点镇以业,加快基础设施建设步代,镇容镇貌得到了大的改观。黄羊镇已成为省内外人流、物流、资金流、信息流的中转站,成为中西部商品流通的重要集散地。
   农业生产基础稳固,种植结构调整优化。1995年以来,兴修各类渠道380公里,整修道路75公里,营造绿化带44公里。农业科技含量日益提高,累计建成日光温室1000多座,年产值约1000多万元。小麦良种推广率达到100%,规模养殖户达到800多户,已由单一的育肥肥逐步转变为瘦肉型猪、奶牛、肉牛育肥、优质细毛羊、特种畜禽等齐头并进的养殖好势头。
乡镇企业发展迅速,工业体系初步形成。近年来,每年都有投资1000万元以上的大项目落户。黄羊镇以其特殊的地理位置和自然条件,以面粉加工为主导的黄羊工业经济开发小区已成为辐射西北五省最大的面粉加集散基地,年处理小麦80万吨,是全区小麦总产量的2.8倍。年产值5000万元以目的企业有6家。各类个体私营企业已发展到400多户,初步形成了面粉加工、塑料、农机、化工、建材、装潢、酿造、医药等门类齐全,实力较强,基础较好的工业体系。
  小城镇建设初具规模,基础设施建设进一步加强。拓宽铺筑道路4公里,新建万吨蓄水池1座,新建二层以上楼房22幢,完成镇区绿化带10公里。
  为了进一步快实施西部大开发战略步伐,黄羊镇绿色食品科技示范区已于2002年3月由市政论批准成立,由市区共同负责建设,示范区核心区域总规划面积20平方公里。示范区以应用高科技,突出绿色环保为宗旨,采取优惠政策和服务招商相结合的办法,力争将其建成一个具有示范带动作用,能推动产业化发展的科技园区。

  二坝乡位于凉州区东南部,国道312线横贯东西,黄哈公路穿越南北,乡村道路纵横交错,效能条件十分便利。乡域面积58平方公里,其中耕地面积29924亩。辖峡沟、天桥、平沟、新中、杨房、杨家洼、严庄、上庄、二坝9个村,61个村民小组,总人口12994人。乡政府驻新中村。2001年,完成农业总产值3123万元,财政收入209万元,乡镇企业总产值6020万元,农民人均纯收入2380有中小学10所,在校学生2674人;有卫生院1处。
  二坝乡近年来与省科委共同承建高新节水示范区两处,修建高压泵房四座,节水地面各达10000亩。园区内新建蔬菜日光温棚、花卉棚、常青树棚100个,不断引进推广新品种,现已成为全市高标准、高科技示范园区之一。依靠沿山牧草资源丰富的优势,大力发展养殖业,现建立了集养殖、屠宰、贩运冷贮为一体的规模养殖点1处;特禽养殖发展较快,已引进肉狗、肉鸽等珍稀品种。全乡规模养殖户达316户。黄羊经济开发区成立以来,全乡以面粉加工为主体的乡镇企业、个体私营企业发展如雨后春笋。目前,有乡镇企业5个,个体私营企业89个,企业从业人员528人,在一定程度上拉动了地方经济的快速发展。
在实施西部大开发中,二坝乡根据区位优势和地域优势,确定了今后的发展目标:发展农业高科技示范园区,努力建设肉类、蔬菜供应为主的经济开发区,不断培育和壮大以小麦加工为主的乡镇企业、以日光温室为主的蔬菜产业、以规模养殖为主的畜牧业,推动全乡经济和社会各项事业的健康发展。
  2004年8月,二坝乡并入黄羊镇。

  将二坝乡撤并于黄羊镇,合并后的黄羊镇辖6个社区居民委员会,23个村民委员会,218个村民小组,总人口58380人,区域面积约158平方公里。

| 设为首页 | 加入收藏 | 联系站长 | 版权申明 |
主办:凉州区统计局
凉州区信息中心提供技术支持
Copyright © 2005 凉州统计信息网 All Rights Reserved