xmlhttp下载远程数据并输出到浏览器

利用xmlhttp对象获取远程的数据，然后用二进制输出到客户浏览器，让客户下载数据,此例从某一远程服务器获取一个压缩包，并且输出到浏览器提供客户下载。

　　代码如下:

<%Response.Buffer=True 
Dim xmlhttp,xml
Set xml=Server.CreateObject("Microsoft.xmlhttp")'创建对象   
xml.Open "GET","",False'设置对象
xml.Send'发送请求  
Response.AddHeader "Content-Disposition","attachment;filename=文件名"'添加头给这个文件  
Response.ContentType="application/zip"'设置输出类型  
Response.BinaryWrite xml.responseBody'输出二进制到浏览器
Set xml=Nothing%>