程序代码：

Dim stream
Set stream=server.CreateObject("adodb.stream")
stream.type=2
stream.open
stream.writetext getxmlhttp(url)
stream.position=0
stream.charset=code
stream.position=2 '请问这里为什么是2呢
strchange=stream.readtext
stream.close
Set stream=Nothing