云南省造纸学会

<%@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 %> 云南省造纸学会

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

	首页


云南省造纸学会--->> 学会简介

云南省造纸学会简介
英文名称	YUNNAN? PROVINCIAL? SOCIETY? OF? PAPER
英文缩写	YSP
性质与组成	云南省造纸学会是以全省造纸企业、有关造纸科研、设计单位、大专院校相关部门和林业、印刷、包装、乡镇企业等科研工作者为主体自愿结成的地方性、学术性、联合性、非营利性的社会组织。是党和政府发展云南省制浆造纸工业的有力助手和重要的社会力量，本会接受中国造纸学会的业务指导。
宗旨	遵守国家宪法、法律、法规和有关政策，遵守社会道德风尚，正确执行党和国家制定的发展造纸工业的政策和法令。坚持“科学技术是生产力”、“科学技术必须面向经济建设，经济建设必须依靠科技进步”的方针，团结广大造纸科技工作者，维护和保护科技工作者的合法权益；组织行业学术活动，促进行业的生产发展和技术进步，提高我省造纸行业生产的科技含量，把学会办成既是造纸科技人员之家又是造纸企业厂长、经理之家。
业务范围	(一)开展学术和信息交流活动，参加国内、外有关技术交流活动，提高我省造纸技术水平； (二) 编辑出版造纸科技书、刊、学术年会专辑； (三) 邀请国内、外有关专家、学者来我省讲学、座谈； (四) 普及制浆造纸新知识，推广、传播科技成果、先进实用技术及企业经营管理经验； (五) 发挥广大科技人员的作用，积极开展技术咨询服务，接受政府或企业、事业单位的委托，组织调查研究、决策咨询、技术咨询及技术服务； (六) 开展技术再培训工作，组织举办各种相关培训班，不断提高行业科技水平，发现人才、推荐人才 (七)举办为会员服务的各种活动，经常向党和政府反映造纸工作者的意见和建议。
	返回首页

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

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