如何实现在点击图片下载链接时,直接弹出一个下载的窗口

最新推荐文章于 2024-04-07 22:59:13 发布

weixin_30882895

最新推荐文章于 2024-04-07 22:59:13 发布

阅读量481

点赞数

CC 4.0 BY-SA版权

文章标签：操作系统

原文链接：http://www.cnblogs.com/291099657/articles/1235952.html

本文介绍了一个使用ASP实现的文件下载方案，通过Download.asp文件来控制文件的下载过程，并且设置了安全措施来防止特定类型的文件被下载。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ASP解决方案：

文件名:Download.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
%>