Use ADODB. Stream to download server files in a browser

Download. asp? File = file in the relative path
You can download this file.
<%
2    
3 call downloadFile (replace (Request ("file "),"",""),"/",""))
4    
5 Function downloadFile (strFile)
6 'make sure you are on the latest MDAC version for this to work
7 '-------------------------------------------------------------
8    
9    
10'get full path of specified file
11 strFilename = server. MapPath (strFile)
12
13
14 'clear the buffer
15 Response. Buffer = True
16 Response. Clear
17
18 'create stream
19 Set s = Server. CreateObject ("ADODB. Stream ")
20 s. Open
21
22 'set as binary
23 s. Type = 1
24
25 'load in the file
26 on error resume next
27
28
29 'check the file exists
30 Set fso = Server. CreateObject ("Scripting. FileSystemObject ")
31 if not fso. FileExists (strFilename) then
32 Response. Write ("33 Response. End
34 end if
35
36