如何使用修改映射的方法来达成点击下载后是保存文件到本地而不是直接在IE中打开？

现在有2种方法，一个是修改mime映射， 另一个是如下方法， 发现第2种不行， 因此求修改映射法，谢谢。
http://topic.csdn.net/u/20110827/14/a3a2b5ca-9593-42cd-a387-070db9abebab.html?seed=1752063745&r=75275727#r_75275727
该贴另有分可给。


第2种方法如下：
<a href=50.html>下载</a>
50.asp 中访问数据库获得文件名，然后下载。
经测试 文件在2MB 左右， 能正常下载， 如文件在5mb多，就出现错误：

“您想打开或保存此文件吗？

名称：50_html
类型：html 文档,5MB ”

奇怪这下载怎么变成 50_html 了？？

=====================================================

url=server.MapPath("/") & "/" & vdfilename

dim fso
set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(url) then

Response.Buffer = true
Response.Clear
Dim fl,flsize,flName
Dim objStream

Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
Set objStream = Server.CreateObject( "ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url

Response.AddHeader "Content-Disposition", "attachment; filename= " & flName
Response.AddHeader "Content-Length", flsize
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
Response.Flush
response.Clear()
objStream.Close
Set objStream = Nothing
end if

解决！

原来每次大于4096KB的文件要分段输出

if flsize<4194304 then
Response.BinaryWrite objStream.Read
Response.Flush
else
Do While Not objStream.EOS
Contents = objStream.Read (4096) '每次读取4096KB 大于4096KB的文件要分段输出
Response.BinaryWrite Contents
Response.Flush
Loop
end if

第一个回复的给分啦！！ 来抢啊