コメント |
たぶん IIS4 だけでしょうが。
@DIV
<%
Response.ContentType = "application/octet-stream"
Response.Addheader "Content-Disposition", "attachment; filename=" & Request.QueryString("fname") & ".exe"
Response.ExpiresAbsolute=#May 31,2000 23:59:59#
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.Open
Stream.Type = 1 ' StreamTypeEnum の adTypeBinary
Stream.LoadFromFile Server.MapPath( Request.QueryString("fname") & ".exe" )
Response.BinaryWrite Stream.Read
Stream.Close
Set Stream = Nothing
%>
@END
|