黑基网 首页 学院 系统管理 查看内容

利用Adodb.Stream直接下载文件

2004-12-7 02:57| 投稿: net

摘要: 转自:青苹果论坛 在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径,那么该文件会直接显示在浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载,我们该怎么办呢?这里有两...
转自:青苹果论坛 在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径,那么该文件会直接显示在浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载,我们该怎么办呢?这里有两种方法:1、设置你的服务器的iis,给doc等后缀名做映射2、在向客户端发送时设置其contenttype下面详细说明方法2 程序代码: <%Response.Buffer = trueResponse.Cleardim urlDim fso,fl,flsizedim DnameDim objStream,ContentType,flName,isre,url1'*********************************************调用时传入的下载文件名Dname=trim(request("n"))'******************************************************************If Dname<>"" Then'******************************下载文件存放的服务端目录url=server.MapPath("/")&"\"&Dname'***************************************************End IfSet fso=Server.CreateObject("Scripting.FileSystemObject")Set fl=fso.getfile(url)flsize=fl.sizeflName=fl.nameSet fl=NothingSet fso=Nothing%><%Set objStream = Server.CreateObject("ADODB.Stream")objStream.OpenobjStream.Type = 1objStream.LoadFromFile urlSelect 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 ElseContentType = "application/octet-stream"End SelectResponse.AddHeader "Content-Disposition", "attachment; filename=" & flNameResponse.AddHeader "Content-Length", flsizeResponse.Charset = "UTF-8"Response.ContentType = ContentTypeResponse.BinaryWrite objStream.ReadResponse.Flushresponse.Clear()objStream.CloseSet objStream = Nothing%> <%Response.Buffer = trueResponse.Cleardim urlDim fso,fl,flsizedim DnameDim objStream,ContentType,flName,isre,url1'*********************************************调用时传入的下载文件名Dname=trim(request("n"))'******************************************************************If Dname<>"" Then'******************************下载文件存放的服务端目录url=server.MapPath("/")&"\"&Dname'***************************************************End IfSet fso=Server.CreateObject("Scripting.FileSystemObject")Set fl=fso.getfile(url)flsize=fl.sizeflName=fl.nameSet fl=NothingSet fso=Nothing%><%Set objStream = Server.CreateObject("ADODB.Stream")objStream.OpenobjStream.Type = 1objStream.LoadFromFile urlSelect 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 ElseContentType = "application/octet-stream"End SelectResponse.AddHeader "Content-Disposition", "attachment; filename=" & flNameResponse.AddHeader "Content-Length", flsizeResponse.Charset = "UTF-8"Response.ContentType = ContentTypeResponse.BinaryWrite objStream.ReadResponse.Flushresponse.Clear()objStream.CloseSet objStream = Nothing%> 将上面的东西存成download.asp然后你就可以用<a herf="http: //xxx.xxx.com/download.asp?n=file.doc">download!</a>来下载同一目录下的file.doc了! 但是这里有个问题就是直接将file.doc路径写在url里是不安全的,所以解决方案应该是将file.doc的路径存到数据库里,同过查找数据库后得到路径在这个程序的最前面如果加上一个判断:if instr(Request.ServerVariables("HTTP_REFERER"),"http: //你的域名")=0 then Response.Endend if就能够很好的防止别人的盗链了
小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文搜集整理自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,请我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论


新出炉

返回顶部