ASP代码获取网页源代码

2018-09-06 10:43

阅读:596

  在使用ajax的时候,我们无法跨域获取不属于自己的服务器的数据,故引出了这么一种方法来辗转获取:

  1、向本域中的网页请求数据,包含一个网址信息

  2、被请求的本域的网页中的asp代码向跨域的服务器请求数据,然后返回给本域中的asp文件

  

  代码:

  Function getHtml(url) 以HTML格式备份 Set xh = CreateObject(Microsoft.XMLHTTP) xh.Open GET,url,0 xh.Send() Set MyStream=CreateObject(Adodb.Stream) MyStream.Type = 2 MyStream.Open MyStream.WriteText xh.responseText MyStream.Position = 0 getHtml=MyStream.ReadText MyStream.Close End Function
以上的源码是综合网上关于Microsoft.XMLHTTP对象的说明和Adodb.Stream的说明自行编写的,为原创代码。

  

  有问题欢迎提问


评论


亲,登录后才可以留言!