問題
使用 Responsed下載資料到Client端
解決方法
Sub downloadFile(ByVal ServerPath As String)
'取得檔案在Server端的實體位置
'取得檔案資訊
Dim FilePath As String = Server.MapPath(virtualPath)
Dim TargetFile As New System.IO.FileInfo(FilePath)
' 清除暫存檔
Response.Clear()
' 顯示檔名敘述
Response.AddHeader("Content-Disposition", "attachment; filename=" + _TargetFile.Name)
' 顯示下載資訊
Response.AddHeader("Content-Length", TargetFile.Length.ToString())
' 設定檔案只能下載
Response.ContentType = "application/octet-stream"
' 傳送檔案
Response.WriteFile(TargetFile.FullName)
' 停止傳送
Response.End()
End Sub
沒有留言:
張貼留言