<%@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 %> 中共肇庆市端州区委党校
 
 

 

加强社区党建工作 促进和谐社区建设

中共肇庆市端州区委党校 李文光

    胡锦涛总书记指出:构建社会主义和谐社会,要加强城市基层自治组织建设,从建设和谐社区入手。加强社区党建工作,促进和谐社区建设,是加强党的先进性建设和执政能力建设,构建社会主义和谐社会的具体体现。
    社区党组织是社区工作的领导核心,是凝聚社区力量、开展社区建设的重要组织保证。建设和谐社区必须抓住社区党建工作这个龙头。然而目前社区党建与和谐社区建设普遍存在着三个不相适应的问题,即部分同志的思想认识和工作方式,同亟待加强的社区党建工作与和谐社区建设的形势不相适应;现有的街道社区党务工作力量和工作者素质,同日益加重的社区党建与和谐社区建设的任务不相适应;社区现有的工作机制和工作条件,同进一步抓好社区党建与和谐社区建设的要求不相适应。针对这些问题,我们必须从健全社区党建工作体制入手,以服务群众为重点,紧紧围绕“工作思路抓创新,基础工作抓规范,重点工作抓突破,工作机制抓完善”的社区党建工作总体思路,不断加强社区党建工作,促进和谐社区建设。
    一、抓好社区党建组织网络建设,为和谐社区建设提供组织保证。要按照“纵向到底、横向到边”的党建组织网络的要求,构筑“三纵三横”社区党建网络平台,“三纵”即市区党委、街道党工委、社区党支部纵向到底层面;“三横”即市区党委、街道、社区分别成立三级横向联系组织,明确城区街道、社区以及驻社区单位的创建目标,把任务落实到单位,具体到人,形成市区党委领导亲自抓、街道党工委书记具体抓、驻区单位协同抓、社区党支部书记精心抓的工作格局,形成共同建设和谐社区的合力。同时要坚持组建、调整社区与组建健全社区党组织同步的工作思路,努力做到“有党组织的联系起来,无党组织的建设起来,对流动党员管理起来”,不断扩大社区党建工作覆盖面,从而实现哪里有群众哪里就有党的工作,哪里有党员哪里就有党的组织,哪里有党组织哪里就有健全的组织生活和坚强的战斗力。充分发挥基层党组织在建设和谐社区中的核心作用,有效扩大党在城市的群众基础,为建设和谐社区提供坚强的组织保证。
    二、建设一支高素质的社区党员干部队伍,为建设和谐社区提供人才支持。建设和谐社区的新形势新任务要求我们必须进一步加强社区党员干部队伍的建设。因此,针对目前社区干部年龄偏大、素质不高、人员不足、党员偏少、工作任务繁重的现状,我们要充实街道、社区一线工作力量,选聘年轻优秀干部到社区工作,使社区干部达到“三高一优”,即文化程度高、党员比例高、自身素质高、年龄结构优化,从而增强社区党员干部队伍活力。同时要狠抓社区党员干部的学习培训工作,围绕创建和谐社区各个阶段的工作重点开展针对性培训,提高社区干部的理论素质、工作能力、业务水平,不断提高建设和谐社区的综合能力和整体素质,为建设和谐社区提供人才支持。
    三、构筑社区党员活动平台,发挥党员建设和谐社区的先锋模范作用。建设和谐社区必须发挥社区党员的先锋模范作用。因此,要积极探索社区党员教育管理的新机制,对骨干党员要加强功能管理,突出模范带动作用;对流动党员要加强信息管理,突出管好管活;对失业党员要加强帮扶管理,突出再就业的培训和推荐;对老龄党员要加强健康娱乐管理,突出老有所为、老有所乐的特点。这样,针对不同特征满足不同需求,有效地解决党组织工作活力不强的问题,使党员的先进性在不同的岗位、不同的群体都能得到较好体现,都能为建设和谐社区作出相应的贡献。在加强“一课三会”、党日活动等传统教育活动基础上,把党员教育活动融入各种便民、利民、助民活动中,使其在社区受到教育,发挥作用。可以通过开展“一个党员一面旗,共建和谐新社区”的活动,组织党员志愿者队伍,发动党员带头担任社区联络员及楼长、院长,成立社区“关工”小组,义务组织治安巡逻队等,使居住在社区内的在职党员、离退休党员和流动党员都积极参与到和谐社区的建设中来。如肇庆市端州区城北街道党工委为进一步推进社区党建工作,聘请了15名党员为社区党建联络员,具体负责社区党建联络工作,他们不计报酬、恪尽职守,充分发挥共产党员的先锋模范作用,积极协助社区党支部开展各项工作,在党和群众之间架起了一座“连心桥”,赢得了社区居民的广泛赞誉,促进了和谐社区建设。
    四、做好服务居民工作,把社区党建与和谐社会建设落到实处。社区工作可以说是千头万绪,但说到底是要为居民服务,要造福于居民。因此社区党建工作与建设和谐社区都必须坚持以人为本,把服务居民群众作为社区党建和建设和谐社区的宗旨,把涉及到居民切身利益和安危冷暖的一件件小事作为大事来抓,解决好群众最现实、最关心、最直接的问题。为此,社区党组织应牢牢把握“三个面向”:面向社区老、弱、病、残和下岗职工等弱势群体开展优抚服务;面向居民群众日益提高的精神需求开展丰富多彩的社区文化服务活动;面向社区不断发展变化的人文环境和个性品位开展相应的特色服务。同时要搞好“三个结合”:把社区党建与再就业工程相结合,与帮贫助困相结合,与社区精神文明建设相结合。总之,社区党建要积极寻找务实的载体,努力拓宽党建领域,针对居民关注的热点、难点、焦点开展服务,把服务居民的实事办好、好事办实,以此推进社区党建工作,促进和谐社区建设。

 

端州区委党校

2006年11月03日

 

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

 

 

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