Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary=1
FileName=Request.QueryString("FileName")
FilePath=Server.MapPath(FileName)
if FileName="" Then
Response.Write "無效文件名."
Response.End
End if
' 下面是不希望下載的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保護文件,不能下載."
Response.End
End Select
' 下載這個文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile FilePath
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
Asp直接下載而不是在瀏覽器打開函數
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.