`
txf2004
  • 浏览: 6832325 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

利用ADODB.Stream使用浏览器下载服务器文件

阅读更多
download.asp?file=相对路径的文件
就可以把这个文件下载下来

<%
2
3 call downloadFile(replace(replace(Request("file"),"\",""),"/",""))
4
5 Function downloadFile(strFile)
6 ' make sure you are on the latest MDAC version for this to work
7 ' -------------------------------------------------------------
8
9
10 ' get full path of specified file
11 strFilename = server.MapPath(strFile)
12
13
14 ' clear the buffer
15 Response.Buffer = True
16 Response.Clear
17
18 ' create stream
19 Set s = Server.CreateObject("ADODB.Stream")
20 s.Open
21
22 ' Set as binary
23 s.Type = 1
24
25 ' load in the file
26 on error resume next
27
28
29 ' check the file exists
30 Set fso = Server.CreateObject("Scripting.FileSystemObject")
31 if not fso.FileExists(strFilename) then
32 Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
33 Response.End
34 end if
35
36
37 ' get length of file
38 Set f = fso.GetFile(strFilename)
39 intFilelength = f.size
40
41
42 s.LoadFromFile(strFilename)
43 if err then
44 Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
45 Response.End
46 end if
47
48 ' send the headers to the users browser
49 Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
50 Response.AddHeader "Content-Length", intFilelength
51 Response.CharSet = "UTF-8"
52 Response.ContentType = "application/octet-stream"
53
54 ' output the file to the browser
55 Response.BinaryWrite s.Read
56 Response.Flush
57
58
59 ' tidy up
60 s.Close
61 Set s = Nothing
62
63
64 End Function
65
66 %> 
当然,从安全方面着想,最好是不要把文件路径放在url中
分享到:
评论

相关推荐

    使用asp下的adodb.stream 下载文件而不是打开

    在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径,那么该文件会直接显示在浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载,我们该怎么办呢?这里有两种方法:  1、设置你的服务器的...

    ASP在线文件管理器

    前请先确保服务器支持ACCESS数据库(登陆用),FSO,ADODB.STREAM(文件上传)。 本程序系多用户程序,用户分为超级用户和普通用户两类。当以管理员身份登陆后可以添加用户,修改用户和删除用户。 系统初始...

    雨哲树网正式版20090930.rar

    运行环境:服务器需安装:雨哲树网组件(YuZheTreeWeb.dll)、Msxml2.ServerXMLHTTP组件、Microsoft.XMLHTTP组件、MSXML2.XMLHTTP组件、ADODB.Stream组件、Fso组件,后面四个组件一般服务器都自带。 雨哲树网程序是...

    网络硬盘 商业版 3.3.2

    使用Xxasp文件上传提取系统您必须保证您的服务器满足如下要求: 1、软件系统:WIN2000+IIS5.0 / WINXP+IIS5.1 / WIN2003+IIS6.0 2、数 据 库:Access2000/MSSQL 3、FSO,ADODB.Stream 4、其 他:服务器必须安装 ...

    简约论坛 v4.1.zip

    还有下载使用要修改conn.asp里面的数据库路径(当然了数据名称也要修改) 2015年09月21日发布几个说明: 1、重新改写模板使之能兼容360浏览器、360极速浏览器、火狐浏览器、Google Chrome等主流浏览器 2、删除...

    asp.net javascript 文件无刷新上传实例代码第1/2页

    第一种方法:利用js的ADODB.Stream,将文件先转换成流,再通过js上传到服务器,这样有个好处就是可以上传超大文件,并且由于是数据流,可以支持断点续传、方便显示上传进度等人性化功能。唯一的缺点是要客户端...

    秋亿网络文件管理

     11、文件在线编辑采用FSO与ADODB.Stream,双剑合壁,支持任何编码文件读取与保存。  12、文件夹在线打包、解包,可以打包下载网站文件。  13、简单方便明了的用户目录空间占用统计 使用说明:  1、本系统为...

    fso浏览54646465465464564

    '本程序只供在需要特别处理服务器文件时使用,严禁用于非法目的 '由于非正当使用本程序而造成的一切后果及责任自负 '版本: v0.12 '作者: 河北科技大学 rssn | Risingsun,Hebust 'QQ: 126027268 'E-mail: rssn@163....

    资源共享系统程序v1.0

    3、FSO,ADODB.Stream 4、其他:服务器必须安装微软IE浏览器5.0或以上版本推荐:Windows2000+IIS5.0+Access2000+IE5.5环境测试 二、系统安装 如果您是第一次使用TopWangSourceShareSystem,在确认您同意拓网的版权...

    Mslove交友系统源码 v3.0

    ·服务器支持ASP,FSO(文件可读写权限),部分需要支持xmlhttp组件、ADODB.STREAM组件,支持桌面数据库(专业版本用户需要支持SQLserver数据库) ·服务器脚本解释引擎:VBScript/5.6.8515或以上 ·客户端浏览器请使用IE...

    流浪人网络网站

    ☆程序要求:支持FSO和ADODB.STREAM ☆操作系统:Windows2000/XP/XP2(推荐) ☆文件系统:FAT32(NTFS不推荐,若使用这个文件系统,要执行写入权限) 软件下载功能! 会员管理功能,站内短信,站内留言讨论和个栏目...

    asp连接数据库代码实例

    1,连接数据库代码 文件名称 conn.asp 所有访问数据库的文件都调用此文件&lt;!--#include file=\"Conn.asp\"--&gt; db=\"data/data.mdb\" \'数据库存放目录 on error resume next set conn=server.createobject(\...

    js使用小技巧

    Javascript小技巧一箩筐 事件源对象 event.srcElement.tagName event.srcElement.type ... 捕获释放 event.srcElement.setCapture();...event.srcElement.releaseCapture();... 根据鼠标获得元素: document....

    仿世纪佳缘婚介交友系统5.3 ASP+SQL

    2、组件要求:Jmail邮件组件、aspjpeg水印组件、上传组件(aspupload组件)、FSO读写权限(IIS_IUSRS,IUSR帐号读写)、ADODB.Stream组件。一般的虚拟主机都有这些组件,如果是本地调试必须先检查一下IIS的设置环境...

Global site tag (gtag.js) - Google Analytics