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

韩冰

在_blank>浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在_blank>浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法： 4 e3 y9 H( S* C1 L8 Z1 x* s1、设置你的服务器" target=_blank>服务器的iis，给doc等后缀名做映射 2、在向客户端发送时设置其contenttype

下面详细说明方法2

; ?4 T. m* u3 O% x3 v3 \

<% 0 @! X; \# F, ?( oResponse.Buffer = true 4 D9 v" o$ e' L) ZResponse.Clear

dim url Dim fso,fl,flsize " @, o p. Q, s+ o# M ^8 @dim Dname Dim objStream,ContentType,flName,isre,url1 - M+ Q: f0 M* s'*********************************************调用时传入的下载文件名 ; y% z+ j! Y4 O8 ^2 J, J( n& sDname=trim(request("n")) 7 \0 q* T; r3 m: h, v3 ~! Y+ U'****************************************************************** If Dname<>"" Then 6 b9 R7 q1 F( o6 o4 Q'******************************下载文件存放的服务端目录 5 Y" c0 Z( }( D url=server.MapPath("/")&"\"&Dname , D) L6 g& F3 {- E2 n9 g; L- @: b4 n'*************************************************** End If

. _1 ^0 a3 s( N. E; R$ x- M% \* J+ V( M

Set fso=Server.CreateObject("Scripting.FileSystemObject") ( k' w6 \7 c+ ? Set fl=fso.getfile(url) * ~3 P0 ^1 c* M9 l1 |+ \# z# E flsize=fl.size flName=fl.name Set fl=Nothing , o5 T3 V& D7 S8 Z- E Set fso=Nothing %> <% 8 z' `7 j2 H3 G5 W. {& O5 ? Set objStream = Server.CreateObject("ADODB.Stream") 3 K* i. [9 I' x objStream.Open objStream.Type = 1 objStream.LoadFromFile url

Select Case lcase(Right(flName, 4)) ! N( F2 F$ Q; ?- {# }4 I Case ".asf" ContentType = "video/x-ms-asf" 9 F E3 Z" y' j# b" ? Case ".avi" ContentType = "video/avi" 6 w' [% A4 d+ r' h0 ` Case ".doc" 7 Q v6 U- S2 Y( M: l/ h8 P ContentType = "application/msword" : r* `7 o; p, b Case ".zip" ContentType = "application/zip" Case ".xls" ContentType = "application/vnd.ms-excel" Case ".gif" ContentType = "image/gif" ' v/ P, e! ^' o S( ? Case ".jpg", "jpeg" ContentType = "image/jpeg" 3 j7 N( {% e! ^( ~/ ~ Case ".wav" , ^4 M& `1 @6 @2 u ContentType = "audio/wav" 0 D) ^6 @/ s. f# P Case ".mp3" ContentType = "audio/mpeg3" Case ".mpg", "mpeg" - v- N& p; K: U5 k/ w ContentType = "video/mpeg" Case ".rtf" ! J) f/ \# D& i" m4 Q6 F ContentType = "application/rtf" % L* ~" ?9 C+ j: E2 ?7 I Case ".htm", "html" ContentType = "text/html" Case ".txt" 4 y) t- N; l( E8 A ContentType = "text/plain" Case Else 5 o3 O) T# \: {2 b' W ContentType = "application/octet-stream" End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName Response.AddHeader "Content-Length", flsize

' D$ k6 W( L0 g! q3 [1 ]! R) l

Response.Charset = "UTF-8" Response.ContentType = ContentType

; o( `4 O6 k% Y# t+ A

Response.BinaryWrite objStream.Read Response.Flush $ D0 d I n& [6 ~ response.Clear() ) N8 w9 Z& ^! S/ ^+ @ m objStream.Close % M( r: q$ ?+ ^5 W Set objStream = Nothing

%>

! @; w: A- G# f5 c4 N

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

" j, o+ L/ M& j# T" n. ]" k

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

* i1 V( n1 Z( H5 _8 A$ W( u) _4 H5 `

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

7 e+ y+ o6 f. A6 N

if instr(Request.ServerVariables("HTTP_REFERER"),"http://你的_blank>域名")=0 then Response.End end if

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