查看: 2372|回复: 0

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

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

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

|招呼Ta 关注Ta

在_blank>浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在_blank>浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法： 8 O8 s! {- V0 v E1、设置你的服务器" target=_blank>服务器的iis，给doc等后缀名做映射 - g' |) Z, L9 F: x6 J/ J) Q$ y+ d2、在向客户端发送时设置其contenttype

下面详细说明方法2

<% * V) {# }+ M/ K" Y' c& L1 O3 {! RResponse.Buffer = true + |3 v- P- [* V# d1 {/ F3 iResponse.Clear

dim url2 T" J% I! L9 v Dim fso,fl,flsize ; N, i" u" ~2 P& r" ydim Dname& \4 |7 u) t: h( H( q9 D8 r Dim objStream,ContentType,flName,isre,url1 1 F8 W6 m0 i4 o'*********************************************调用时传入的下载文件名 8 H4 C! j# H+ N7 t, c* E' t( y8 ZDname=trim(request("n")) 0 x4 W# X3 Y' w( `4 T'******************************************************************' W; i! f% k+ x- e0 Q& w; H If Dname<>"" Then & _1 T1 x! @3 F. K" Q' V/ W# c'******************************下载文件存放的服务端目录 - z( o/ D! V# W5 { url=server.MapPath("/")&"\"&Dname3 }- O: a* R& C& }& U2 L6 ~1 f$ f '***************************************************7 a* m8 W* F1 i End If

Set fso=Server.CreateObject("Scripting.FileSystemObject") 8 N7 H- a/ \) u7 { Z4 w Set fl=fso.getfile(url)" q* _+ Z. [. y* u flsize=fl.size# c& k; M$ t# |" i# d/ R* \2 [& G+ J flName=fl.name4 O4 Z" m" W6 D [8 I0 A# H/ h+ P s Set fl=Nothing # t+ R+ [) b" V( c Set fso=Nothing ) m" k. g- E" Y%> 8 d+ H! x+ `' { s<% N# l* Y# ?, e8 \6 ]( } Set objStream = Server.CreateObject("ADODB.Stream")8 Q3 v# {; L) K9 o% Q objStream.Open 1 L. X2 q* o$ H3 v$ T2 ~6 K objStream.Type = 1( }6 ]# L) N* k0 a; I objStream.LoadFromFile url

) i8 p# @. a/ R Select Case lcase(Right(flName, 4))3 d% @4 u% F! s$ A Z Case ".asf"" ]$ g! F6 o6 B0 p; [ ContentType = "video/x-ms-asf" , `7 _8 s5 N, ` P L; N Case ".avi" ( f2 x& a% [5 k- f- G$ W3 \5 S ContentType = "video/avi"! U, [! V9 D+ ], F Case ".doc" & L3 u7 @$ `; B1 w) i& o4 ~ ContentType = "application/msword"+ O7 a+ w( f7 P$ r6 ] Case ".zip": v2 H6 U3 ^6 c5 _4 i8 s ContentType = "application/zip" 4 m' }1 J4 I0 }; U$ _0 r Case ".xls" - `5 d) H! a ?% _6 T5 s+ N ContentType = "application/vnd.ms-excel"+ F/ S4 E6 T# |# U' I9 N Case ".gif"* K. ?. {) @. E ContentType = "image/gif"/ {4 @1 H! v4 g l Case ".jpg", "jpeg"- I4 p* x, w9 P( t ContentType = "image/jpeg"' t5 M2 `' ?$ t/ g Case ".wav" . j9 z: g% W# B ContentType = "audio/wav" * E; w; A) U% R4 v" @& Z2 x Case ".mp3" $ y' [# G& h7 X' w3 J ContentType = "audio/mpeg3" $ D2 }5 L2 f/ ~) b% a* G Case ".mpg", "mpeg". d2 I) d! o; P% ~9 l4 y% Z ContentType = "video/mpeg", z1 d5 R" e Q$ Y Case ".rtf"8 @! y( b' M b$ @) u( L7 ^* W ContentType = "application/rtf"% |* P2 @! V# X u. d( X" l; H! G Case ".htm", "html"/ j$ |. ?/ Q; R: U9 M8 l. f. Z3 j ContentType = "text/html" 0 z) q$ l, \6 _% J# U+ B1 h Case ".txt"$ i! ^3 W: F- T ContentType = "text/plain"1 B" L* p' O% Z& f+ e Case Else # k- ^1 o( c8 D1 G2 _* x# S ContentType = "application/octet-stream") T$ ]2 i9 w+ |+ V; |' U End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName % B7 e& ], u9 O0 O% ?: l! V) T7 z Response.AddHeader "Content-Length", flsize

Response.Charset = "UTF-8": B. r6 L3 b7 M) @. U! g% C5 {( K Response.ContentType = ContentType

Response.BinaryWrite objStream.Read , M5 K+ T6 E( @. f7 O% o6 k Response.Flush( I0 s: ^* }! ]% z7 `7 n8 f& _. r response.Clear() ; O( F( B+ I) _/ h4 y3 _) i objStream.Close W9 f& y" g6 g, ]1 |4 ?' U 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 then / N8 L: C& u" y% Q4 s4 _ Response.End * A: E! B5 W* K% U, [end if

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

zan