| 如何实现点击TXT、JPG等文件不是打开而是另存为？ |
|
| 添加日期：2007-1-8 9:14:04 [大 中 小] |
|
想点击链接无条件提示是否下载，而不是直接打开（包括txt/jpg等文件）
在论坛上找了找没找到解决方案，现在搜到了，感觉还比较好用，拿过来大家分享分享。
只是下载名不能改变，永远只能为download
文件名ownload.asp
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>
使用：Download.asp?FileName=/Files/MY.gif
把你的文件放到根目录Files下，你也可以放到其它地方了。
如：
<A HREF="Download.asp?FileName=/Files/MY.gif">点击下载WORD文档</A> |
|
| 出处：论坛转载 作者：佚名 点击： | |
|
