vb编译dll问题 抓取网页的问题

[jiguoguo]

vb编译dll问题 抓取网页
我已经应用一下部件
Microsoft XML, v6.0 ————(xmlhttp)
Microsoft ActiveX Data Objects 2.8 Library (stream等)

以下是代码---我用asp调用时出现 ”需要对象“的报错
请大侠解决下--谢谢

Function testxml() 'ajax读取页面信息返回是数据流
    Set retrieval = Server.CreateObject("Microsoft.XMLHTTP")
    url = "http://www.baidu.com"
    wr.Write url
   ' wr.End
    retrieval.Open "GET", url, False
    retrieval.send
    wr.Write BytesToBstr(retrieval.wrBody, code)     '成功获取网页源码！
 End Function

Function BytesToBstr(body, code) '把数据流转换成文本
    Dim objStream
    Set objStream = New adodb.Stream
    objStream.Type = 1
    objStream.Mode = 3
    objStream.Open
    objStream.Write body
    objStream.Position = 0
    objStream.Type = 2
    objStream.Charset = code
    BytesToBstr = objStream.ReadText
    objStream.Close
    Set objStream = Nothing
End Function

[threenewbee]

Set retrieval = Server.CreateObject("Microsoft.XMLHTTP")
这个错了。不是Microsoft.XMLHTTP，你用VB的Object Viewer看下这个的ProgID。