求助: MSXML2.XMLHTTP得到的网页代码全部是历史记录!

代码如下,本来是一个asp网页用的,我稍微改了下放vb里面,但是第一次运行能得到哦源代码,其余的都是历史记录.....麻烦帮看看

Function getHTTPPage(url)
Dim Http
Set Http = CreateObject("MSXML2.XMLHTTP")
Http.Open "GET", url, False
Http.send
If Http.ReadyState <> 4 Then
Exit Function
End If
getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")
Set Http = Nothing
If Err.Number <> 0 Then Err.Clear
End Function

Function BytesToBstr(body, Cset)
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function

Private Sub Command1_Click()
html = getHTTPPage("求助: MSXML2.XMLHTTP得到的网页代码全部是历史记录! msxml2.dll是什么 MSXML2.XMLHTTP这是什么组件 空间不支持 MSXML2.ServerXMLHTTP 组件怎么办？ Msxml2.DOMDocument和Microsoft.XMLDOM有什么不同 nokia3230驱动 ，无法安装为什么？说是无法打开键msxml2.domdocument.4.0\clsid 求助～！！ 求助！！ 求助~~~~~~~~~ 求助!!!!!!!!!!!!!!!