默認點擊下載pdf等文件而不是在瀏覽器中打開

<%

Dim Stream

Dim Contents

Dim FileName

Dim FileExt

Const adTypeBinary = 1

FileName = Request.QueryString("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 Server.MapPath(FileName)

While Not Stream.EOS

Response.BinaryWrite Stream.Read(1024 * 64)

Wend

Stream.Close

Set Stream = Nothing

Response.Flush

Response.End

%>

使用：Download.asp?FileName=/Files/MY.doc

把你的DOC文件放到根目錄Files下，你也可以放到其它地方了。