如何下载文件时在客户端不打开，而是弹出保存

Response.buffer = TRUE
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename="& 文件名　&""

''''  读取文件，以流的形式返回到Response中
Set objStream = Server.CreateObject("ADODB.Stream")    
objStream.Open
objStream.Type=1
objStream.LoadFromFile server.MapPath(文件名)
Response.BinaryWrite(objStream.Read()) 
objStream.Close
Set objStream = Nothing    
Response.End

(本代码转自:http://www.cndiy8.com/ask26/how181311.htm)