手机
当前位置:查字典教程网 >编程开发 >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的程序能实现伪静态化的方法

限制一个Ip只能访问一次的asp代码

ASP AspUpload上传文件示例代码

asp文件上传:文件上传 源代码

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

雷客图ASP站长安全助手的ASP木马查找功能

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

实例分析之用ASP编程实现网络内容快速查找的代码

精品推荐
分类导航