xml抓取繁体乱码正常显示的代码

例子如下：当抓取xml文件的时候也有效：
.Charset = "utf-8"
.Position = 2
用来从第二个字节开始抓取。。

 1   
 2on error resume next   
 3  
 4Const adTypeBinary = 1   
 5Const adTypeText = 2   
 6Function Bytes2bStr(vin)   
 7Dim BytesStream,StringReturn   
 8Set BytesStream = Server.CreateObject("ADODB.Stream")   
 9With BytesStream   
10.Type = adTypeText   
11.Open   
12.WriteText vin 
13
14.Position = 0   
15.Charset = "utf-8"   
16.Position = 2   
17StringReturn = .ReadText   
18.close   
19End With   
20Set BytesStream = Nothing 
21
22Bytes2bStr = StringReturn 
23
24End Function 
25
26  
27id=request("id")   
28url=" http://odds.190bp.com/history_3star.aspx?ID="&id 
29
30set oSend=createobject("Microsoft.XMLHTTP")   
31SourceCode = oSend.open ("GET",url,false)   
32oSend.send() 
33
34  
35mj_code = bytes2BSTR(oSend.responseBody)   
36  
37if err.number=0 then 
38
39start=Instr(mj_code,"

<html>")
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,"<img 0""="" betjoy46860.gif""="" border="" client="" images="" src=""/>","")
response.write mj_top
response.write "</html>

1"   
2else   
3wscript.echo err.description   
4end if