查看: 2366|回复: 0

利用adodb.stream直接下载任何后缀的文件

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2004-11-5 22:59 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

在_blank>浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在_blank>浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法： % ^1 m4 N$ r. N1、设置你的服务器" target=_blank>服务器的iis，给doc等后缀名做映射* Z! {$ {' y+ n! s. J: G5 h" M 2、在向客户端发送时设置其contenttype

下面详细说明方法2

<%1 D+ O* T) e- } R; Z Response.Buffer = true ( _, q8 ^8 \2 S+ nResponse.Clear

dim url: K1 T$ Y5 R1 U1 A$ R Dim fso,fl,flsize5 r7 ]4 e ~! [ dim Dname8 @$ ~0 p. c: _8 k- Z Dim objStream,ContentType,flName,isre,url1 / T- }0 U' h# a'*********************************************调用时传入的下载文件名 : v7 |* U+ r4 M& GDname=trim(request("n"))4 \, T/ z [- H& u2 d9 n X0 U '******************************************************************* J5 A* a/ [2 t1 D5 g: X1 G If Dname<>"" Then $ {& a3 z; V# ~; {8 [: f'******************************下载文件存放的服务端目录% }$ J( z; E& D7 g4 A& d7 G url=server.MapPath("/")&"\"&Dname$ v. Q* z! p" x+ l# t% Q. s '***************************************************( K& S( @; K& \4 P End If

Set fso=Server.CreateObject("Scripting.FileSystemObject") , d- }& T ` ?% i! U Set fl=fso.getfile(url)9 ^0 i( e/ K+ F, ]# C4 m flsize=fl.size # K2 |; Y% h) M) j0 ? a1 i flName=fl.name. p% m) A$ O6 M Set fl=Nothing , O% g" e9 b/ ?6 j. j Set fso=Nothing8 d, U4 e* q: h2 X %>. j4 ?/ i+ n6 `* V. x# w/ V2 K/ { <% ' b l2 h5 a6 m& C* M$ x2 X Set objStream = Server.CreateObject("ADODB.Stream") , U8 u( x% a7 K1 V! B4 n objStream.Open% L; a# e# G! ~% w" c8 f. r objStream.Type = 1 % m j& k. `- m. V3 z! c objStream.LoadFromFile url

* c, x; |; v' L o' Q% G Select Case lcase(Right(flName, 4)) O9 x: v0 l3 x' o0 y/ | Case ".asf" $ n6 f, c& J- W; M9 c' ^2 J9 G ContentType = "video/x-ms-asf" . C: |& Q( n; J6 [ Case ".avi" 3 a' r7 k& j# X& T; Q- c ContentType = "video/avi" " V* y5 b; u, w8 W Case ".doc" ; q2 n4 i5 |# u6 B' G, \ d( N/ { ContentType = "application/msword" 3 i% `7 J5 ?+ F Case ".zip" ! E( c2 \+ v$ V. { ContentType = "application/zip"; U# z! E9 F- {( Y# a Case ".xls"' c" l4 g$ [4 {- B4 q ContentType = "application/vnd.ms-excel"1 I% N; r C- }9 {# ]' w t8 X Case ".gif" + r2 O/ ^8 v4 b3 r/ I6 Y- B ContentType = "image/gif") I' Q8 N3 T) K4 @" G8 f Case ".jpg", "jpeg"9 D; ]% R8 J5 a9 ` ContentType = "image/jpeg"; I: F; O) f# X6 } Case ".wav" , U# p: j: S. u( T/ E ContentType = "audio/wav" O" q; l. @3 ~; y. k7 w Case ".mp3"9 J% Y" ]; A+ L& D7 ]3 [6 w3 n8 o ContentType = "audio/mpeg3"* g! L; e$ m) q$ c0 i1 b Case ".mpg", "mpeg" 6 v8 k* }5 W: V- G ContentType = "video/mpeg"+ G% {# b% \8 ~, v Case ".rtf"2 S! o, c0 ?) u) G U. U ContentType = "application/rtf" T8 P c9 ~# p3 B1 H Case ".htm", "html"( p s. `- v& z4 w! m9 d ContentType = "text/html"- e/ X$ r) ~" w1 a: ~ Case ".txt" $ k) G9 }* `+ o* {1 Q) X ContentType = "text/plain"% z- l9 R) p6 F Case Else# I3 v6 ^) g; O8 b% |6 E% ] ContentType = "application/octet-stream" ( \( J C" F! F" |2 ^ End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName+ Y0 h9 Z. G0 J0 A1 C, Y5 x: Q Response.AddHeader "Content-Length", flsize

Response.Charset = "UTF-8" ]7 d( e) b& O( r& J Response.ContentType = ContentType

Response.BinaryWrite objStream.Read 6 L0 ]7 C% a9 b, h; { Response.Flush ) l4 i4 W$ l: L response.Clear() s# |& t( Y9 {0 C; d5 h objStream.Close9 Z" W% W9 B9 X4 Z- E' D8 A Set objStream = Nothing

%>

将下面的东西存成download.asp然后你就可以用<a herf="download!http://www.knowsky.com/download.asp?n=file.doc">download!</a>来下载同一目录下的file.doc了!

但是这里有个问题就是直接将file.doc路径写在url里是不安全的，所以解决方案应该是将file.doc的路径存到数据库" target=_blank>数据库里，同过查找数据库" target=_blank>数据库后得到路径

在这个程序的最前面如果加上一个判断：

if instr(Request.ServerVariables("HTTP_REFERER"),"http://你的_blank>域名")=0 then6 A/ W6 D M$ e Response.End% L& f% \7 \- J6 { end if

就能够很好的防止别人的盗链了

zan