出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
ワードやエクセルをダウンロードするには 　 NEWさん [2002/08/07 17:02:59] [2436]
　 Re:ワードやエクセルをダウンロードするには 　 北岳さん [2002/08/12 10:09:01] [2464]
[2436] ワードやエクセルをダウンロードするには
投稿者：NEWさん 2002/08/07 17:02:59

再び、教えてください。
ワード（拡張子:DOC）
やエクセル（拡張子:xls）
ファイルをWebサーバ上に置き
ASPで作成したフォーム上のボタン
でダウンロードさせたいのですが
ファイルを表示されてしまいます。
ダウンロードのダイアログボックス
を表示するにはどうしたらよいので
しょうか？
教えてください。
宜しくお願い致します。
[2464] Re:ワードやエクセルをダウンロードするには
投稿者：北岳さん 2002/08/12 10:09:01
サーバでBASP21を使用します。
　
---------/alias/1.htm--------------
<html><body bgcolor="beige">
<p>エクセル:<input type="button" value="OPEN" onClick="JavaScript:location.href='/aspfold/excel.asp'">
<p>ワード:<input type="button" value="OPEN" onClick="JavaScript:location.href='/aspfold/word.asp'">
</body></html>
　
--------/aspfold/excel.asp-----------
<%
filnam="/alias2/123.xls"
Set bobj = Server.CreateObject("basp21")
barray = bobj.BinaryRead(Server.MapPath(filnam))
Response.AddHeader "Content-Disposition" , " attachment; filename=789.xls"
Response.ContentType = "application/x-binary"
Response.BinaryWrite barray
%>
　
--------/aspfold/word.asp-----------
<%
filnam="/alias3/abc.doc"
Set bobj = Server.CreateObject("basp21")
barray = bobj.BinaryRead(Server.MapPath(filnam))
Response.AddHeader "Content-Disposition" , " attachment; filename=xyz.doc"
Response.ContentType = "application/x-binary"
Response.BinaryWrite barray
%>

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