查看: 2368|回复: 0

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

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

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

|招呼Ta 关注Ta

在_blank>浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在_blank>浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法：7 I% r+ T" l' D4 X 1、设置你的服务器" target=_blank>服务器的iis，给doc等后缀名做映射 , g9 Z; B* A; P0 ?7 d& q: W2、在向客户端发送时设置其contenttype

下面详细说明方法2

<%' T4 ~1 H, U% | Response.Buffer = true 0 h. m5 q0 u5 y- p2 s: U9 hResponse.Clear

dim url7 }& G* {, m$ h3 F5 U! V- k Dim fso,fl,flsize% I" L* m$ Q0 _" O( u2 } dim Dname$ o' v7 ^# k9 t1 l% S0 g Dim objStream,ContentType,flName,isre,url19 A1 A/ y2 g3 C '*********************************************调用时传入的下载文件名 1 N- n& _; C4 w3 pDname=trim(request("n")) ; R6 q* y$ g2 \'******************************************************************2 `# {1 n% x% t) _ If Dname<>"" Then, M) J5 ?: m* F- k$ G4 M( H2 c '******************************下载文件存放的服务端目录2 |0 K# B9 k1 C1 O url=server.MapPath("/")&"\"&Dname & v! Q- v2 ~8 Q7 Y4 i4 n/ p6 O! O'*************************************************** ) e1 Y4 h- l4 J7 K& R: zEnd If

Set fso=Server.CreateObject("Scripting.FileSystemObject")+ ?- g; t) y6 \. k' ~' J7 s Set fl=fso.getfile(url) # N4 c [7 I" w3 p# E0 K( b flsize=fl.size2 ~6 s. w: _# `, g0 M# d flName=fl.name 1 a: o0 ]4 `4 g- J- k; b/ N Set fl=Nothing # m& v d, ]8 ]4 s+ D8 b; H4 m Set fso=Nothing6 I8 o# B$ r3 ` %>+ d. G4 ^- K& P; c: V$ x <% 3 @/ j, X! x$ ] Set objStream = Server.CreateObject("ADODB.Stream") a# D" |8 o5 v/ p# t' B objStream.Open 0 @; u3 j4 }" R objStream.Type = 1. }7 L( c3 d& W8 D objStream.LoadFromFile url

. m! O$ J, @) `- G$ K! O, l Select Case lcase(Right(flName, 4)) 1 K+ Z K9 Z y; h0 c Case ".asf" @$ ^ P/ o0 w( ?& y h6 Y9 n ContentType = "video/x-ms-asf" 9 ^, w( s3 j: |) j; A9 f5 C k# M' ]7 o Case ".avi" : r! Z6 R" K! S' E9 n ContentType = "video/avi" * Y, f9 z/ ]& ? Case ".doc" ( |' Z$ ~. W2 i9 e ContentType = "application/msword"6 G7 S% E, }+ s Case ".zip" 3 e6 x2 B1 k- T# y) N3 ^0 a2 i t ContentType = "application/zip" r/ `8 ?* V+ e ]$ h* } Case ".xls" 1 i d8 V( A. ]/ _; m5 T ContentType = "application/vnd.ms-excel" , }/ u! \ C3 [; {% l Case ".gif" ; {6 L* t/ D) L4 C6 N& Q ContentType = "image/gif" R, A+ K+ A) W Case ".jpg", "jpeg". A' A$ p& e1 f0 j0 q% B+ C9 E ContentType = "image/jpeg"+ ~5 L+ {- [0 K/ m Case ".wav" 4 x i* H9 n, Q! ?4 m1 c4 J ContentType = "audio/wav"( m3 Z8 [1 m0 f7 J4 w5 p Case ".mp3" 2 ^4 K( [+ `( F1 @/ D ContentType = "audio/mpeg3" 2 U! v+ q) v* R2 h9 y- w/ D Case ".mpg", "mpeg"4 {" i* y: j2 {0 N ContentType = "video/mpeg"' P6 q% H- i7 b# g Case ".rtf"6 v$ Q. k* b( `# C* b- l/ H ContentType = "application/rtf" 3 U* q0 Z7 U$ F) P Case ".htm", "html" ) @% K5 \# K, B+ k* t- X5 l9 H/ U3 { ContentType = "text/html"( m O4 x' b9 }$ N4 D Case ".txt"( S, n+ r9 d& p/ G2 g$ T4 a w+ U ^ ContentType = "text/plain"6 }4 k" H; q( ^: g. ~4 m; S# r Case Else ( y; H5 F) @( g6 Z) S5 C, f5 ` Z ContentType = "application/octet-stream"/ X: n/ D% w: B6 _$ c End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName6 A# z0 @' {) [9 N* O Response.AddHeader "Content-Length", flsize

Response.Charset = "UTF-8"- {% B$ k+ k6 f& g1 w+ C- j8 H Response.ContentType = ContentType

Response.BinaryWrite objStream.Read 8 `# R! l6 { f, ?$ n- o Response.Flush % v9 V, ` L: ^+ `7 T# }- y response.Clear(): y7 \8 v3 L: X! d4 i' k1 I objStream.Close* F/ H& S1 X* V( K, G- o 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 then7 d6 p* J; y+ @0 s0 o& d* X0 s Response.End " b6 w* g8 j) O$ `end if

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

zan