云南省造纸学会

<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_hg_STRING Recordset1.Source = "SELECT * FROM zz_gonggao ORDER BY id DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_hg_STRING Recordset2.Source = "SELECT * FROM zz_hangyedongtai ORDER BY id DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' 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 %> 云南省造纸学会

	学会简介
	会员单位
	学会章程
	组织机构
	会议信息
	行业动态
	学术交流

	首页

云南省造纸学会--->> 组织机构

云南省造纸学会组织机构

理事长：彭增华（研究员、昆明理工大学副校长）
常务副理事长、秘书长：陈克利（教授、昆明理工大学轻化工程学科带头人）
副理事长：王水（云南省投资公司副总经理、云景林纸股份有限公司董事长）
杨发甲（云南红塔蓝鹰纸业有限公司董事长）
王亚明（教授、昆明理工大学化工学院院长）
副秘书长：何瑛（高级工程师）
刘晓波（副教授、昆明理工大学轻化工程教研室主任）
学术及科普委员会：邱坚（教授、西南林学院木质科学与装饰工程学院副院长）
杨本彬（高级工程师、云南省轻工业科学研究所纸检站站长）
刘晓波
信息及咨询委员会：周建国（高级工程师、云景林纸股份有限公司总工程师）
周红光（高级工程师、云南红塔蓝鹰纸业有限公司总工程师）
李任涛（高级工程师、云南省轻纺设计院总工程师）
云南省造纸学会第六届理事会理事组成名单（以姓氏笔画为序）
马玉昆、王水、王亚明、叶伟、刘启林、刘晓波、刘宏华、孙建松、孙安平、李任涛、杨发甲、杨本彬、杨雅斌、陈克利、何诚华、何瑛、邱坚、金国杰、周建国、查定明、奚幼虎、唐俊、彭增华、蔡毅、霍云平、瞿兴荣

秘书处：陈克利(13987638634)
何瑛（13888731230）
刘晓波（13108892178）

秘书处办公地址：昆明市官渡区金马镇白龙寺昆明理工大学化工学院内
电话：0871－3835931
传真：0871－3835931
联系人邮箱：liuxiaobo_km@sina.com

返回首页

| 关于我们 | 网站管理 | 其他信息

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>