我需要在向服务器发出一个请求时将两个文件流回浏览器。这是我目前用于流式传输一个文件的内容:
Private Sub DownloadFile(strFile, strFileName)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objStream.LoadFromFile(strFile)
Response.ContentType = "application/octet-stream"
Response.Addheader "Content-Disposition", "attachment; filename=" & strFileName
Do While Not objStream.EOS
Response.BinaryWrite objStream.Read(1024 * 256)
Loop
objStream.Close
Set objStream = Nothing
End Sub
哪个效果很好,但是当我尝试这样做时:
Call DownloadFile(File1, FileName1)
Call DownloadFile(File2, FileName2)
我只收到第一个发送到浏览器的文件。
任何人都知道如何在一个请求中发送两个文件?
我需要将这些文件作为单独的文件保留,因此我不确定是否会将它们组合成一个流。