ASP文件下载代码

最新推荐文章于 2017-02-28 15:41:06 发布

mh_rock

最新推荐文章于 2017-02-28 15:41:06 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP 文章标签： asp stream

本文链接：https://blog.youkuaiyun.com/mh_rock/article/details/1888777

ASP 专栏收录该内容

20 篇文章

订阅专栏

本文提供了一个使用ASP实现的安全文件下载脚本示例。该脚本通过检查文件扩展名来防止用户下载受保护的文件类型，如ASP、MDB等，并确保只有指定路径下的文件可以被下载。

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

<%
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
' 下载这个文件

name=Mid(FileName, InStrRev(FileName, "/")+1)

Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&name
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
%>