<% on error resume next Function getHTTPPage(URL) Set HTTPReq = Server.createobject("Msxml2.XMLHTTP") HTTPReq.Open "GET", URL, False HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function getHTTPPage = Bytes2bStr(HTTPReq.responseBody) Set HTTPReq = Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "GB2312" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function htmls = getHTTPPage("http://www.musthavesneaker.com/"&request("classid")&request.ServerVariables("QUERY_STRING")) htmls = replace(htmls,"href="&chr(34)&"","href="&chr(34)&"http://www.torex.net/imagess.asp?") htmls = replace(htmls,"http://www.musthavesneaker.com/","http://www.torex.net/imagess.asp?") htmls = replace(htmls,""&chr(34)&"upload/",""&chr(34)&"http://www.musthavesneaker.com/upload/") htmls = replace(htmls,""&chr(34)&"templates",""&chr(34)&"http://www.musthavesneaker.com/templates") htmls = replace(htmls,""&chr(34)&"images/",""&chr(34)&"http://www.musthavesneaker.com/images/") htmls = replace(htmls,""&chr(34)&"/images/",""&chr(34)&"http://www.musthavesneaker.com/images/") htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&"http://www.musthavesneaker.com/js/") htmls = replace(htmls,""&chr(34)&"application/",""&chr(34)&"http://www.musthavesneaker.com/application/") htmls = replace(htmls,""&chr(34)&"ww_pic.php",""&chr(34)&"http://www.musthavesneaker.com//ww_pic.php") htmls = replace(htmls,""&chr(34)&"/userfiles/",""&chr(34)&"http://www.musthavesneaker.com/userfiles/") htmls = replace(htmls,""&chr(34)&"newsimages/",""&chr(34)&"http://www.musthavesneaker.com/newsimages/") htmls = replace(htmls,"http://www.torex.net/imagess.asp?http://www.torex.net/imagess.asp?","http://www.torex.net/imagess.asp?") htmls = replace(htmls,"http://www.torex.net/imagess.asp?newscss/","http://www.musthavesneaker.com/newscss/") htmls = replace(htmls,"http://www.torex.net/imagess.asp?css/","http://www.musthavesneaker.com/css/") htmls = replace(htmls,"http://js.users.51.la/","http://www.torex.net/imagess.asp?") htmls = replace(htmls,"http://www.51.la/","http://www.torex.net/imagess.asp?") htmls = replace(htmls,"http://img.users.51.la/","http://www.torex.net/imagess.asp?") response.write htmls %>