vb编译dll问题 抓取网页的问题
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 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