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

 

构建核心价值体系    促进社会和谐发展

中共肇庆市端州区委党校 邓淑卿 

    江泽民同志指出:“一个民族、一个国家,如果没有自己的精神支柱, 就等于没有灵魂,就会失去凝聚力和生命力。”从革命战争年代到社会主义新中国的成立、社会主义事业的发展壮大,中华民族形成了自己独有的精神力量。改革开放后,由于多种多样社会思潮、多元价值观念的冲击,人们对一直倡导的精神支柱怀疑了、动摇了,核心价值体系呈现断层、分裂的态势。党的十六届六中全会通过的《中共中央关于构建社会主义和谐社会若干重大问题的决定》指出:建设社会主义核心价值体系,形成全民族奋发向上的精神力量和团结和睦的精神纽带,这是一个既及时又创新的重大科学命题。建设社会主义核心价值体系,是促进社会和谐发展的应有之义。
    一、建设社会主义核心价值体系,要加强国民教育,提高社会公民意识
    一个国家、一个社会,其国民素质如何,是否具有良好的公民意识,是衡量国家民族的重要标杆。我国学者李慎之曾痛切地感到我国民众公民意识之缺乏,他认为:“千差距,万差距,缺乏公民意识,是中国与先进国家最大的差距。”他提出:中国现在要赶上先进国家,要实行现代化,最重要是要培养人的公民意识,使在中国大地上因循守旧生活了几千年的中国人成为有现代意识的公民。当前,社会上存在不和谐的原因,很大程度也在于公民意识的培养不够,缺乏“我为人人,人人为我”的精神风貌。这些原因存在于社会体制当中,也存在于教育环节中,需要我们分门别类的去挖掘,去改善,有针对性地进行调节。只有公民意识提高了,公民的言行聚集有序,社会的公序良言得到宣扬,社会主义核心价值体系的建设才会有强大的社会基础。
要加强国民教育,提高公民意识,办法在于实行公民教育,懂得什么是国家,什么是政府,什么是个人与国家的关系,懂得个人在这种关系中的地位和应有的权利和义务。笔者认为,首先,要进行国情教育。对公民进行100多年中国历史教育,中华民族优秀传统教育,社会主义必然性教育,经济社会文化发展现状的教育等,实事求是地引导他们辩证地想问题,正确地看国情。提高国民对祖国的认同感与归属感,增强社会发展的资源意识、生态忧患意识、区域差异意识、绿色经济意识、和谐意识等,从而对国家付出应有的承担和判断力。其次,要进行社会公德教育。《公民道德建设实施纲要》是进行公民社会公德教育的最好方法,《纲要》提出的“爱国守法、明礼诚信、团结友善、勤俭自强、敬业奉献”20个字的基本道德规范,既包含中华民族传统美德,又弘扬了时代精神,体现了时代特色。要从家庭、学校、机关、企事业单位和社会“四个教育环节”着手, 特别要重视对青少年进行社会公德教育,使之从小就“学做现代化国家的‘公民’。从不随地吐痰、不乱抛果皮纸屑、不闯红灯、坐公交车要礼让老弱妇孺到具有良好公德心的现代公民。第三,要进行法制意识教育。法治是社会主义核心价值体系必不可少的关键内容之一,也是构建和谐社会的基础工程和基本保障。从普法教育入手,宣扬和谐社会的品格,就是法治社会的品格,和谐社会的秩序,就是法治社会的秩序,在社会上营造依法办事、公平公正的良好氛围;尊重公民以平等的身份参与国家事务的管理,维护自己的合法利益。

    二、建设社会主义核心价值体系,要加强理想信念教育,增强社会主义的信念和信心
    理想信念是一个民族、一个国家的精神支柱。崇高的理想给人以明确的奋斗目标、正确的人生方向,使一个民族具有强大的向心力和凝聚力,邓小平同志把理想信念教育作为社会主义精神文明建设的灵魂,指出:“为什么我们过去能在非常困难的情况下奋斗出来,战胜千难万险使革命胜利呢?就是因为我们有理想,有马克思主义信念,有共产主义信念”“现在中国提出“四有”,有理想、有道德、有文化、有纪律,其中我们最强调的,是有理想。
要加强社会主义理想信念教育,构建社会主义核心价值体系,首先,
要着眼于坚定马克思主义信仰。对马克思主义的信仰问题,是建设社会主义价值体系、巩固思想道德基础的首要问题。科学的信仰是以科学为前提的。马克思主义是迄今为止关于人类历史发展规律的最严整最有生命力的科学。中华民族能从水深火热中解放出来,得益于马克思主义传入中国,得益于我们能把中国革命的具体实践与马列主义的普遍真理相结合,走上中国特色社会主义的科学发展之路。可以这样说,没有马克思主义的科学引导,也就没有中国社会主义革命和建设的胜利。一百多年来,没有哪一种理论、学说能像马克思主义那样保持勃勃生机,对推动社会进步起那样巨大的作用,造成那样深远的影响。其次,要认识社会主义发展的历史趋势。当前,有些人对改革开放进程中所采取的方针政策认识不深、理解不透,觉得是搞资本主义那一套,是走回头路。在社会主义核心价值体系建设中,马克思主义为我们提供了正确的世界观和方法论,提供了正确认识世界和改造世界的强大思想武器。用马克思主义的立场、观点、方法认识经济社会发展大势,理解党所采取的改革开放和其他一切方针政策,是为了贯彻落实“三个代表”重要思想,是为了发展社会主义,将来实现共产主义;认识我国能成为同期世界上发展最快的国家,经受住了来自政治领域、经济领域和自然界各种风险的严峻考验,使呈现出经济持续增长、社会安定团结、精神文明不断进步的蓬勃生机,都是因为我们洞悉社会历史发展规律,坚定建设有中国特色社会主义的信念。

    三、建设社会主义核心价值体系,要引领社会思潮,最大限度地形成社会思想共识
    我们正处在一个思想大活跃、观念大碰撞、文化大交融的时代,先进文化、有益文化、落后文化和腐朽文化同时并存,正确思想和错误思想、主流意识形态和非主流意识形态相互交织。要在这样的条件下发展先进文化、建设和谐文化,必须努力构建具有广泛感召力的社会主义核心价值体系,用以引领和整合多样化的思想意识和社会思潮,使先进文化得到发展,健康文化得到支持,落后文化得到改造,腐朽文化得到抵制,最大限度地形成社会思想共识。 要引领社会思潮,最大限度地形成社会思想共识首先,要确立主导的价值取向。随着经济体制的调整,带来了利益结构的变化,利益主体趋于多元化,形成了社会多元的价值取向。在核心价值体系的建设中,必须确立一种占主导地位的价值观念即主导价值取向,以主流的价值取向引导支流的价值取向,统一人们的思想和行为。比如,弘扬我国传统文化中有着非常丰富的关于融合、和谐、和睦、平和等有利于社会和谐的内容,形成符合传统美德和时代精神的道德规范和行为规范,发扬艰苦奋斗精神,提倡勤俭节约,反对拜金主义、享乐主义、极端个人主义。又如,加强政务诚信、商务诚信、社会诚信建设,增强全社会诚实守信的意识。这些与社会发展进步相一致的主导价值取向,既富有时代特征又增加社会价值的认同感,能进一步巩固构建和谐社会的思想道德基础。其次,尊重差异,在包容多样中增进思想共识。对外开放的条件下,人们的价值取向呈现以经济为中心的社会多元化趋势。比如,对于企业来说,不但有多种所有制模式,而且在经营管理与分配模式上也是多样化的;对于市场竞争中的个人来说,利益也会随着自己的地位、职业、工作方式、贡献分配方式等得以体现,需要依靠自己的收入和自身价值的实现而得到不同程度的满足。人们对社会的认同感不一样,人生观、世界观的价值取向必然呈现出多元化、多层次化。正因为如此,在把握社会主义先进文化的前进方向这一前提下,尊重差异,包容多样,能促进人们在社会实践活动中突破陈规,大胆创新,增强社会的创造活力,最大限度地形成共识、凝聚力量,齐心协力建设中国特色社会主义。第三,加强对各种社会思潮的有效疏导。由于我国正处于改革发展的关键时期,既有正确的、进步的、积极的、向上的社会思潮,也有错误的、落后的、消极的、保守的社会思潮;经济全球化及信息网络化的迅猛发展,也使得社会舆论环境和舆论格局发生深刻变化。加强对各种社会思潮的有效疏导,可以利用新闻出版、广播影视、文学艺术、社会科学等途径,坚持正确导向,唱响主旋律,导向和调适人们的言行,减少社会冲突、维护社会稳定,提高对社会思潮的预判能力,最大限度地防止错误思潮的形成,为改革发展稳定营造良好思想舆论氛围,建构起社会主义主导价值观体系。
    当前,我市、区提出要实现快速发展、跨越发展,加快推进工业化和城镇化、加快调整经济结构,生产方式和生活节奏急剧变化,人与人之间、人与社会之间同样会产生各种各样的新矛盾、新问题。在这种深刻的社会变动中,构建社会主义核心价值体系,端正发展认识、化解社会矛盾,促进社会和谐发展,迫切地摆在党和政府面前,需要广大宣传工作者及理论工作者大力宣传和深入研究。

 

端州区委党校

2007年06月15日

 

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

 

 

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