Tema: Descargar archivos servidor ASP
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 09/04/2010, 12:16
Avatar de Myakire
Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 2 meses
Puntos: 146
Respuesta: Descargar archivos servidor ASP
Modifica este código para hacer tus pruebas:

Código ASP: 
Ver original
  1. <&#37;
  2. Set objStream = Server.CreateObject("ADODB.Stream")
  3. objStream.Open
  4. objStream.Type = adTypeBinary
  5. objStream.LoadFromFile strFilePath
  6. strFileType = lcase(Right(strFileName, 4))
  7. Select Case strFileType
  8.   Case ".asf"
  9.     ContentType = "video/x-ms-asf"
  10.   Case ".avi"
  11.     ContentType = "video/avi"
  12.   Case ".txt"
  13.     ContentType = "text/plain"
  14.   Case ".doc"
  15.     ContentType = "application/msword"
  16.   Case ".zip"
  17.     ContentType = "application/zip"
  18.   Case ".xls"
  19.     ContentType = "application/vnd.ms-excel"
  20.   Case ".gif"
  21.     ContentType = "image/gif"
  22.   Case ".jpg", "jpeg"
  23.     ContentType = "image/jpeg"
  24.   Case ".wav"
  25.     ContentType = "audio/wav"
  26.   Case ".mp3"
  27.     ContentType = "audio/mpeg3"
  28.   Case ".mpg", "mpeg"
  29.     ContentType = "video/mpeg"
  30.   Case ".rtf"
  31.     ContentType = "application/rtf"
  32.   Case ".htm", "html"
  33.     ContentType = "text/html"
  34.   Case ".asp"
  35.     ContentType = "text/asp"
  36.   Case ".pdf"
  37.     ContentType = "application/pdf"
  38.   Case Else
  39.     'Handle All Other Files
  40.     ContentType = "application/octet-stream"
  41. End Select
  42. Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
  43. Response.AddHeader "Content-Length", strFileSize
  44. Response.Charset = "UTF-8"
  45. Response.ContentType = ContentType
  46. Response.BinaryWrite objStream.Read
  47. Response.Flush
  48. objStream.Close
  49. Set objStream = Nothing
  50. %>