怎样用ASP代码获取网页源代码
在使用ajax的时候,我们无法跨域获取不属于自己的服务器的数据,故引出了这么一种方法来辗转获取:
1、向本域中的网页请求数据,包含一个网址信息
2、被请求的本域的网页中的asp代码向跨域的服务器请求数据,然后返回给本域中的asp文件
代码:
1
2
3
4
5
6
7
8
9
10
11
12
|
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的说明自行编写的,为原创代码。
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。