批量下载多文件方法

如题：批量下载多文件方法

For i = 1 to  10

文件地址：   Filename="../user/upload/"&rs(0)&"/"&rs(1)

            

Next

如何批量下载这些地址？

1. 
   
2. *************************
   
3. .....................
   
4. while not rs.eof
   
5. response.write "<a href=""download.asp?file=" & Server.UrlEncode(filename) & """>下载</a><br>"
   
6. rs.movenext
   
7. ..............................
   
8. 
   
9. 下面是download.asp
   
10. <%
    
11. Dim  strFile
    
12. 
    
13. 
    
14. strFile = Request.QueryString("file")
    
15. 
    
16. If strFile <> "" Then
    
17. 
    
18.     Response.Buffer = False
    
19.     Dim objStream
    
20.     Set objStream = Server.CreateObject("ADODB.Stream")
    
21.     objStream.Type = 1 'adTypeBinary
    
22.     objStream.Open
    
23.     objStream.LoadFromFile("F:\ttasp" & strFile)
    
24.     Response.ContentType = "application/x-unknown"
    
25.     Response.Addheader "Content-Disposition", "attachment; filename=" & strFile
    
26.     Response.BinaryWrite objStream.Read
    
27.     objStream.Close
    
28.     Set objStream = Nothing
    
29. 
    
30. End If
    
31. %>
    
32. 
    
33. 
    
34. 
    

复制代码

循环列出，用户就可以点击下载。