ブラウザで開く代わりに、クリックしてPDFやその他のファイルをダウンロードします

<％

薄暗いストリーム

薄暗い内容

Dim Filename

dim fileext

const adtypebinary = 1

filename = request.querystring（ "filename"）

filename = "" thenの場合

Response.Write「Invfortファイル名」。

Response.End

ifを終了します

'以下は私がダウンロードしたくないファイルです

filext = mid（filename、instrrev（filename、 "。"）1）

select caseucase（fileext）

ケース「ASP」、「ASA」、「ASPX」、「ASAX」、「MDB」

Response.Write「保護されたファイルは、ダウンロードできません。」

Response.End

[選択]を終了します

'このファイルをダウンロードしてください

Response.Clear

Response.ContentType = "Application/Octet-Stream"

Response.Addheader "Content-Disposition"、 "attachment; filename ="＆filename

SET STREEM = server.createObject（ "adodb.stream"）

stream.type = adtypebinary

stream.open

stream.loadfromfile server.mappath（filename）

strame.eosではありません

Response.binarywrite stream.read（1024 * 64）

ウェンド

stream.close

Set Stream = Nothing

Response.Flush

Response.End

％>

使用：download.asp filename =/files/my.doc

docファイルをルートディレクトリファイルに配置すると、他の場所に配置することもできます。