<%@LANGUAGE="VBSCRIPT"%> <% set rszhuanjia = Server.CreateObject("ADODB.Recordset") rszhuanjia.ActiveConnection = MM_connjxmb_STRING rszhuanjia.Source = "SELECT * FROM jxmba.jzb ORDER BY iD_zhuanjia DESC" rszhuanjia.CursorType = 0 rszhuanjia.CursorLocation = 2 rszhuanjia.LockType = 3 rszhuanjia.Open() rszhuanjia_numRows = 0 %> <% set rsnews = Server.CreateObject("ADODB.Recordset") rsnews.ActiveConnection = MM_connjxmb_STRING rsnews.Source = "SELECT * FROM jxmba.jzb_news ORDER BY ID_news DESC" rsnews.CursorType = 0 rsnews.CursorLocation = 2 rsnews.LockType = 3 rsnews.Open() rsnews_numRows = 0 %> <% set rszaiqing = Server.CreateObject("ADODB.Recordset") rszaiqing.ActiveConnection = MM_connjxmb_STRING rszaiqing.Source = "SELECT * FROM jxmba.jzb_ziran ORDER BY ID_ziran DESC" rszaiqing.CursorType = 0 rszaiqing.CursorLocation = 2 rszaiqing.LockType = 3 rszaiqing.Open() rszaiqing_numRows = 0 %> <% set rsfangzai = Server.CreateObject("ADODB.Recordset") rsfangzai.ActiveConnection = MM_connjxmb_STRING rsfangzai.Source = "SELECT * FROM jxmba.jzb_fangzai ORDER BY ID_fangzai DESC" rsfangzai.CursorType = 0 rsfangzai.CursorLocation = 2 rsfangzai.LockType = 3 rsfangzai.Open() rsfangzai_numRows = 0 %> <% Dim rsztbd__MMColParam rsztbd__MMColParam = "专题报道" if (Request("MM_EmptyValue") <> "") then rsztbd__MMColParam = Request("MM_EmptyValue") %> <% set rsztbd = Server.CreateObject("ADODB.Recordset") rsztbd.ActiveConnection = MM_connjxmb_STRING rsztbd.Source = "SELECT * FROM jxmba.jzb_jianzai WHERE company = '" + Replace(rsztbd__MMColParam, "'", "''") + "' ORDER BY ID_guest DESC" rsztbd.CursorType = 0 rsztbd.CursorLocation = 2 rsztbd.LockType = 3 rsztbd.Open() rsztbd_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 7 Dim Repeat1__index Repeat1__index = 0 rszhuanjia_numRows = rszhuanjia_numRows + Repeat1__numRows %> <% Dim Repeat5__numRows Repeat5__numRows = 6 Dim Repeat5__index Repeat5__index = 0 rsztbd_numRows = rsztbd_numRows + Repeat5__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = 7 Dim Repeat4__index Repeat4__index = 0 rsfangzai_numRows = rsfangzai_numRows + Repeat4__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 6 Dim Repeat3__index Repeat3__index = 0 rszaiqing_numRows = rszaiqing_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 6 Dim Repeat2__index Repeat2__index = 0 rsnews_numRows = rsnews_numRows + Repeat2__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %> 江西省减灾委员会

 

您所在的位置:首页>>灾害数据库>>灾害年表>>气象灾害>>正文
   


中国雨涝灾害事件表
1949-1960
1961-1970
1971-1980
1981-1990
1991-2001
2002-2004


中国热带风暴灾害事件表
1949-1960
1961-1970
1971-1980
1981-1990
1991-2002
2003-2004


中国寒潮灾害事件表
1949-1960
1961-1970
1971-1980
1981-1990
1991-2001
2002-2004


中国冰雹灾害事件表
1949-1960
1961-1970
1971-1980
1981-1990
1991-2001
2002-2004


中国龙卷风灾害事件表
1949-1960
1961-1970
1971-1980
1981-1990
1991-2000

           中国重大气象灾害年表及事件表

  说明自古以来人们对气象条件的变化及其造成的灾害就比较重视,这在许多地方志等史记书籍中均有记载。 在20世纪50年代以前,由于我国气象测站稀若星辰,气象监测资料甚少,所以对气象灾情的记叙都是通 过其危害情况进行定性的描述,并且分散记载于地方志等史书及报刊中,缺乏系统性及整体性。
  1949年 10月中华人民共和国成立后,随着气象台站网的迅速发展,以及农业部和水利部等部门相继建立了自然灾 害统计工作,从而使气象灾害条件及其危害情况有了比较客观的、定量的和系统的记载。尤其是50年代后 期,为了提高气象科技的服务效益,更好地满足国民经济建设的需求,各级气象部门相继开展了气象旬报、 月报以及气象与农业生产等多种气象信息服务,大大促进了气象灾情的收集和分析工作,使气象灾情资料的 整理工作走向了正规化和业务化。但是,由于对灾情的调查及评估技术等工作缺乏全面的、科学的规章制度, 加之灾情实况的"保密性"等多种原因,致使气象科学工作者重视气象灾变条件的分析研究,而对实际灾害造 成的损失情况则掌握得不够详细、全面。
  自80年代中期以来,随着新编地方志工作的广泛开展,以及减灾工作的不断深入,进一步推动了各级 气象部门对气象灾情的收集、整理工作。国家气象中心及许多省级气象部门先后建立了部分气象灾害数据库, 其内容偏重于气象灾变条件的描述,缺乏实际灾损情况。因此,该种灾害数据库的信息是不完整、不健全的。 由于气象灾害的信息多、涉及面广、工作量大,加之经费和时间的限制,难以进行全面细致的整理。本 次整编的气象灾害年表和灾害个例,主要是根据《中国主要气象灾害分析》,气象旬、月报,重要天气简报, 年度全国气候影响评价,台风年鉴,寒潮年鉴,各地气象灾情汇报材料,省级灾害天气年鉴及气候影响评价, 以及农业部的全国气象灾害材料,水利部的洪水灾害史料。
  此外,一些有关气象灾害的资料系从研究论著中 择取的。关于气象灾害个例的选取,是根据灾害发生的范围较广、危害较重,并且具有一定的代表性而确定 的,所以这里的灾害个例较少。由于我们掌握的实际灾损情况具有局限性,致使一些灾损情况不够翔实,甚 至难免有误,故有待补充、修正。 负责人:国家科委国家计委国家经贸委自然灾害综合研究组,章庆辰。

 

添加专家论坛 添加工作动态 添加专家论坛 防灾减灾信息提交

<% rszhuanjia.Close() %> <% rsnews.Close() %> <% rszaiqing.Close() %> <% rsfangzai.Close() %> <% rsztbd.Close() %>