<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim RsList__MMColParam RsList__MMColParam = "10" If (Request("MM_EmptyValue") <> "") Then RsList__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RsList Dim RsList_numRows Set RsList = Server.CreateObject("ADODB.Recordset") RsList.ActiveConnection = MM_dzdc_show_STRING RsList.Source = "SELECT * FROM 内容列表 WHERE 类别 = '" + Replace(RsList__MMColParam, "'", "''") + "'" RsList.CursorType = 0 RsList.CursorLocation = 2 RsList.LockType = 1 RsList.Open() RsList_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 11 Repeat1__index = 0 RsList_numRows = RsList_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim RsList_total Dim RsList_first Dim RsList_last ' set the record count RsList_total = RsList.RecordCount ' set the number of rows displayed on this page If (RsList_numRows < 0) Then RsList_numRows = RsList_total Elseif (RsList_numRows = 0) Then RsList_numRows = 1 End If ' set the first and last displayed record RsList_first = 1 RsList_last = RsList_first + RsList_numRows - 1 ' if we have the correct record count, check the other stats If (RsList_total <> -1) Then If (RsList_first > RsList_total) Then RsList_first = RsList_total End If If (RsList_last > RsList_total) Then RsList_last = RsList_total End If If (RsList_numRows > RsList_total) Then RsList_numRows = RsList_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = RsList MM_rsCount = RsList_total MM_size = RsList_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record RsList_first = MM_offset + 1 RsList_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (RsList_first > MM_rsCount) Then RsList_first = MM_rsCount End If If (RsList_last > MM_rsCount) Then RsList_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** 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 %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> 中共肇庆市端州区委党校
 
 

 

以创新的理念推进新经济组织的党建工作

端州区委党校 邓淑卿

    随着改革开放的不断深入,市场经济的不断发展,新经济组织不断地发展壮大,并对经济社会生活发挥着越来越重要的作用。加强新经济组织党建工作,扩大和发挥党的政治影响和战斗堡垒作用,对于推动经济社会发展、构建社会主义和谐社会具有深远的历史意义和重大的现实意义。但由于各方面的种种原因,传统党建工作难于适应新形势发展的要求,不易被新经济组织所接受,出现“有企业无党员,有党员无组织,有组织无管理,有管理无作用”的尴尬局面。为此,笔者认为,在新的形势下,只有创新新经济组织的党建工作理念和方法,才能走出一条新的路子。
    一、强化党建理念,把新经济组织作为党建工作的重要组成部分
    改革的进一步推进,由国有企业转制而来的非公有制经济组织逐渐增多,原生型非公有制企业也不断发展壮大。这为党的建设提供了新的领域和空间。“你不去占领阵地,别人就会去占领”。我们应当清醒地看到,如果党组织和党的工作不能真正地覆盖到新经济组织,党就会失去新经济组织这一巨大而重要的阵地,党的建设新的伟大工程就难以整体推进,党的执政地位也就谈不上全面巩固。因此,必须从新经济组织在中国特色社会主义现代化建设中所处的历史地位,以大党建的理念来加强和搞好新经济组织党建工作。
    一是加强党对新经济组织的领导。要把新经济组织党的建设作为当务之急,严格按照党章的要求,切实加大在新经济组织中组建党组织的工作力度,发挥好党组织的作用,做到哪里有党员哪里就有党的组织,哪里有党的组织哪里就有健全的组织生活和坚强的战斗力;通过开展先进性教育活动,不断创新党组织的设置形式,提高党组织的组建率;要把组建和巩固提高有机结合起来,做到“成熟一个、建立一个,巩固一个、提高一个”。 以此加强新经济组织的党建工作,凝聚职工群众,维护各方的合法权益,使党的路线、方针、政策能够及时有效地在新经济组织中得到宣传贯彻,大大提高党的社会影响力和社会调控力,从而推动社会经济的和谐发展。
    二是创新新经济组织党建工作机制。由于新经济组织党建工作还十分薄弱,许多党员游离于组织之外,不少党组织和党的领导干部对新经济组织党建工作缺乏足够的认识,不愿把精力、人力、财力花在其中,以至于新经济组织党建工作与整个基层党建工作的发展、与整个社会的进步不相适应。增强新经济组织党建的吸引力,要从创新管理机制入手,如条件允许的可以单独建立新经济组织党的工作委员会,统揽新经济组织党建工作,依托联系紧密的行业建立新经济组织行业党委,从横向和纵向两个方向理顺管理关系,实现新经济组织党建工作力量的整合;可建立各级领导干部党建工作联席会议制度、党建工作情况季报制度、党建联络站以及实行政治指导员制度等,形成党委统一领导、组织部门牵头协调、有关部门密切配合、各党工委具体负责、新经济组织党组织全力抓好落实的“以块为主,条块结合”的组织管理体系。
    三是加强新经济组织党建工作队伍建设。新经济组织领域党的工作较为复杂,对从事党建工作人员素质的要求较高。针对非公有制企业党务工作者能力不强、办法不多的现状,要注重选配,加强培训,促进非公有制企业党务工作者技能水平提高;要改变党的工作单纯依靠专职党务干部唱“独角戏”的状况,可组建“三员”队伍,即以党政机关、事业单位“二线”人员(调研员、巡视员等)为主体的党的工作指导员队伍、以新组织青壮年党员为主体的非在编专职组织员队伍、以离退休老党员为主体的党的工作联系员队伍,深入到新经济组织开展党的工作,形成专兼职结合、老中青结合、机关企业结合的党建工作队伍。同时,采取制度性、政策性措施,努力为党务干部提供时间、经费及其他物质条件的保障。
    二、强化发展理念,围绕新经济组织的经营目标抓好党建工作
    党章规定:“中国共产党在领导社会主义事业中,必须坚持以经济建设为中心,其他各项工作都服从和服务于这个中心。”非公有制经济是国民经济的重要组成部分,非公有制经济越发展,国民经济实力就越雄厚,就越能促进经济和社会的全面发展,党执政兴国第一要务就能得到充分贯彻和落实。因此,非公企业党的基层组织建设和组织活动应围绕其生产经营目标来开展,不能离开企业经济发展这个中心来抓党建工作。党建工作应该在促进企业发展中有所作为。
    一是强化务实精神,寻找新经济组织发展与党建工作的最佳结合点。部分非公有制企业主特别是一些非党员业主,对党组织的作用认识不足,对建立党组织缺乏热情,担心党组织开展活动会占用时间、人力、财力,影响企业正常生产经营,增加成本支出;部分新建企业的私营企业主,由于企业生产经营不稳定,生存和竞争压力大,对待党建工作持有多一事不如少一事的心态。因此,党组织在开展工作时,应本着务实的精神,结合企业实际,善于找准与企业发展的最佳结合。利用执政党的优势为企业排忧解难是增强党的政治影响力的好途径。在企业内部,要积极协调企业主、经营管理者与职工的关系,努力构建和谐的劳资关系。在企业外部,要发挥自身优势,妥善处理各方面的关系,为企业创造良好的发展环境。
    二是强化服务观念,始终围绕企业发展来谋划、推进、考核党建工作。新经济组织的党建工作必须围绕服务企业发展这个中心来设计活动,把解决企业生产经营和改革中的问题作为发挥党组织和党员作用的重要舞台,把促进发展的业绩作为检验党建工作成效的根本标准。例如,可以定期组织职工代表与企业领导面对面交流、心贴心沟通,广泛开展“为企业发展建言献策”活动,为企业领导决策的科学化、民主化服务;可以围绕企业的急、难、险、重任务组织活动,把企业的中心工作作为党组织工作的重心,把生产经营中的难点作为党组织工作的重点,做到“关键岗位有党员、困难面前有党员、突击攻关有党员,党员带头学习技术、带头开拓创新、带头建功立业”, 才能在服务企业发展中使党组织实现“有为、有位、有威”的目标。
    三、强化“人本”理念,以企业文化为载体推动党建工作
    建设新经济组织的企业文化,是新的时期构建和谐社会和构筑现代文明的重要环节。企业文化对于企业树立精神支柱,增强与时俱进的主体意识,提高职工整体素质,树立企业形象,增强企业的凝聚力,推动企业发展,越来越显示出难以替代的作用,已成为企业赖以生存和发展的基石。把企业文化建设作为党建工作的切入点,发挥政治导向作用,引导和促进企业同步发展,努力构建我们党建工作的特色文化,是新经济组织在新时期发展党建工作的一个有效途径。
    一是坚持以人为本,营造团结互助的团队文化。营造团结互助的团队意识、团队精神并为企业的发展提供助力,是每个新经济组织所乐见的。党组织在这方面是可以发挥自己的政治优势,大有作为的,比如,建立工会和团支部,完善群团组织,党工团既有联合又有分工,使党员、群众、青年各有依靠,在企业内部形成较强的凝聚力和向心力;有目的地开展各种健康有益的群众性文化娱乐生活,利用网络、宣传栏等媒体,通过知识竞赛、内部培训、购赠书刊、积极参加公益活动等形式进行思想政治宣传。在活动中,积极引导员工参与、投入,把娱乐休闲和亲情互动结合起来,把团队意识和管理理念融合在活动中,寓教于乐,使大家感受到新经济组织大家庭的温暖,感受到党组织的温暖。
    二是坚持以人为本,倡导学习型的员工文化。在新经济组织工作的员工,除了少数业务及技术骨干外,大多数员工的文化素质普遍不高,这对他们的持续发展不利。党组织应积极宣传“知识改变命运”、“知识创造财富”等理念,引导员工积极参加科学文化知识和职业技能学习。可以通过学习型组织的创建,帮助和鼓励大家学习管理知识,学习专业技能,运用拓展培训、参观考察、学习讨论等多种形式开展学习和培训,营造宽松的学习氛围,提高大家的学习兴趣。可以结合自身实际开展主题创建活动。在新经济组织中,不论企业大小,都有自身的发展方向,开展有利于企业发展的主题活动,一方面可以为企业的生产经营提供动力,另一方面可以在创建活动中形成具有自身特色的企业文化。可以培养骨干党员的示范带头作用,为大家提供学习榜样。要注意把生产及技术骨干培养成党员,把党员培养成骨干,把党员技术骨干培养成管理人员。共产党员在新经济组织中“吃香”, 是顶梁柱,是排头兵,员工对共产党员羡慕,其影响力就深刻,就能得到企业主的认可;企业主认可了,就能更加支持党组织开展工作。
    二是坚持以人为本,营造和谐的劳资关系。当前,新经济组织中的职工普遍居于弱势地位,利益受侵害现象时有发生。党组织要牢固树立以人为本的理念,一方面要善于发挥在维权保障中的作用,依法维护职工利益。要积极向企业主宣传只有依靠员工才能将企业做大做强,指出“企业正道,老板厚道,员工地道,生财有道”,企业的财富是员工共同创造的,企业主要随着企业财富的增加而逐渐提高员工收入、待遇;企业主还要认真对待员工学习上的要求、有用武之地的期盼、娱乐休闲的渴望,并积极参与社会保险,为员工撑起安全伞。另一方面要善于担当协调人的角色,成为工会和职工维权的后盾,促进职工与资方进行交流并维护职工权益,运用法律政策手段推动企业成立工会、鼓励职工加入工会。积极化解新经济组织中不同利益主体间的矛盾,协调企业与社会各方面的关系,以达到“劳资两利”,形成企业、员工、社会和谐相处的良好局面。

 

 

端州区委党校

2006年11月01日

 

中共肇庆市端州区委党校 2004 电话:0758-2816110
 

 

 

<% RsList.Close() Set RsList = Nothing %>