强制下载

<%@language="VBscript"%>
<%Response.Expires=0%>
<%
FileName=Request.QueryString("FileName")

if IsNull(FileName) or FileName="" then
 Response.Write "对不起！该链接不存在或已删除！"
else
 '强制下载
 Dim Stream,Contents,File_Path,FileName

'''file_path为下载文件所在目录
 File_Path="download/"

 Response.ContentType="application/octet-stream"
''设置下载保存的文件名，这里用了filename
 Response.AddHeader "content-disposition", "attachment; filename=" & FileName

 Set Stream=Server.CreateObject("ADODB.Stream")
 Stream.Open
  Stream.LoadFromFile Server.MapPath(File_Path & FileName)
  Contents=Stream.ReadText
  Response.BinaryWrite Contents
 Stream.Close
 Set Stream=Nothing
 Response.End
end if
%>