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

　
您所在的位置：首页>>便民服务>>咨询机构>>正文
江西省减灾委专家组
减灾机构(减灾委成员单位)
姓名
联系电话
职务
6233987
组　长
6295290
副组长
8319966
副组长
8602049
副组长
6558005
  
8692632
  
8331269
  
8195021
  
6225358
  
8306497
  
3813243
  
6298601
  
6217617
  
6288746
  
8619584
  
6295576
  
6266569
  
8623543
  
3813246
  
6213533-3505
  
6296319
  
8520841
  
6223682
  
6238565
  
6116319
  
6350703
  
6268312
  
8623543
  
6238507
  
注：点击姓名可详细了解专家的工作简历。
单位名称
联系电话
江西省气象局
  
江西省发改委
  
江西省农业厅
  
江西省财政厅
  
江西民政厅
  
江西省水利厅
  
江西省农业厅
  
江西省科技厅
  
江西省国土资源厅
  
江西省环保局
  
江西省地震局
  
江西省林业厅
  
江西省消防总队
  
江西省保监局
  
江西省卫生厅
  
江西省建设厅
  
江西省信息产业厅
  
江西省外办
  
江西省广电局
  
江西省经贸委
  
江西省外经贸厅
  
江西省统计厅
  
江西省交通厅
  
南昌市铁路局
  
江西省教育厅
  
江西省测绘局
  
江西省军区
  
江西省公安厅
  
江西省通信
  
江西省社联
  
江西省科协
  
江西省红十字会
  
江西省人防办
  

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

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