ASP utiliza la descarga de archivos de salida en streaming

<%
' 下载文件
función downloadfile(ruta completa)

downloadfile = false

dim strfilename, s, fso, f, intfilelength

set fso = server.createobject("scripting.filesystemobject")

si no es fso.fileexists(ruta completa) entonces

finalizar

la función de salida

se establece f = fso.getfile(fullpath)

'获取文件大小

intfilelength = f.size

set s = server.createobject("adodb.stream")

s.open

s.type = 1

s.loadfromfile(fullpath)

respuesta .buffer = true

respuesta.clear

'response.addheader "Codificación de contenido", "GB2312" ' 乱码的解决方案

'response.addheader "tipo de contenido", "aplicación/x-msdownload"

respuesta.addheader "disposición de contenido" ,"attachment;filename=" & f.name

respuesta.addheader "content-length" ,intfilelength

respuesta.contenttype = "application/octet-stream"

mientras no sea s.eos

respuesta.binarywrite s.read(1024 * 64)

respuesta.flush

wend

s.close

set s = nada

downloadfile = verdadero
función final
%>