ASP 文件下载实例
点击下载的地方跳转:
<a href=DownDocs.asp?docs_id=<%=id%> target=print_blank>下载附件</a>
新建一个Downdoc.ASP文件,代码如下
<%
dim id
dim upload_name,upload_url
if not isempty(request("docs_id")) then
id=cint(request("docs_id"))
sql="select * from "tb" where id="&id
set rs=server.createobject("adodb.recordset")
rs.Open sql,conn,1,2
if rs.EOF or rs.BOF then
else
if not (isnull(rs("upload_name")) or isempty(rs("upload_name"))) then
upload_name=trim(rs("upload_name"))
end if
if not (isnull(rs("upload_url")) or isempty(rs("upload_url"))) then
upload_url=trim(rs("upload_url"))
end if
rs.Close
set rs=nothing
end if
'response.Write server.MapPath(("../admin/") &upload_url)
'response.End
'取得要下载的文件,如果不为空。就下载
dim url,trueurl
'url="下载文件路径和下载文件名"
dim objStream
url=upload_url
fname=upload_name
trueurl=server.MapPath(("../admin/") &url)
'response.Write trueurl
Response.Buffer=true '开启缓存
'response.Write trueurl
set objStream=server.CreateObject("adodb.stream")
objStream.Type=1 '以二进制读取模式
objStream.Open
objStream.LoadFromFile trueurl '读取文件
set objFso=server.CreateObject("scripting.filesystemobject")
set fn=objFso.GetFile(trueurl)
flsize=fn.size
flname=fname
select case lcase(right(flname,4))
case ".asf"
ContentType="video/x-ms-asf"
case ".avi"
ContentType="video/avi"
case ".doc"
ContentType="application/msword"
case ".zip"
ContentType="application/zip"
case ".xls"
ContentType="application/vnd.ms-excel"
case ".gif"
ContentType="image/gif"
case ".jpg","jpeg"
ContentType="image/jpeg"
case ".wav"
ContentType="audio/wav"
case ".mp3"
ContentType="audio/mpeg3"
case ".mpg", "mpeg"
ContentType="video/mpeg"
case ".rtf"
ContentType="application/rtf"
case ".htm","html"
ContentType="text/html"
case ".txt"
ContentType="text/plain"
case ".pdf"
ContentType="application/pdf"
Case ".ASP", ".ASA", "ASPX", "ASAX", ".MDB"
Response.Write "受保护文件,不能下载."
Response.End
case else
ContentType="appliation/octet-stream"
end select
Response.AddHeader "Content-Disposition", "attachment; filename="&flname
Response.AddHeader "Content-Length", flsize
Response.CharSet="UTF-8"
Server.ScriptTimeout = 600
Response.ContentType=ContentType
Response.BinaryWrite objStream.Read '以二进制的方式输出至客户端浏览器
Response.Flush '边缓存边输出
Response.Clear()
objStream.Close
set objStream=nothing
set fn=nothing
set objFso=nothing
end if
%>
如果文件过大提示下载失败,请设置iis中asp限制属性中的大小
ASP 文件下载实例相关推荐
- Asp.Net实例:C# 绘制统计图(一) ——柱状图
Asp.Net实例:C# 绘制统计图 (柱状图, 折线图, 扇形图) 统计图形种类繁多, ...
- asp.net实例:毕业选导师功能tips
2011-12-07: 经过昨天晚上的学生选择,发现教师已选学生数量和实际选择学生的数量不一致的问题(应该使用事务来管理吧?),上午排查时使用的下面的sql语句进行测试.修改: 计算每个教师已经选择的 ...
- Jquery+asp.net实现Ajax方式文件下载实例代码
如果文件中,需要下载一个文件,一般用超级链接的方式即可. 但是如果是图片,浏览器会默认打开图片浏览,不是实现下载. 考虑可以使用jquery ajax提交form请求的方式. jquery downl ...
- python编程实例下载-python网络编程之文件下载实例分析
本文实例讲述了python网络编程之文件下载实现方法.分享给大家供大家参考.具体如下: 真是越看越喜欢python啊,想要了解它提供的http和ftp下载功能,原来是如此的简单. 1.相应模块 ftp ...
- python解决问题asp_用python实现面向对像的ASP程序实例
本文实例讲述了用python实现面向对像的ASP程序的方法.分享给大家供大家参考.具体实现方法如下: 平时我们写ASP时,一般都用vbscript或javascript. javascript是用fu ...
- python混合asp_用python实现面向对象的ASP程序实例
本文实例讲述了用python实现面向对像的ASP程序的方法.分享给大家供大家参考.具体实现方法如下: 平时我们写ASP时,一般都用vbscript或javascript. javascript是用fu ...
- php 占位符替换_AJAX ASP / PHP实例
实例解析-showHint()函数 当用户在上面的输入上方键入字符时,会执行函数" showHint()".该函数由" onkeyup"事件触发: 函数show ...
- php文件下载到服务器代码,PHP文件下载实例代码浅析
文件下载的功能对一个网站而言基本上是必备的了,今天就来看看php是如何实现文件下载的吧. 无控制类型 这里说的无控制类型是指 没有添加php代码控制的资源可以被直接下载的那些类型.一般而言,压缩文件. ...
- php文件下载脚本,PHP文件下载实例代码浅析
文件下载的功能对一个网站而言基本上是必备的了,今天就来看看PHP是如何实现文件下载的吧. 无控制类型 这里说的无控制类型是指 没有添加PHP代码控制的资源可以被直接下载的那些类型.一般而言,压缩文件. ...
- Git 技术篇 - Github在项目分支里下载某个文件方法,Github项目里的单个js文件下载实例演示
有的小伙伴通过一些链接进入 github 的某个项目分支里后,发现不知道到怎么下载文件,下面来介绍一下. 单个文件下载方法: 点击查看文件. 在点进 Raw . 然后通过 ctrl + s 保存即可. ...
最新文章
- 考研最惨专业排行榜,你上榜了吗?
- CentOS 6.5 伪分布安装
- 2021-10-11 二叉树中查找值为key的结点
- mac上python3安装HTMLTestRunner
- 20190313_C#反转绘制字符串
- 一行代码,能导入所有Python库!
- 第4章 同步控制 Synchronization ----同步机制的摘要
- Python的逻辑操作
- 可以直接复制的emoji符号(表情)
- 传送带计数器c语言程序,脉搏计数器的程序(用C语言编写程序)
- android rtsp传输,android-ndk – 使用FFMpeg在Android客户端上进行RTSP流式传输
- 计算机重装系统后无法重启,u盘安装系统之后重启电脑没反应怎么办
- DSP中断使用简明教程
- 分类模型计算混淆矩阵
- elementPlus修改主题色以及皮肤设置思路
- 相机旋转标题文字出现PR模板MOGRT|摄影师必备
- 2021鸿蒙手机上线时间,华为新款手机2021款(华为P50发布上市时间)
- 基于Python股票网站数据爬虫情感可视化分析设计
- 【无标题】LTE 邻区测量
- 转:一份关于镍锌电池的使用说明书[AA1500民用电池说明书]