The example is as follows: It is also valid when grabbing the XML file: .Charset = "UTF-8" .position = 2 is used to start from the second byte. . <% On error resume next Const adTypeBinary = 1Const adTypeText = 2Function Bytes2bStr (vin) Dim BytesStream, StringReturnSet BytesStream = Server.CreateObject ( "ADODB.Stream") With BytesStream.Type = adTypeText.Open.WriteText vin
.Position = 0.charset = "uTF-8" .position = 2StringReturn = .readText.closend withset bytesstream = Nothing
BYTES2BSTR = StringReturn
END FUNCTION
ID = Request ("id") URL = "http://odds.190bp.com/history_3star.aspx?id=" & id
SET OSEND = CreateObject ("Microsoft.xmlhttp") Sourcecode = Osend.open ("Get", URL, FALSE OSEND.SEND ()
MJ_CODE = BYTES2BSTR (Osend.Responsebody) if err.number = 0 THEN
START = INSTR (MJ_CODE, "") over = INSTR (MJ_CODE, "") MJ_TOP = MID (MJ_CODE, START, OVER-START) MJ_TOP = Replace (MJ_TOP , "/ PNG /", "http://odds.190bp.com//png/") MJ_TOP = Replace (MJ_TOP, ", "") Response.write mj_top response.write " " else wscript.echo err.description endiff %>
