Red de conocimiento informático - Computadora portátil - El problema de cambiar nombres de archivos y generar archivos en ASP

El problema de cambiar nombres de archivos y generar archivos en ASP

ASP utiliza descargas de archivos de salida en streaming.

La ruta completa aquí es la ruta completa específica al archivo de salida.

Función descargar archivo (ruta completa)

downloadfile = false

dim strfilename, s, fso, f, intfilelength

set FSO = server . createobject(" scripting . file system object ")

Si no es fso.fileexists (ruta completa),

Salga de la función

Si... entonces terminará

set f = fso.getfile(ruta completa)

Obtener tamaño de archivo

intfilelength = f.size

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

s.open

s.type = 1

s.loadfromfile(full) ruta)

response.buffer = true

Response.clear

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

respuesta .addheader "content-length", "attachment; filename = " ampf.name

respuesta .add header "content-length", intfilelength

respuesta.contenttype = "aplicación/flujo de octetos"

en lugar de s.eos

respuesta, escritura binaria s (1024 * 64)

respuesta.refresh

Aceptar

Cerrar

Establecer s = Ninguno

descargar archivo = verdadero

Finalizar función