手机
当前位置:查字典教程网 >编程开发 >ASP教程 >ASP隐藏真实文件的下载功能实现代码
ASP隐藏真实文件的下载功能实现代码
摘要:格式:Download.asp?FileName=要下载的文件名复制代码代码如下:DimStreamDimContentsDimFileNa...

格式: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站长安全助手的ASP木马查找功能

asp防止刷新功能实现代码

ASP实现网址的桌面快捷方式下载

无组件实现文件上传/下载

asp的程序能实现伪静态化的方法

ASP中FSO的神奇功能 - 简介

网站制作ASP语言的特点与功能

ASP连接数据库的全能代码

ASP 程序实现自动升级功能

ASP用户注册功能的实现

精品推荐
分类导航