作者: chenyangasp 

  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 
37 ' get length of file 
38 Set f = fso.GetFile(strFilename) 
39 intFilelength = f.size 
40 
41 
42 s.LoadFromFile(strFilename) 
43 if err then 
44 Response.Write("<h1>Error: </h1>" & err.Description & "<p>") 
45 Response.End 
46 end if 
47 
48 ' send the headers to the users browser 
49 Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name 
50 Response.AddHeader "Content-Length", intFilelength 
51 Response.CharSet = "UTF-8" 
52 Response.ContentType = "application/octet-stream" 
53 
54 ' output the file to the browser 
55 Response.BinaryWrite s.Read 
56 Response.Flush 
57 
58 
59 ' tidy up 
60 s.Close 
61 Set s = Nothing 
62 
63 
64 End Function 
65 
66 %>