gpt4 book ai didi

ASP隐藏真实文件的下载功能实现代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章ASP隐藏真实文件的下载功能实现代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

格式:Download.asp?FileName=要下载的文件名  。

复制代码代码如下

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  。

最后此篇关于ASP隐藏真实文件的下载功能实现代码的文章就讲到这里了,如果你想了解更多关于ASP隐藏真实文件的下载功能实现代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com