ASP程序网站建设如何采集其他网站上的内容？邯郸县一客户在用ASP程序建设好网站后，嫌自己更新网站，提出一个新要求，要直接采集目标站上的数据，达到更新的效果，这可愁坏了我们的网站建设人员，通常难题下，就要找百度了，网上的说法很多，但试过好多次页面不行文件出错，怎么办， ASP程序网站建设如何采集其他网站上的内容的功能实现不了给客户交不了差啊，差没多久弄的好几天头都大了，不行，放弃吧，心里说。这样一来老客户可能要失去了，于是，我们的网站建设师又尝试第二次，又弄几天了，不断的尝试，修改，以前没弄过采集，代码也有点看不大懂，这样硬着头皮又弄好几天，费了九看牛二虎之力总算功夫不负有心人，突破了，可以从其他站采集到内容了。高兴之余给大家分享下。
Dim Http,HttpUrl
Dim Objstream
HttpUrl = "目标网址"
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Response.Write "获取数据失败"
End if
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write Http.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "utf-8"
BytesToBstr = objstream.ReadText
Response.Write BytesToBstr
