Descargar archivos asp

Descargar archivos asp

Solucionar problemas con tildes en descargas, en textos mostrados
Ambos archivos con codificación UTF8-BOM

Página de vínculo:  xxx.asp

<!DOCTYPE html>
<html>
<head>
   
<%Response.CodePage = 65001%>
<%Response.CharSet = "utf-8"%>


<a href='download.asp?file=" &   nombre_archivo.Name  & "&carp=" &   Subcarpeta.Name   & "' target= '_blank'>"

Página de descarga:  download.asp

Atención: No devolver nada en esta response… , o se mete en la cabcera del archivo.
Tampoco head ni metas.

<%Response.CodePage = 65001%>
<%Response.CharSet = "utf-8"%>

 <%if (session("autentificado") = "999")   then
	response.Redirect("index.asp")
  end if%>
 <%
 Const adTypeBinary = 1
  Dim RutaFichero
archivo=  Request.QueryString("file")
carpeta= Request.QueryString("carp")
   archivo2=Replace(archivo, "'", " ")
   archivo3=Replace(archivo2, "/", " ")
   archivo4=Replace(archivo3, "\", " ")
   archivo5=Replace(archivo4, "&", " ")
   archivo6=Replace(archivo5, ":", " ")
     ' archivo7=Replace(archivo6, "(", " ")
   'archivo8=Replace(archivo7, ")", " ")
  archivo9=Replace(archivo6, "ch(", " ")
   archivot=Replace(archivo9, ";", " ")
    RutaFichero = session("ruta")   & carpeta & "/"  & archivot
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.CharSet = "ISO-8859-1"
   objStream.Open
   objStream.Type = adTypeBinary
   objStream.LoadFromFile RutaFichero
      Response.AddHeader "Content-Disposition", "attachment; filename=" & archivot 
   Response.BinaryWrite objStream.Read

  objStream.Close
   Set objStream = Nothing
   %>

Deja una respuesta