【www.bbyears.com--浏览器】
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("
Error:
" & strFilename & " does not exist")
33 Response.End
34 end if
35
36