批量下载多文件方法

冰河非非 · 发表于 2021-12-19 21:01:47

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

For i = 1 to 10

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

Next

如何批量下载这些地址？

xuanxiao · 发表于 2021-12-20 11:15:37

*************************
.....................
while not rs.eof
response.write "<a href=""download.asp?file=" & Server.UrlEncode(filename) & """>下载</a><br>"
rs.movenext
..............................
下面是download.asp
<%
Dim strFile
strFile = Request.QueryString("file")
If strFile <> "" Then
Response.Buffer = False
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objStream.LoadFromFile("F:\ttasp" & strFile)
Response.ContentType = "application/x-unknown"
Response.Addheader "Content-Disposition", "attachment; filename=" & strFile
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
End If
%>

复制代码

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

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)