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