<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_dsntj_STRING Recordset1.Source = "SELECT * FROM textid ORDER BY UpdateTime DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% ' *** 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 = "ArticleID" MM_paramName = "id" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Specific Record: handle detail parameter If (MM_paramIsDefined And MM_rsCount <> 0) Then ' get the value of the parameter MM_param = Request.QueryString(MM_paramName) ' find the record with the unique column value equal to the parameter value MM_offset = 0 Do While (Not MM_rs.EOF) If (CStr(MM_rs.Fields.Item(MM_uniqueCol).Value) = MM_param) Then Exit Do End If MM_offset = MM_offset + 1 MM_rs.MoveNext Loop ' if not found, set the number of records and reset the cursor If (MM_rs.EOF) Then If (MM_rsCount < 0) Then MM_rsCount = MM_offset End If If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset End If MM_offset = 0 ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Close MM_rs.Open End If 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) %> 无标题文档
  您现在的位置:首 页 >> 统计产品 >> 文章正文  
凉州区乡(镇)域经济社会发展概要    
目   录

  第一章 全区经济社会发展概况
  第二章 全区经济社会主要指标对比
  第三章 农村经济总体概况
  第四章 乡镇社会经济发展卡片
  第五章 乡镇主要指标排序
  第六章 统计调查分析 

 

编 写 说 明

  乡镇作为经济社会的微观地域单位,在经济发展、社会进步中发挥着重要作用。乡镇社会经济的全面发展,不仅是解决“三农”问题的关键,也是加强党的执政能力、全面建设小康社会的重要基础。近年来,在区委、区政府的领导下,全区上下自加压力,奋力拼博,求真务实,开拓创新,有力的促进了国民经济持续、健康、快速的发展。特别是各乡镇的经济实力明显增强,社会事业全面进步,群众生活有了较大提高,农村面貌发生了深刻变化,广大群众正在向全面建设小康社会的宏伟目标阔步前进。
  为了全面反映各乡镇经济社会发展水平,更好地服务于各级党委政府、服务于市场、服务于社会公众,增进乡镇之间的信息交流,促进共同发展。应社会各界人士之要求,我们编辑了《凉州区乡(镇)域经济社会发展概要》一书。本书是对乡镇统计资料开发利用的成果。书中所列数据主要根据农业统计年报、乡镇社会经济基本情况表、农村各类抽样调查结果以及农委、财政、乡企、电力、农牧、林业、农机、蔬菜、交通、广电等部门的统计资料编辑而成。现对编辑中的有关情况作以下说明:
  1、根据“属地统计”的原则,乡镇生产总值(GDP)是乡镇辖区内所有常驻单位在日历年度内生产和提供的最终成果的价值总和。其增长速度是扣除了当年物价因素后的实际增幅。由于统计方法制度和乡镇统计资料的局限性,乡镇生产总值的核算还存在许多不完善的地方,核算结果肯定和全区生产总值的核算结果有一定偏差,这也是允许的统计误差。
  2、高坝、武南、黄羊、金羊四乡镇存在市、区和铁路交叉供电现象,市和铁路电网对乡镇供电量的资料获取难度较大,所以上述四乡镇的农村用电量数据只包括区级电网供电量,不包括市级电网和铁路电网直接供电量。
  3、由于个别乡镇报表质量不高,源头数据不够准确,根据统计数据“下管一级”的原则,借鉴省、市数据质量评估修订的有关参数,我们对部分乡镇所报的个别数据进行了适当的评估调整。
  4、本书中,个别乡镇相关数据出现了少量空缺。主要是由于个别乡镇原始报表资料不全,统计工作存在一定漏洞造成的。
  5、由于开发乡镇统计资料尚属第一次,故列入排序的25个指标主要是总量指标和基本情况,仍不能全面反映各乡镇经济发展的实际情况和市场竞争力。今后,我们将在人均指标和强度指标方面做探索研究。 
  6、鉴于基层统计基础薄弱,部门统计不健全,资料收集有限,列出的25个排序指标中,或多或少的存在与乡镇实际发展状况不相符的地方,我们只能非常遗憾地和十分愧疚地敬请个别乡镇见谅。我们也希望通过这次对乡镇统计资料的开发,能够引起方方面面对基层统计工作的重视,以利于我们更好的为社会公众服务。
  7、由于时间关系,书中有关数据尚未经上级部门评估反馈。今后,若与公开出版的统计资料有差异,以公开出版物数据为准。
  8、我们初次尝试开发乡镇统计资料,经验不足,水平有限,加之时间仓促,纰漏之处在所难免,敬请广大读者提出宝贵意见,我们将在今后的工作中不断加以完善。


   本书主要编辑人员:李 鹏 李 国 杨生宏 蔡 珺
            唐生德 陈万林 张清泉 于飞山

                                           编 者
                                        二○○五年二月

 1  2  3  4  5  6 7  下一页
| 设为首页 | 加入收藏 | 联系站长 | 版权申明 | 管理登录 | 
主办:凉州区统计局
凉州区信息中心提供技术支持
Copyright © 2005 凉州统计信息网 All Rights Reserved
<% Recordset1.Close() Set Recordset1 = Nothing %>