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

韩冰

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

下面详细说明方法2

4 W4 ?3 F* l% M4 P- ^; s7 {' R1 ^

<% Response.Buffer = true Response.Clear

dim url Dim fso,fl,flsize 2 \: S* }+ g/ b2 d. Pdim Dname Dim objStream,ContentType,flName,isre,url1 '*********************************************调用时传入的下载文件名 Dname=trim(request("n")) '****************************************************************** If Dname<>"" Then 1 T- n* u# Z' Z- {' x. M'******************************下载文件存放的服务端目录 url=server.MapPath("/")&"\"&Dname - [# @2 ~- o, p'*************************************************** - V$ S# R: ]" v4 R' i! D( GEnd If

Set fso=Server.CreateObject("Scripting.FileSystemObject") Set fl=fso.getfile(url) flsize=fl.size , |0 i9 \$ k1 r2 I2 D% Y; S flName=fl.name Set fl=Nothing / C* @+ h$ m+ c+ I, L Set fso=Nothing , y1 n8 @# j' X%> <% 1 d2 V! c! \$ c0 T7 b7 |8 ^) Q2 |& A Set objStream = Server.CreateObject("ADODB.Stream") & _: y- z) Z6 o/ g* Y# V& { objStream.Open 3 {0 q; v/ c. j. y& w5 ^7 j objStream.Type = 1 objStream.LoadFromFile url

% r; R \4 H1 c* y. H0 ^0 I# R1 W

Select Case lcase(Right(flName, 4)) Case ".asf" 5 _2 B0 x5 j- S# n9 ]0 x ContentType = "video/x-ms-asf" Case ".avi" ContentType = "video/avi" 9 ]+ `& E" w7 v, } Case ".doc" ContentType = "application/msword" Case ".zip" % _/ B7 P3 k; w9 F# s ContentType = "application/zip" Case ".xls" ContentType = "application/vnd.ms-excel" 9 j+ X9 i& s1 i! Q5 u" J' n1 f( y Case ".gif" ContentType = "image/gif" ) ]) ^/ K- A( X D Case ".jpg", "jpeg" " I# B* m$ I6 w. o3 E ContentType = "image/jpeg" , {' D% L B6 i, A8 Z6 t Case ".wav" ContentType = "audio/wav" Case ".mp3" ContentType = "audio/mpeg3" 5 `/ m6 I$ q6 G2 K5 ?1 h B9 ~ Case ".mpg", "mpeg" 3 i0 s% q. T& I' F. k, r ContentType = "video/mpeg" Case ".rtf" ContentType = "application/rtf" ; J! i5 f6 s" i& e" L" C Case ".htm", "html" * H2 l% J5 p* j ContentType = "text/html" 0 ~& S8 e1 ~. ~$ W! A' S- [7 E* [ Case ".txt" ContentType = "text/plain" ) `# ~+ t d: B& A6 c" E' w5 } Case Else 3 ]: |2 C2 c" ]; U5 F/ x. S G ContentType = "application/octet-stream" 2 ]2 g1 R$ G7 a* c9 J* L End Select

. Q: p0 c- s2 g

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

1 e8 D7 J) r+ ~9 L4 F4 B' I

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

Response.BinaryWrite objStream.Read Response.Flush ! e+ a, k1 T k response.Clear() 5 w# s6 s. k- C; a) e objStream.Close Set objStream = Nothing

p2 z9 u) W2 G+ e

%>

将下面的东西存成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>数据库后得到路径

' v# K0 {6 P# ] [# z; F, M

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

' o$ T7 p7 ], _8 G! d" Y9 a6 N U

if instr(Request.ServerVariables("HTTP_REFERER"),"http://你的_blank>域名")=0 then Response.End 7 l% E- S2 g0 _$ a# Oend if

4 a$ n `* i; c4 @2 v- o

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