查看: 2370|回复: 0

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

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

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

|招呼Ta 关注Ta

在_blank>浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在_blank>浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法： / E; W/ }: R2 K5 W1 o9 l1、设置你的服务器" target=_blank>服务器的iis，给doc等后缀名做映射 ) R2 Z/ Y: l9 O! e4 ?* R2、在向客户端发送时设置其contenttype

下面详细说明方法2

<% # q* G9 \$ L3 n$ x& R0 Z7 m( zResponse.Buffer = true9 r% |+ j: S, ^/ \ Response.Clear

dim url: ?( d& v, i0 t- z* {9 ]3 |8 b Dim fso,fl,flsize7 g& N* W1 D$ ], l9 ] dim Dname % }& S* _+ ?2 ^9 rDim objStream,ContentType,flName,isre,url10 L/ R ?4 K6 E, t; Y+ Q5 a _ '*********************************************调用时传入的下载文件名 # S1 t# u$ t) yDname=trim(request("n")) & i: Y& \/ t9 M9 D# ]5 n( k'******************************************************************. D2 H t9 z: w If Dname<>"" Then 7 u1 H2 G1 g6 H/ m! X/ O'******************************下载文件存放的服务端目录 , T# `, O# O4 H# [ url=server.MapPath("/")&"\"&Dname+ K1 `, [ Z# w: { '***************************************************0 O. l: N5 o" |7 |9 _6 ~/ ]( h End If

Set fso=Server.CreateObject("Scripting.FileSystemObject") 6 E! q7 @2 _9 z% i! v Set fl=fso.getfile(url) 0 a: u9 Z) `) B4 _; e2 H flsize=fl.size- \ y3 u& `% o. o0 D7 M5 h6 {5 E7 r" w flName=fl.name . q: N3 r7 }' l, } Set fl=Nothing1 B/ y0 @4 q5 J4 D# d Set fso=Nothing1 b; J y$ l5 h& f %> + d H$ `; ?' `* H<%& M; K7 q7 G0 l/ ~, k3 O# a# { Set objStream = Server.CreateObject("ADODB.Stream") " X* c" W5 p) d+ J& Q5 o/ I/ d objStream.Open3 v- I& @: W7 R' C! {% p5 Y objStream.Type = 1' d) q0 F, T2 O objStream.LoadFromFile url

; D4 _8 J# j& }0 E Select Case lcase(Right(flName, 4)): g* Z2 L/ q. x8 N! v; n Case ".asf" i; ?( z+ d: X; Y ContentType = "video/x-ms-asf" ) c4 e8 h* ^ @9 ^5 r* M7 y4 I Case ".avi" ) g, N6 p) O, ? ContentType = "video/avi"1 S" @ C; s- V3 h" y" V: ^# F Case ".doc"3 j0 z! A1 l# W. r& h- n" ` ContentType = "application/msword"# V2 Y6 ]$ w0 J# ]8 x# e7 Q Case ".zip"( m: q' F1 o7 g1 Q ContentType = "application/zip" : D% J6 F& y& a: o) d Case ".xls": z. e0 p% @1 l# V% k ContentType = "application/vnd.ms-excel" 3 b7 p5 ]8 L x+ k7 ? Case ".gif") w& T; b" ]9 E0 x+ K: Q1 B A# M, i ContentType = "image/gif" `5 ~+ B! O6 p Case ".jpg", "jpeg"9 {6 j- q2 d" ~1 p" K ContentType = "image/jpeg"0 B4 P( E2 u5 A Case ".wav"$ D$ O1 s. \' \; b& T. n ContentType = "audio/wav"/ C6 f; ?! v- r* d) n/ s Case ".mp3" ' H1 a% M$ s& _& i2 A( j ContentType = "audio/mpeg3": k& g+ A) |/ Y Case ".mpg", "mpeg"& f8 h, Q, U. \2 [" T ContentType = "video/mpeg" 0 s1 _! n4 d8 X Case ".rtf" $ F a: B9 N' g, _0 \+ ]( \) v ContentType = "application/rtf" 5 E: k; u# m. Q4 `) p1 V, q Case ".htm", "html" + X: l# p, ~- J ContentType = "text/html" 4 s7 [( n1 p4 ]# J y6 P Case ".txt"" N- @6 @5 O" ?4 |$ I$ g ContentType = "text/plain" ! k! e) K+ e. S- R: ?, m Case Else , I/ I1 G X; L/ v- d ContentType = "application/octet-stream"0 F4 N- H$ b8 _8 s End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName6 O6 H1 q1 ]' @ Response.AddHeader "Content-Length", flsize

Response.Charset = "UTF-8" " m* G* E+ H7 O' o. Y Response.ContentType = ContentType

Response.BinaryWrite objStream.Read1 v s1 C& v! g# g6 J Response.Flush ( ?/ s& y) C4 i response.Clear()& Z/ `) M* S+ S9 }( u8 H objStream.Close ! \7 n- |) ]; w% D3 r 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 then0 ?* ^' J6 d1 S0 @, ^, L Response.End! q* q3 w F! T. Z- b% f2 S end if

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

zan