出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5029] ファイルのダウンロード
投稿者：アドブさん 2005/05/27 11:10:00
初めまして、アドブと申します。

初心者の質問で申し訳ないのですが、ファイルのダウンロード方法について教えて下さい。

ファイルをダウンロードするASPを作成して
リンクでパラメータを渡し、ダウンロードダイアログを表示したいのですが、何故か画像がIE上に表示されてしまいます。

色々調べて見たのですが、初心者の私には原因を見つける事ができませんでした。

分かる方がいらっしゃればご教授の方宜しくお願い致します。

以下ソースです。
===========================================================
(呼出元では VBScript でデータを抽出し対象分の
Formタグを作成(JavaScriptも同様)し、複数ファイルの一括ダウンロードを行うのが目的です。)
【呼出元】
:
:
<SCRIPT type="text/javascript">
<!--
function btnDownLoadClick() {
document.frmAtt1.submit();
document.frmAtt2.submit();
}
//-->
</SCRIPT>
:
:
<Input type="button" name"test" Value="保存テスト" OnClick="btnDownLoadClick()">
:
:
<FORM method="POST" action="Download.asp?FileName=01.gif" name="frmAtt1" target="_blank"></FORM>
<FORM method="POST" action="Download.asp?FileName=02.gif" name="frmAtt2" target="_blank"></FORM>
【呼出先(Download.asp)】
<%@ language="VBScript"%>
<% Option Explicit %>
<% Response.Buffer = true %>
<% Response.Expires = 0 %>
<!--#include file="../include/Dualchives.inc"-->
<%
Dim fname

fname = Request.QueryString("FileName")

Response.Clear()
Response.AddHeader "Content-Disposition ","attachment;filename=" & fname
Response.ContentType = "image/gif"
'Response.ContentType = "application/octet-stream" これも結果は同じでした。

dim objStream
set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
'//ファイルを読み込みダウンロードを行う
objStream.LoadFromFile "C:\Download" & fname
Response.BinaryWrite objStream.Read
'//オブジェクトの解放
objStream.Close
set objStream = Nothing
response.end
===========================================================
ソース終了

クライアント環境
OS:WinXP SP2

サーバー環境
OS:Win2000Server SP4
DB:SQLServer
ファイルのダウンロード 　 アドブさん [2005/05/27 11:10:00] [5029]
　 別の問題が・・・ 　 アドブさん [2005/05/27 13:26:41] [5031]
　 Re:ファイルのダウンロード 　 morさん [2005/06/01 19:19:25] [5037]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ