利用xmlhttp對像獲取遠程的數據,然後用二進制輸出到客戶瀏覽器,讓客戶下載數據,此例從某一遠程服務器獲取一個壓縮包,並且輸出到瀏覽器提供客戶下載.
程序代碼:
<%
---------------------------------------------------------------------------
歐陽東傑 創作 (轉載請保留此信息)
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
%>
|
|