Código fuente Asp del archivo de carpeta

<a href=descargar.asp? Nombre de archivo = download.asp & gtguid.asp & lt/a & gt;

Guarde lo siguiente como: DOWNLOAD.ASP

& lt% @ idioma = VBscript % & gt

& lt%

Leer constante=1

const tristat true =-1

const ARCHIVO _ TRANSFERENCIA _ TAMAÑO = 16384

Respuesta. buffer=true

Archivo de transferencia de funciones (ruta, tipo MIME, nombre de archivo)

Sistema de archivos de objetos, archivo de objetos, secuencia de objetos

Caracteres atenuados

Dim Sent

Enviar=0

TransferFile = True

Establecer objFileSystem = Servidor. CreateObject("Script.FileSystemObject")

Establecer objFile = objFileSystem. Obtener archivo (ruta)

Establecer objStream = objFile. OpenAsTextStream(ForReading, TristateTrue)

Respuesta. AddHeader "tipo de contenido", respuesta mimeType

. AddHeader "content-disposition", "attachment; filename = " & amp filename

respuesta. AddHeader "longitud del contenido", objFile. Talla

No hacer. AtendoStream

char = objStream. Leer(1)

Respuesta. Escritura binaria (caracteres)

Enviado = Enviado + 1

Si (Tamaño de transferencia de archivo modificado enviado) = 0, entonces

Respuesta. Sonrojarse

Si no hay respuesta. ¿Estaba conectado en ese momento?

TransferFile = False

Salir Do

Terminará si...

Terminará si ...

Ring

respondió. Sonrojarse

Si no hay respuesta. IsClientConnected Luego transfiera el archivo = False

objStream. Cerrar

Establecer objStream = Nothing

Establecer objFileSystem = Nothing

Finalizar función

Atenuar ruta, mimeType, sucess, downfilename

downfilename=request("nombre de archivo")

ruta=servidor. MapPath(downfilename)

mimeType="text/plain "

éxito = transferir archivo (ruta, mimeType, downfilename)

Respuesta. Fin

% & gt