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

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

VB code

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 FunctionFunction 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 = NothingEnd Function

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