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 = Nothing
End Function
我已经应用一下部件
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 = Nothing
End Function
这个错了。不是Microsoft.XMLHTTP,你用VB的Object Viewer看下这个的ProgID。