Como veo el Codigo Fuente de un fichero ASP?

[phillipecw]

Hola.

A ver si te sirve este código:

Código ASP:

<%
  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.