利用ADODB.Stream使用浏览器下载服务器文件

download.asp?file=相对路径的文件
就可以把这个文件下载下来
<%    
2    
3 call downloadFile(replace(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("<h1>Error:</h1>" & strFilename & " does not exist<p>")    
33 Response.End    
34 end if    
35    
36    

补充：asp教程,高级应用