程序代码:
<%
---------------------------------------------------------------------------
欧阳东杰 创作 (转载请保留此信息)
www.cnsxml.com
QQ:2596812 MSN:xzskyweb@hotmail.com
欢迎访问 http://www.cnsxml.com/ 获取更多的XML咨讯
--------------------------------------------------------------------------
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP") '创建对象
xml.Open "GET","http://www.4guysfromrolla.com/webtech/code/mitchell-pres.zip",False ' '设置对象,具体xmlhttp详细使用方法请见:http://www.cnsxml.com/blogview.asp?logID=273 《XMLHTTP 对象及其方法》一文
xml.Send '发送请求
Response.AddHeader "Content-Disposition", "attachment;filename=mitchell-pres.zip" '添加头给这个文件
Response.ContentType = "application/zip" '设置输出类型
Response.BinaryWrite xml.responseBody ’输出二进制到浏览器
Set xml = Nothing
%>
博客给出一段程序代码,通过XMLHTTP对象从服务器获取文件并实现下载功能。代码创建XMLHTTP对象,设置请求,发送请求,添加文件头,设置输出类型,最后将二进制内容输出到浏览器。
824

被折叠的 条评论
为什么被折叠?



