Code for downloading files using stream in ASP

Save the following content as download. asp
Then you can use <a herf = "http://xxx.xxx.com/download.asp? N=file.doc "> download! </A>
To download it!
------------------------------------------------------------
<%
Response. Buffer = true
Response. Clear
 
Dim URL
Dim FSO, FL, flsize
Dim dname
Dim objstream, contenttype, flname, isre, url1
'*************************************** * ***** The downloaded file name passed in during the call
Dname = trim (Request ("N "))
'*************************************** ***************************
If dname <> "then
* Download the server directory where the file is stored.
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
 
%>

This article from the csdn blog, reproduced please indicate the source: http://blog.csdn.net/vince6799/archive/2006/05/03/706700.aspx