<%@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 %> 江西省减灾委员会
首页 政务公开 减灾法规 灾害监测 案例分析 专题报道 江西自然灾害

 

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

  栏目介绍:

  本栏目内容属于中国可持续发展信息网的一部分,主要介绍中国的自然灾害情况,包括气象、洪涝、地震、海洋、农业、林业、地质等七类自然灾害信息,数据范围从公元前数千年至今,包括各种自然灾害的发生时间、强度、经济损失、人员伤亡、救灾情况、善后情况、各种援助等,同时本站点还以省市县为单位介绍各地的自然灾害情况。

  本栏目数据集:

  可以进行查询、下载的数据,该类数据主要以灾害事件的自然变异信息为主,包含部分损失信息;可以进行元数据查询,部分检索的数据,该类数据主要以中国各市(县)的与灾害相关的数据为主;第一类数据用户可以无偿使用,但使用时需注明数据来源于中国地震局地质研究所地震灾害研究所,第二类数据由于涉及保密及商业问题,需要的用户请同聂高众、李志强联系。(Email :disgroup@public.bta.net.cn)

  本栏目内容来源中国地震局地质研究所地震灾害研究所,该所负责维护与数据更新。

  数据所有权属科技部国家计委国家经贸委灾害综合研究组。2000年11月25日验收通过,2005年10月最新数据更新。

 
   

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

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