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

原创 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   
 %>

如何实现打开文件所在文件夹的功能(打开所在文件夹并选中文件)

实现打开文件所在文件夹的功能(打开所在文件夹并选中文件)...
  • chenlycly
  • chenlycly
  • 2014年02月13日 21:08
  • 2529

shell得到脚本文件所在目录

baseDirForScriptSelf=$(cd "$(dirname "$0")"; pwd) echo "Dir of currently executed script is : ${base...
  • zhulei632
  • zhulei632
  • 2012年07月24日 13:36
  • 2726

bat脚本获取当前文件所在目录

%~dp0 如注册XXX.ocx时,命令应为 regsvr32  "%~dp0XXX.ocx"
  • huronzhu
  • huronzhu
  • 2013年03月21日 09:33
  • 1153

实现异步多线程下载文件

我是基于一名大神的思路写的,如果想看更多内容,下面大神的blog地址 http://blog.csdn.net/shimiso/article/details/6763664xml文件...
  • Anny_Lin
  • Anny_Lin
  • 2015年08月15日 15:43
  • 1006

获取指定文件所在的目录的三种方法

场景:指定一个文件路径,获取
  • taoerit
  • taoerit
  • 2014年09月04日 12:14
  • 1337

Python获取程序所在目录

Python获取程序所在目录解决__file__或sys.argv[0]在py2exe下失效的问题。选自pathutils模块。http://www.voidspace.org.uk/python/p...
  • jq0123
  • jq0123
  • 2007年07月17日 14:22
  • 2340

文件的创建时间 \修改时间 \访问时间

 关于文件的时间的问题,我们有必要这么深究吗?当然有必要,烧录光盘时,更新文件时,数据恢复时,这些时候就要考虑文件的时间了。 这里我有两个问题要问:     一、在Windows...
  • wowolook
  • wowolook
  • 2015年05月12日 16:11
  • 848

Linux shell获取执行脚本文件所在的目录

linux shell获取执行脚本文件所在的目录#!/usr/bin/env sh #get script file dir getsd() { oldwd=`pwd` rw=`dirname...
  • zrc199021
  • zrc199021
  • 2016年06月16日 16:03
  • 417

查找进程所在路径和启动命令

ps -def 或者pid可以查看到进程id和启动命令的相对路径,要想查看详细的,请查找目录/proc/${pid}比如:root@jobs:~# root root 0 Aug 6 23:52...
  • sheismylife
  • sheismylife
  • 2014年08月07日 00:02
  • 3275

eclipse 快速打开当前文件所在目录

eclipse version  4.x.x 意图解决快速打开当前文件的所在文件夹位置 操作步骤 1.External Tools Configurations...点击 2.左侧Program - ...
  • zqbx7
  • zqbx7
  • 2016年10月09日 19:18
  • 2985
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:怎样实现可以下载文件,但不暴露出文件所在目录
举报原因:
原因补充:

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