Como veo el Codigo Fuente de un fichero ASP?

leonardo308 · #1 (**permalink**) 14/12/2011, 14:28

Buen dia, tengo el acceso de subir archivos a un servidor asp, mas no a descargarlos entonces quiero ver un codigo de un archivo asp y no puedo, lo estoy haciendo de la siguiente manera: cree un archivo asp con el siguiente codigo
<%
strArchivo = request("file")
Response.AddHeader "Content-Disposition", "attachment; filename=" & strNombreArchivo
Response.ContentType = "text/asp"
Server.Transfer(strArchivo)
%>

y lo llame download.asp, entonces lo subo al servidor al lado del archivo que quiero descargar escribo en la url : lapagina.com/download.asp?file=el_archivo.asp
y bien si lo descarga pero no el codigo asp que es lo que quiero. me pueden ayudar???

phillipecw · #2 (**permalink**) 14/12/2011, 19:30

Hola.

A ver si te sirve este código:

Código ASP:

Ver original<%
  Dim getFileName
  getFileName = "file.asp"
 
  Dim URL
  URL = Server.MapPath(".") & "/" & getFileName
 
  Dim objXMLHTTP
  Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objXMLHTTP.Open "GET", URL, false
  objXMLHTTP.Send
 
  Response.Write "<textarea name=""CodeView"" id=""CodeView"" rows=""20"">"
  Response.Write objXMLHTTP.responseText
  Response.Write "</textarea>"
 
  Set objXMLHTTP = Nothing
%>

No es para descargar el archivo, sino para mostrar el código en un <textarea>.

Saludos.