Función para esconder el path real de nuestras imágenes.
Código:
<%
function enseñame_la _imagen_mentirosa(a)
Set fso = CreateObject("Scripting.FileSystemObject")
'path de la imagen
caminito="/imagenes/"&a
'se comprueba que la imagen existe
If fso.FileExists(server.mappath(caminito)) Then
Set dibujito = fso.GetFile( server.MapPath(caminito))
'SE COPIA LA IMAGEN A UN DIRECTORIO TEMPORAL
dibujito.Copy (request.ServerVariables("APPL_PHYSICAL_PATH")&"/temp/"&a
'sale la imagen copiada
response.write "<img src='/temp/"&a&"'>"
else 'si no existe la imagen original, saca una genérica
response.write"<img src='/imagenes/no_imagen.gif'>"
end if
set fso=nothing
end function%>
Y se le llama así
Código:
<%call enseñame_la _imagen_mentirosa("imagen_a_copiar.jpg")%>
para borrar las imágenes del directorio temporal, basta poner en la página índice,
o mejor si hay una intro en flash o algo así ésto para que lo haga en segundo plano
Código:
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("/temp/"))
Set fc = f.Files
For Each f1 in fc
'borra las imágenes con más de 1 minuto de vida
if (minute(now()-f1.DateLastAccessed)>=1) then
f1.delete
end if
Next
%>
sé que es algo más pesado que enseñar al imagen a secas, pero quien algo quiere,
algo le cuesta.
SALUDOS,