將下邊的檔案儲存為Download.asp就可以了，然後根據需要傳要下載的檔案過來就可以了。格式：Download.asp?FileName=要下載的檔案名
複製代碼代碼如下:
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