怎样实现可以下载文件,但不暴露出文件所在目录

原创 2006年06月13日 15:02:00

第一种方法:

<%
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "非法链接!" '防止盗链
response.end
end if
 
if Request.Cookies("Logined")="" then
response.redirect "/login.asp" '需要登陆!
end if
Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
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
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
if lcase(right(FileName,3))="pdf" then '设置pdf类型文件目录
TrueFileName = "/the_pdf_file_s/"&FileName
end if
if lcase(right(FileName,3))="doc" then '设置DOC类型文件目录
TrueFileName = "/my_D_O_C_file/"&FileName
end if
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
TrueFileName = "/all_images_/"&FileName '设置图像文件目录
end if
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>

第二种方法:

<%
id=trim(request.QueryString("id"))'通过ID查询数据库

sql="select * from download where id="&id&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
tt=rs("downloadurl") '获取文件下载地址
bb=split(tt,".")'取得文件后缀
rs.close
set rs=nothing 
data=replace(now(),"-","")
data=replace(data,"/","")
data=replace(data,":","")
data=replace(data," ","")
Server.ScriptTimeout=6000
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary =1

FileName =tt
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&data&"."&bb(1) '重命名文件
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   
 %>

zip与unzip命令谅解及,压缩文件但不包含某目录的操作。

zip/unzip命令 1.功能说明 将一般的文件或者目录进行压缩或者解压,默认生成以“.zip”为后缀的压缩包。zip命令类似于Windows中的winzip压缩程序。其格式如下: zip [选项]...

广告聚合SDK和广告平台所暴露出的一些问题

网友爆料:果合代码做手脚! http://weibo.com/1726767017/y8s69dfxE   果合的广告聚合SDK故意屏蔽某些家的广告http://www.aibala.com...

SSM(十三) 将dubbo暴露出HTTP服务

前言通常来说一个dubbo服务都是对内给内部调用的,但也有可能一个服务就是需要提供给外部使用,并且还不能有使用语言的局限性。比较标准的做法是对外的服务我们统一提供一个openAPI,这样的调用方需要按...

自定义listview,支持上拉下拉刷新,暴露出接口,自带demo

这个博客好想不能提供下载代码啊, 我只能把代码贴出来了... 其实你只需看用法, 不用关心具体实现,demo非常容易看懂 public class CustomListViewActivity...

文件可读可写但不可删的Demo

  • 2009年10月09日 17:24
  • 21KB
  • 下载

FileReader上传文件即使显示(但不负责持久化, 只是内存中的回显处理)

FileReader对象的readAsDataURL方法可以将读取到的文件编码成Data URL。Data URL是一项特殊的技术,可以将资料(例如图片)内嵌在网页之中,不用放到外部文件。使用Data...
  • qwbtc
  • qwbtc
  • 2016年08月02日 10:14
  • 517

iOS系统预览文件但不分享的实用技巧 (iOS10, QLPreviewController)

苹果系统的文件预览能力对于很多app来说是必要的,但其提供的UI相关api并不是可以定制的,比如需要定制toolbar, navigationbar的情况,直接使用QLPreviewControlle...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:怎样实现可以下载文件,但不暴露出文件所在目录
举报原因:
原因补充:

(最多只允许输入30个字)