首頁 > 開發者 > ASP

File Download by ASP Stream檔案流下載功能

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標題文檔</title>
</head>

<body>

<%
Dim  fullName, s, fs, fl, Filesize, Filename, currentPath, relativePath

'取得檔案名稱參數，可以是表單提交或者查詢字串
fullName = Request.QueryString("down")
If fullName = "" Then Call ShowMessage("對不起，檔案名稱為空白！")

'轉為絕對路徑
'該門課件的根路徑
currentPath = Request.ServerVariables("PATH_TRANSLATED")
currentPath = Replace(currentPath,"script/download.asp","")
'網站子路徑，為空白代表下載檔案直接放在根路徑，可以添加子路徑如"down/"
relativePath = "stream_db/"
'下載檔案的完全路徑
Filename = currentPath&relativePath&fullName

'檢查檔案是否存在
Set fs = Server.CreateObject("Scripting.FileSystemObject")
'If Not fs.FileExists(Filename) Then Call ShowMessage("對不起，指定檔案不存在！")

'取得檔案大小，單位是位元組
Set fl = fs.GetFile(Filename)
Filesize = fl.Size

'銷毀FSO對象
Set fl = Nothing
Set fs = Nothing

'清理緩衝
Response.Buffer = True
Response.Clear

'建立Stream對象
Set s = Server.CreateObject("ADODB.Stream")
s.Open

'設定為二進位方式
s.Type = 1

'容錯
On Error Resume Next

'裝載檔案
s.LoadFromFile (Filename)
If Err Then Call ShowMessage("裝載指定檔案出現未知錯誤！")

'向瀏覽器輸出頭部
Response.AddHeader "Content-Disposition", "attachment; filename="&fullName
Response.AddHeader "Content-Length",Filesize
'Response.CharSet="UTF-8"
Response.ContentType = "application/octet-stream"

'分段向瀏覽器輸出檔案
Do While Not s.EOS
 Contents = s.Read (4096) '每次讀取4096KB
 Response.BinaryWrite Contents
 Response.Flush
Loop

'一次性向瀏覽器輸出檔案
'Response.BinaryWrite s.Read
'Response.Flush

'銷毀對象
s.Close: Set s = Nothing

'在本頁輸出提示資訊
Sub ShowMessage(msg)
  Response.Write "<br><div align='center'><div style='color:red; font-weight:bold; text-align:center; border:1px solid #CCCCCC; 'background-color:#E8E8E8; padding:4px 2px 2px; width:300px; font-size:12px'>" & msg & "</div></div><br>"
  Response.End
End Sub
%>

</body>
</html>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More