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

韩冰

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

/ t( ]& u6 j: l+ M$ u2 C% e

下面详细说明方法2

<% ) d( L- s0 X* W8 [. H0 s4 s4 qResponse.Buffer = true 9 {: u- N0 h7 v9 JResponse.Clear

9 V3 T7 {1 x' J3 T- l

dim url # h1 @1 m. E7 cDim fso,fl,flsize - d! E, m6 j5 b1 }2 adim Dname Dim objStream,ContentType,flName,isre,url1 5 R# U% q4 z. E4 y! y'*********************************************调用时传入的下载文件名 " l+ W! ~0 d: D t9 A' d1 YDname=trim(request("n")) 9 F6 f" C/ m5 O# q% A2 s1 c' @* F'****************************************************************** 8 C4 r6 @# F/ T+ L0 i( Q+ F. dIf Dname<>"" Then 1 A' \1 }/ h+ ^* Y* B% ?3 C'******************************下载文件存放的服务端目录 url=server.MapPath("/")&"\"&Dname 5 ~! {. X3 D; O( Z* x7 E2 t'*************************************************** + ?7 n. H2 X: q# FEnd If

& N7 S. M* j/ W) @

Set fso=Server.CreateObject("Scripting.FileSystemObject") Set fl=fso.getfile(url) : V2 f0 g3 y# f8 G& [7 Q7 \ W& W flsize=fl.size flName=fl.name ! N7 e3 @) A0 L" n: _& t( ^ Set fl=Nothing Set fso=Nothing %> <% ; `/ l1 j; z) ~/ a7 X9 I Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open , j7 e' p, M6 \& u. N objStream.Type = 1 objStream.LoadFromFile url

9 y5 ]$ D8 s0 F0 S3 ~7 Z

& \. n& A8 e9 k+ D/ x* U/ x7 \ Select Case lcase(Right(flName, 4)) " F! ]5 Q& O. t2 E Case ".asf" ContentType = "video/x-ms-asf" Case ".avi" ContentType = "video/avi" Case ".doc" ContentType = "application/msword" Case ".zip" ContentType = "application/zip" Case ".xls" * E3 I( p; @6 w" a ContentType = "application/vnd.ms-excel" + ~4 q7 p! i7 z# W8 p, c0 t Case ".gif" 9 ~# \# b0 ~ f% S. B* k) _ ContentType = "image/gif" & u$ D0 a! G" o: n. m$ M2 c& P1 @ Case ".jpg", "jpeg" ContentType = "image/jpeg" Case ".wav" $ O, F7 r+ Y! ?- H8 N% s! b ContentType = "audio/wav" # \) w* {5 R9 @8 a+ l5 C Case ".mp3" 1 ^2 D$ y4 f) a, E( s- i ContentType = "audio/mpeg3" 3 H, f' d6 p+ m0 U( Z0 @# d Case ".mpg", "mpeg" ContentType = "video/mpeg" ! {- I- l3 Y$ B: z) X3 R- x Case ".rtf" ) P8 H1 ?, L: p) q- [1 O ContentType = "application/rtf" 4 r3 {: J! ?. s, w( |# X5 `) Z Case ".htm", "html" ContentType = "text/html" : L, i; t3 { }# v Case ".txt" 2 I* M3 T- l; K" g0 e) w ContentType = "text/plain" Case Else ContentType = "application/octet-stream" End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName : r4 q9 k! `4 S$ } Response.AddHeader "Content-Length", flsize

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

Response.BinaryWrite objStream.Read 3 f/ C! z4 G" c& W( ` Response.Flush # Y$ S0 l9 j$ D7 S4 { response.Clear() objStream.Close ) z' f7 X, q* |* g* f" Y: D1 j Set objStream = Nothing

$ m5 d/ x1 Q9 c( u+ F& N

%>

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

: y+ }3 t8 `$ A. q/ w

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

# a z9 N, K6 Q8 g% C2 \7 f6 z$ r0 W

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

9 ]# D3 h* A% o) z% ]6 _+ `

if instr(Request.ServerVariables("HTTP_REFERER"),"http://你的_blank>域名")=0 then & t7 V5 ]& F2 N, B6 r5 w5 L Response.End 4 I8 N( e) B2 I1 z4 H+ K/ t% o) fend if

: P9 r9 }8 J0 T% g. e& w

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