Como veran no tengo mucha idea de ASP pero me gustaria entender si este codigo me permite "obtener" el fuente de una pagina asp de algun otro sitio (Obviamente con fines educativos.... ok?) Yo lo probe para descargar una pagina de mi propio sitio(poniendo la ubicacion fisica de los archivos: "e:\resadmin\aeaweb\pepito.asp") y funciona pero creo que lo que me impide bajar cualquier fuente asp es justamente que no tengo esta informacion de sitios ajenos, es asi ??
<%
'******************************************
' Archivo: asp_download.asp
' Autor: [OMG]
' Email: [email protected]
' Url: http:\\www.ayudaasp.com
'******************************************
%>
<%
f_download("asp_download.asp")
function f_download(archivo)
Response.Buffer = True
Response.Clear
'directorio que contiene los archivos
ruta = Server.MapPath("/examples/" & archivo)
set fso = Server.CreateObject("Scripting.FileSystemObje ct")
set file = fso.OpenTextFile(ruta, 1, False)
If fso.FileExists(ruta) Then
'forma de guardar el archivo
Call Response.AddHeader("Content-Disposition", "attachment; filename=" & ruta)
Response.ContentType = "application/octet-stream"
While Not file.AtEndOfStream
Response.Write(ChrB(Asc(file.Read(1))))
Wend
Else
Response.write "Archivo no encontrado"
End If
file.Close
set file = nothing
set fso = nothing
end function
%>
Gracias, y recuerden que es solo con fines educativos... Obvio.
