江西省减灾委员会

<%@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 %> 江西省减灾委员会

您所在的位置：首页>>减灾管理>>灾情管理>>正文

　　收集处理省内各类灾害信息，发布《江西省自然灾害公报》，为灾害管理部门提供及时、可靠的灾害信息服务，为党政领导提供科学的决策依据。
　　

	针对省内重大灾害事件或阶段性灾情，建立自然灾害会商制度。会同气象、水利、地震、国土资源、农业、林业、消防、环保等相关部门分析省内重大自然灾害的发生发展情况，预测下一阶段可能发生的自然灾害。

　　制定全省灾害信息收集、管理、发布的标准及相关技术规范，建设全省灾害数据库，研究开发全省灾害信息管理系统，促进全省灾害信息的业务化、自动化管理。

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