<%@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) %> 无标题文档
| 首 页 | 凉州要情 | 统计动态 | 统计信息 | 统计分析 | 他山之石 | 政策法规 | 乡镇名片 |
  您现在的位置：首 页 >> 统计产品 >> 文章正文  
数字看“十五”    
目　　 录

　　 一、凉州统计网站简介
　　 宏观经济指标体系
　　 二、农村全面小康建设评价指标体系
　　 三、工业化发展阶段评价指标体系
　　 四、农业现代化发展评价指标体系
　　 五、农业产业化发展阶段评价标准
　　 六、城镇化发展质量评价指标体系
　　 七、武威市循环经济规划指标体系
　　 “十五”发展数据
　　 八、基本概况
　　 九、生产总值
　　 十、工业经济
　　 十一、农村经济
　　 十二、社会消费
　　 十三、固定资产投资
　　 十四、财税与金融
　　 十五、城乡人民生活
　　 十六、主要经济指标在全省位次
　　 十七、GDP与财政收入对比
　　 十八、农民人均纯收入排序
　　 理论与实践
　　 十九、武威市凉州区农村全面小康建设监测报告(2004)[凉州区统计局小康监测课题组]
　　 二十、统筹城乡发展 构建和谐社会 加快凉州社会主义新农村建设步伐 [李 鹏]
　　 二十一、大力发展第三产业 拓展经济成长空间 全面实现经济社会又快又好地发展 [李 国]
　　 二十二、凉州食品工业发展的现状与展望 [杨生宏]
　　 二十三、“十五”凉州农业及农村经济发展回眸与“十 一五”展望 [蔡 珺]


　　　　　　　　　　　　　　　　　　　　　 　　 编　写　说　明

 　　为了向广大干部群众展示“十五”以来，我区经济发展、社会进步、人民生活等方面取得的辉煌成绩，便于各级领导系统地了解经济规模、增长速度、结构变化和发展趋势，全面把握主要指标在全省所处的位次，为各级领导更好地谋划“十一五”规划提供比较翔实的决策依据。我局根据2000年以来的有关资料，编辑整理了《数字看“十五”》这本小书，供参加“十一五”规划研讨班的领导们参考使用。?《数字看“十五”》一书中主要内容包括：“十五”以来经济社会发展主要指标的纵横对比；“十一五”即将着力建设的全面小康社会、农业产业化、现代农业、工业化、城镇化、循环经济等方面的评价体系；以及凉州统计人贯彻上级精神，致力凉州发展所做的一些理论和实践方面的探索。?特别需要说明的是，书中涉及2005年的数据，除播种面积、粮食产量外均为预估数。定案数据以我局今后正式公布的数据为准。?由于水平能力有限，策划编辑时间短促，错误和纰漏在所难免，敬请各级领导不惜赐教，批评指正。在使用过程中若有疑问，请及时与我局取得联系或登录凉州统计网站。（http://tj.gsliangzhou.gov.cn）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　编者
　　　　　　　　　　　　　　　　　　　　　　　　　　二ＯＯ五年十一月
　1 　2　 3　 4　 5 　6　7 　下一页
| 设为首页 | 加入收藏 | 联系站长 | 版权申明 | 管理登录 | 
主办：凉州区统计局
凉州区信息中心提供技术支持
Copyright © 2005 凉州统计信息网 All Rights Reserved
<% Recordset1.Close() Set Recordset1 = Nothing %>