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

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