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

韩冰

在_blank>浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在_blank>浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法： 1、设置你的服务器" target=_blank>服务器的iis，给doc等后缀名做映射 % {$ X4 h3 e5 L. J2、在向客户端发送时设置其contenttype

& L$ p7 }' A: O! I- Q! |! U

下面详细说明方法2

. {+ y- j- ^; t! x

<% ( p* l) _4 v5 \* kResponse.Buffer = true ; |8 n- t# t( a* M8 FResponse.Clear

6 @; H! y: Q# h

dim url ; w+ \4 e9 ?. y* W, \& g) o* `" _Dim fso,fl,flsize }/ e) ?# Q5 I6 s# Odim Dname Dim objStream,ContentType,flName,isre,url1 1 n6 Y5 ]% `$ Q( n3 }0 a'*********************************************调用时传入的下载文件名 Dname=trim(request("n")) + q1 `! G( B! O5 T1 y' i'****************************************************************** # {: m( B: n) l7 Q: XIf Dname<>"" Then / R" c( P- c& a/ Q! c+ F'******************************下载文件存放的服务端目录 url=server.MapPath("/")&"\"&Dname '*************************************************** 9 c5 A2 s& D1 C' O9 ?$ H2 f1 S/ L% f& ZEnd If

Set fso=Server.CreateObject("Scripting.FileSystemObject") & `! O4 ~6 \/ o r) N- I1 a3 g9 k Set fl=fso.getfile(url) flsize=fl.size " F$ c0 h6 X) N V/ u flName=fl.name Set fl=Nothing Set fso=Nothing 8 |: z) a' k: `0 C0 Y" P, c2 }%> <% Z8 d5 Q/ u8 X& M. M9 N Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open , p3 y4 X7 r1 \( f! M3 \$ Y objStream.Type = 1 objStream.LoadFromFile url

( u. p$ R( O# c& p6 C! | Select Case lcase(Right(flName, 4)) Case ".asf" ~# X" m" x4 F) l8 C ContentType = "video/x-ms-asf" Case ".avi" 9 I' p4 K2 `" _7 ~5 V ContentType = "video/avi" % v) d9 J5 T* _- } Case ".doc" * r" ]) ? J# r6 J1 S7 ` ContentType = "application/msword" ( o3 v. L9 V0 u# I8 u3 h! m2 R" M Case ".zip" 4 N) _& T+ o. \9 ?/ w. f& v ContentType = "application/zip" 2 t. P9 s s: J+ J Case ".xls" $ r9 t7 X! ]9 }: y ContentType = "application/vnd.ms-excel" Case ".gif" ContentType = "image/gif" * j- L, ]! ~: \; H: W3 [ f Case ".jpg", "jpeg" ContentType = "image/jpeg" ! x" X z* C B- l# M0 O Case ".wav" ContentType = "audio/wav" " ^: j5 F. R. g Case ".mp3" ContentType = "audio/mpeg3" 0 _9 x" r* l* w, x" V* K Case ".mpg", "mpeg" : ?9 x9 j. K' w& @ ContentType = "video/mpeg" Case ".rtf" ContentType = "application/rtf" , I9 ?7 }5 h- l" ~: M# j6 d, T Case ".htm", "html" 5 v/ o& e+ X+ g: m5 j ContentType = "text/html" + u! e$ e! m: X# P4 H% ~ Case ".txt" ContentType = "text/plain" Case Else ContentType = "application/octet-stream" End Select

* C+ a, l7 \6 w) O

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName ; Z& p: z# v9 \ Response.AddHeader "Content-Length", flsize

Response.Charset = "UTF-8" , t$ ~+ W. D/ C" I8 y- C Response.ContentType = ContentType

Response.BinaryWrite objStream.Read Response.Flush * O N& D! D h" n; y/ b response.Clear() objStream.Close * t- k' g" V2 \. y- O' t Set objStream = Nothing

%>

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

1 }% ]+ M8 \7 P' h9 P( @

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

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

if instr(Request.ServerVariables("HTTP_REFERER"),"http://你的_blank>域名")=0 then ; Y, D5 G9 I$ B5 a% J% ?' i, e Response.End ' Q7 S9 C" W' c% r5 ` T" Yend if

0 |. Y) B7 ]1 d! w2 m$ Z+ r2 o

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