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

韩冰

在_blank>浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在_blank>浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法： : q# K" y' {' v5 y# h1、设置你的服务器" target=_blank>服务器的iis，给doc等后缀名做映射 3 w" K! M* B" @2、在向客户端发送时设置其contenttype

5 I' x6 X- ^% B; }

下面详细说明方法2

<% 4 {7 I5 S4 E9 G7 nResponse.Buffer = true # E3 B( M9 _9 R z: U7 ~* SResponse.Clear

* s7 S8 G) r& J1 S: i/ {6 }

dim url Dim fso,fl,flsize dim Dname 0 F3 ] _$ w- XDim objStream,ContentType,flName,isre,url1 ' v9 `1 [& W; f3 ]'*********************************************调用时传入的下载文件名 - i4 k9 M4 x: xDname=trim(request("n")) - o" \4 [4 }+ p5 [1 y$ m$ m'****************************************************************** If Dname<>"" Then '******************************下载文件存放的服务端目录 url=server.MapPath("/")&"\"&Dname 4 n/ b) Y. n1 Q$ ]+ v" W'*************************************************** 2 e3 {3 h" d/ g4 F. x5 I; v: Z/ f0 J. vEnd If

Set fso=Server.CreateObject("Scripting.FileSystemObject") - ~8 c" ^5 P" d0 L Set fl=fso.getfile(url) % ]& l2 h) m; U; @' g flsize=fl.size : g9 b. R% d/ a4 _0 a) G) i flName=fl.name Set fl=Nothing Set fso=Nothing ! r8 _) M V) b% {%> <% ( I( Q: o3 O- x2 c& H( y Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = 1 objStream.LoadFromFile url

Select Case lcase(Right(flName, 4)) Case ".asf" / U+ b% l) i3 T% N2 s4 ^! |. D ContentType = "video/x-ms-asf" Case ".avi" 3 A; H+ D9 s, d" K( Q9 ^0 y ContentType = "video/avi" Case ".doc" ContentType = "application/msword" ) Y2 i* a/ w7 h Case ".zip" ContentType = "application/zip" ; @5 \) t) l# S' L' p Case ".xls" " }& B4 B5 w7 d4 P8 p6 w; ^ ContentType = "application/vnd.ms-excel" : w. F* q% p+ P Case ".gif" # H B. n/ s; e% P) ]' W" j& A0 e& _ ContentType = "image/gif" Case ".jpg", "jpeg" ContentType = "image/jpeg" 3 r" t* {8 u' Z# T" x0 ^ K) d Case ".wav" , f- Q1 P+ _) |# Y# i1 O; e ContentType = "audio/wav" / r; p! R* W9 l( f7 h$ H- N Case ".mp3" ) F4 q7 p+ f' ^ ContentType = "audio/mpeg3" Case ".mpg", "mpeg" ContentType = "video/mpeg" 2 U, `' B- d- z7 @+ c. _ Case ".rtf" & t: y0 h+ ^1 |- Z/ r5 l* K, o ContentType = "application/rtf" Case ".htm", "html" , k3 @$ z, w. ?. s- j0 y8 R2 A9 j ContentType = "text/html" Case ".txt" ContentType = "text/plain" Case Else 3 b0 r% f4 E/ B) f4 ?0 z ContentType = "application/octet-stream" End Select

3 `7 X; e4 x4 G* }: N

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName % C: B( H, _- z0 i8 n Response.AddHeader "Content-Length", flsize

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

/ u# @5 r, M w+ ~# v

Response.BinaryWrite objStream.Read 9 H3 p) [( d6 ?! S Response.Flush - q9 Q) U: F$ c response.Clear() 7 c8 T& ~. L5 Q6 i6 D objStream.Close Set objStream = Nothing

. P' i9 A, n0 I( n" A0 v( c8 T

%>

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

; n3 t- G; Z2 p9 f- H5 p u

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

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

3 a, Y& V, m* D" D+ S

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

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