ASP代码获取网页源代码

浏览数：24 / 时间：2015年06月09日

在使用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的说明自行编写的，为原创代码。

有问题欢迎提问

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

ASP代码获取网页源代码