asp中使用流方式下載下傳檔案的代碼

<%  

Response.Buffer  =  true  

Response.Clear  

           dim  url  

           Dim  fso,fl,flsize  

           dim  Dname  

           Dim  objStream,ContentType,flName,isre,url1  

'*********************************************調用時傳入的下載下傳檔案名  

           Dname=trim(request("n"))  

'******************************************************************  

           If  Dname<>""  Then  

'******************************下載下傳檔案存放的服務端目錄  

                       url=server.MapPath("/")&"\"&Dname  

'***************************************************  

           End  If  

           Set  fso=Server.CreateObject("Scripting.FileSystemObject")  

                       Set  fl=fso.getfile(url)  

                       flsize=fl.size  

                       flName=fl.name  

                       Set  fl=Nothing  

                       Set  fso=Nothing  

           %>  

           <%  

                       Set  objStream  =  Server.CreateObject("ADODB.Stream")  

                       objStream.Open  

                       objStream.Type  =  1  

                       objStream.LoadFromFile  url  

                                   Select  Case  lcase(Right(flName,  4))  

                                               Case  ".asf"  

                                                           ContentType  =  "video/x-ms-asf"  

                                               Case  ".avi"  

                                                           ContentType  =  "video/avi"  

                                               Case  ".doc"  

                                                           ContentType  =  "application/msword"  

                                               Case  ".zip"  

                                                           ContentType  =  "application/zip"  

                                               Case  ".xls"  

                                                           ContentType  =  "application/vnd.ms-excel"  

                                               Case  ".gif"  

                                                           ContentType  =  "image/gif"  

                                               Case  ".jpg",  "jpeg"  

                                                           ContentType  =  "image/jpeg"  

                                               Case  ".wav"  

                                                           ContentType  =  "audio/wav"  

                                               Case  ".mp3"  

                                                           ContentType  =  "audio/mpeg3"  

                                               Case  ".mpg",  "mpeg"  

                                                           ContentType  =  "video/mpeg"  

                                               Case  ".rtf"  

                                                           ContentType  =  "application/rtf"  

                                               Case  ".htm",  "html"  

                                                           ContentType  =  "text/html"  

                                               Case  ".txt"  

                                                           ContentType  =  "text/plain"  

                                               Case  Else  

                                                           ContentType  =  "application/octet-stream"  

                                   End  Select  

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

                                   Response.AddHeader  "Content-Length",  flsize  

                                   Response.Charset  =  "UTF-8"  

                                   Response.ContentType  =  ContentType  

                                   Response.BinaryWrite  objStream.Read  

                                   Response.Flush  

                                   response.Clear()  

                       objStream.Close  

                       Set  objStream  =  Nothing  

%>  

本文轉自快樂就好部落格園部落格，原文連結：http://www.cnblogs.com/happyday56/archive/2008/01/21/1047093.html，如需轉載請自行聯系原作者