Thumbnail en asp sin componentes

[yomesmo]

Como dicen en mi pueblo: "El que espera,desespera". Perdona el retraso, ando con mucha carga de trabajo y apenas tengo tiempo, pero aportar en este foro es importante para mi, máxime cuando siempre encuentro respuestas a mis dudas y problemas en la programación. (Es el mejor foro para programadores que conozco)

Os voy a pasar la aplicación completa (Solo para quienes tengan algo de exeperiencia en ASP), más que nada porque ahora estoy muy liado para explicaros con mucho detalle el código y como funciona, espero que me disculpeis...

Os resumo la aplicación:

Esta pensada para que automaticamente detecte cualquier componente de Upload o thumbnail que tenga instalado vuestro servidor de hosting, no teneis que tocar nada, lo autodetecta. De esta forma, si tienes el PEPELECHES_UPLOAD utilizará ese componente, lo mismo para los thumbnails. Pero si no tiene¡s ninguno instalado, se ejecutará el .apsx.
Tu solo tienes que decirle a que tamaño quieres que te redimensione las fotos en tamaño grande (Yo por ejemplo siempre las pongo a 400 px para que encajen perfectamente en las webs, que las suelo diseñar con un ancho de 750 px) y los thumbnails (100 px es lo usual), el programa redimensiona la foto subida a ambas medidas, creando las dos nuevas fotos con las medidas que indicamos.
Pero si se deja en blanco alguno de los campos, pues no redimensiona o no genera los thumbnails, es una especie de "interruptor" (OFF-ON). Este código ha sido adaptado por mi persona con el Dreamweaver, que es mi herramienta de trabajo,, y soy muy desordenado, por lo que no os asusteis si parece algo caótico.... El caso es que funciona y apenas consume recursos del servidor.

¿Qué hay que hacer?

1.- No hay que ir a ninguna universidad para colocar este código en tuweb, pero trataré de explicarlo con sencillez.
2.- Hay una serie de ficheros, todos deben de estar en una misma carpeta
3.- yo lo que hago es poner como "INCLUDE" el fichero:
i_redimensionar_images.asp en donde quiero que se suban las fotos, que obviamente es la página donde se recibiran los datos del formulario en cuestión. El formulario se debe llamar_ "ADD_DATA" y la acción deber ser esta: <%=MM_editAction%>, que es una pequeña función que no tengo ganas de explicar, pero que es una gilipollez indispensable. El campo donde se recoge la imágen en el formulario debe ser tipo "fichero",ya sabeis, de esos que te aparece el botoncito de "explorar". y se puede llamar como se os ponga en la punta, yo siempre lo llamo: "foto"
4.- 'los campos del formulario se recogen con este formato: campo = (CStr(UploadFormRequest("campo"))) - Porque como de todos es sabido, no se pueden recoger los valores de los campos de un formulario con un response si el formulario es un enctype="multipart/form-data".
5.- Hay que poner tambien donde se ponga el INCLUDE, este código:
<script language="javascript" src="incPureUpload.js"></script>, porque hay unas funciones en java script que comprueban que los datos que se estan recogiendo del formulario son en formato correcto (.gif - .jpge - .bmp - etc...)
6.- Para que se ejecuten las funciones anteriores en java script, lo suyo es que el campo del formulario donde se selecciona la imágen de tu disco duro sea algo así:

<input name="foto" type="file" id="foto" onChange="checkOneFileUpload(this,'GIF,JPG,JPEG,BM P,PNG',false,'','','','','','','')" size="50">



Parámetros:

'Colocar en fichero de origen:
'nombre form: add_data, y ación: MM_editAction en ASP, y enctype="multipart/form-data"
' Madidas a redimensionar la foto, se declaran en las variables:
'Alto_IG = 350 'Alto max imag grande
'Alto_IP = 60 'Alto thumbnail
'Ancho_IG = 350 'Ancho max imag grande
'Ancho_IP = 60 'Ancho thumbnail
'ruta = "imagenes/anuncios/" 'Ruta de la carpeta donde se subiran las fotos
'IDFOTO puede ser una variable a utilizar si se quiere renombrar la imágen, por ejemplo para asignarle el ID de un anuncio de compraventa
'RUF_Suffix es el sufijo que se autopondrá al thumbanil
'Y tal y tal y tal...a disfrutarlo

Os pongo un link en el siguiente mensaje... Solo lo tendré colgado una semana, asi que aprovechar!!

[yomesmo]

Y este es el link para que os lo descargueis:

http://www.belloteros.com/Upload_ficheros.zip

[f_murciano]

Eres un fenómeno... ahora mismo voy a probar el código a ver que tal...

Reitero mi AGRADECIMIENTO!!!!

[renton]

Sisi i tanto!
Yo llevo toda la mañanita dandole a ver si sale!
Tengo algun problemilla que intentaré solucionar, sino ya os lo comento luego!

Merci yoyesmu!!

[yomesmo]

Ir colgando los errores, entre rato y rato os intentaré ayudar, vereis que no es complicado y quita muchos quebraderos de cabeza para cuando tienes que integrar este servicio en la web de un cliente y su servidor no tiene componentes.

[renton]

Ok gracias 'Yoyes' ;)

Yo consigo subir la foto correctamente, pero me aparece el siguiente mensaje:
Error: System.UnauthorizedAccessException: Access to the path "d:\domains\laieweb.com\wwwroot\1.jpg" is denied. at System.IO.__Error.WinIOError(Int32 errorCode, String str) at System.IO.File.Delete(String path) at ASP.ResizeImage_aspx.Page_Load(Object s, EventArgs e)

Y claro, no me crea el thumbnail.

en principio creo q es porque mi server solo acepta rutas virtuales.
He visto que el 'path' se recoge con el 'request("f")', pero si intento cambiar este recuest por, por ejemplo "img/1.jpg" (estatico por probar), y poniendo una imagen 1.jpg' dentro de la carpeta 'img', me salta el siguiente error:
Error: File (img/1.jpg) not found or empty.
Ves alguna posibilidad de modificarlo para que funcione? Yo llevo un rato probando, pero nada! :(

Merci champion!

PD: No se si está hecho adrede, creo q no, asi q te informo:
el la pagina 'i_redimensionar_imagenes.asp', en la segunda linea, el lugar de 'include' pone 'innclude', con lo que asp no lo interpreta. A ti te funciona bien asi?
Yo por si acaso lo he cambiado
SaludosSsSs

[yomesmo]

Ese error parece que es porque no tienes derechos de escritura en esa carpeta (La raíz de tu servidor virtual), todo indica que es eso, trata de escribir el fichero pero no puede.

No cambies el código, es un consejo, los request son problemáticos en esta aplicación, debes saber muy bien lo que tocas...

Lo del innclude es para anular la inclusión de ese fichero, de donde lo he copiado no lo precisaba, pero lo puedes modificar.

[sqa212]

Me baje el Zip, pero no consigo ver nada.
¿Que pagina es la pagina de incio?
Hay paginas que tienen esto: <!--#innclude file="incPUAddOn.asp" -->
¿No sobra una n en el include?

[renton]

sqa212, te has de crear tu la 'página principal' con el formulario siguiendo los pasos que dice Yomesmo.
Lo del innclude tambien lo ha explicado arriba! ;)

[sqa212]

Renton gracias por responder, pero sigue sin salirme bien.
He creado una pagina:
formulario.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
</head>
<body>
<form name="ADD_DATA" action="<%=MM_editAction%>">
<input name="foto" type="file" id="foto" onChange="checkOneFileUpload(this,'GIF,JPG,JPEG,BM P,PNG',fal se,'','','','','','','')" size="50">
<input type="submit">
</form>
</body>
</html>

Y otra pagina:
cogeform.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="i_redimensionar_images.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
</head>
<script language="javascript" src="incPureUpload.js"></script>
<body>
<%VarFoto= (CStr(UploadFormRequest("FOTO")))%>
</body>
</html>

ASI NO OCURRE NADA
renton te importa poner como deberian ir estos documentos correctamente??

Gracias por adelantado

[renton]

mira SQA212, yo he creado un archivo 'form.asp' con el siguiente codigo.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<!--#include file="upload_ficheros/i_redimensionar_images.asp"-->
<script language="javascript" src="upload_ficheros/incPureUpload.js"></script>
</head>

<body>
<form name="add_data" action="<%=MM_editAction%>" method="post" enctype="multipart/form-data"><br>
<input type "text" value="350" name="ALTO_IG"><br>
<input type "text" value="60" name="ALTO_IP"><br>
<input type "text" value="350" name="ANCHO_IG"><br>
<input type "text" value="60" name="ANCHO_IP"><br>
<input type "text" value="/img/photos" name="RUTA"><br>
<input type "text" value="porros" name="IDFOTO"><br>
<input type "text" value="petas" name="RUF_Suffix"><br>
<input name="foto" type="file" id="foto" onChange="checkOneFileUpload(this,'GIF,JPG,JPEG,BM P,PNG',fal se,'','','','','','','')" size="50">
<br>
<input type="submit" value="enviar" name="aa"><br>
</form>
</body>
</html>

(form.asp está en la raiz del servidor, y todos los archivos de yoyesmo en una carpeta llamada Upload_ficheros que cuelga de la raiz)

prueba a ver si te xusca bien!
Yo esta vez lo he probado en local y me sale el mismo error q antes pero en formato error ASP.NET:

HTTP ERROR: 500
Returned:

Error de servidor en la aplicación '/laieback'.
--------------------------------------------------------------------------------

El servidor no puede obtener acceso al directorio de la aplicación 'C:\Documents and Settings\Renton\Escritorio\laieback\'. El directorio no existe o no se puede obtener acceso al mismo debido a la configuración de seguridad.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.Web.HttpException: El servidor no puede obtener acceso al directorio de la aplicación 'C:\Documents and Settings\Renton\Escritorio\laieback\'. El directorio no existe o no se puede obtener acceso al mismo debido a la configuración de seguridad.

Error de código fuente:

Se ha generado una excepción no controlada durante la ejecución de la solicitud Web actual. La información sobre el origen y la ubicación de la excepción pueden identificarse utilizando la excepción del seguimiento de la pila siguiente.

Seguimiento de la pila:


[HttpException (0x80004005): El servidor no puede obtener acceso al directorio de la aplicación 'C:\Documents and Settings\Renton\Escritorio\laieback\'. El directorio no existe o no se puede obtener acceso al mismo debido a la configuración de seguridad.]
System.Web.HttpRuntime.EnsureAccessToApplicationDi rectory() +72
System.Web.HttpRuntime.FirstRequestInit(HttpContex t context) +263

[HttpException (0x80004005): Error de inicialización de ASP.NET]
System.Web.HttpRuntime.FirstRequestInit(HttpContex t context) +964
System.Web.HttpRuntime.ProcessRequestInternal(Http WorkerRequest wr) +128



Yoyesmo, tengo todos los permisos dados! Ademas tanto en el servidor como en local la foto sube correctamente (con lo cual el permiso de escritura esta bien dado, no?)

Joeer! q crees que deberia 'tocar'?

SaludosssSsS!!
(entre todos lo conseguiremos)

[yomesmo]

sqa212 leete bien mi anterior post, no has seguido practicamente ninguna de mis instrucciones, si te funcionara así, enciéndele una vela a San Prepucio...

¿Y los parámetros con las variables?
¿Y el código Java Script para validar el formulario?

En fin, leete bien el mensaje... Aunque creo que tendré que colgar un formulario de ejemplo, si eso voy a hacer... en el siguiente post os pongo un ejemplo, porque si no alguno se va a tirar semanas en esto...
No sé para que me tire todo el "sermón" explicando el funcionamiento en el mensaje anterior, si luego no se lee...

Un poquito de "por favor"...

[yomesmo]

Copiaros esto en la misma carpeta que donde tengais los ficheros y os creais una carpeta ahí mismo que se llame "imagenes" y luego me contais, acabo de probar algo tan sencillo como esto y funciona de perlas:

<%

'Datos sobre la imágen que se subirá en cada artículo de anuncios
Alto_IG = 350
Alto_IP = 60
Ancho_IG = 350
Ancho_IP = 60
ruta = "imagenes"
%>
<!--#include file="Upload_ficheros/i_redimensionar_images.asp" -->



<form ACTION="<%=MM_editAction%>" METHOD="post" enctype="multipart/form-data" name="add_data" id="add_data" onSubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,P NG',false,'','','','','','','');showProgressWindow ('Upload_ficheros/showProgress.html',300,300);return document.MM_returnValue;">
<input type=hidden name="AuctionId" value="<% =AuctionId %>">
<input type=hidden name="user_id" value="<% =user_id %>">
<table>

<tr>

<td class='dataTD' >
<input name="foto" type="file" id="foto" onChange="checkOneFileUpload(this,'GIF,JPG,JPEG,BM P,PNG',false,'','','','','','','')" size="50">


</td>
</tr>

</table>
<input type="submit" name="Submit" value="Enviar">
</form>

[yomesmo]

Ah, por si acaso, se copia el código y se guarda en un fichero con el nombre que querais, siempre y cuando termine en .asp (Por ejemplo: "ejemplo.asp")

[yomesmo]

renton, no has declarado las variables que indico en el mensaje primero, por eso no funciona, envias los datos desde el formulario, pero no los recoges y no los declaras como variables en ningún sitio... prueba con el ejemplo que te envio.

Ene ste ejemplo solo hay un campo de imágenes, si se quisiera poner campos de datos, no hay problema, solo recordar que se deben recoger con el

campo = (CStr(UploadFormRequest("campo")))

[omrios]

ya subi todo y al querer poner la imagen me marca:


msxml3.dll error '80072ee7'

The server name or address could not be resolved

/incResizeAddOn.asp, line 363


Me puedes ayudar con eso???

[yomesmo]

Es raro, aparentemente en tu ordenador o donde este probando el código no tienes instalado ninguno de los componentes que contempla el programa y "tira" del ASP.NET, pero debería haberte dado un error advirtiendo de que no lo tienes instalado, por lo que debería de funcionar bien...

¿Estás utilizando el formulario de ejemplo que he colgado antes? ¿Has creado la carpeta indicada para guardar las imágenes?

[omrios]

si utilice el formulario creado por ti..

y la carpeta tambien cree ... pensando que podian ser permisos de escritura ambie la carpeta y en las variables tambien lo cambe..

ruta = "cgi"

la carpeta puse la de CGI ..

y con cualquier a de los dos marca el mismo error..

[zolw]

Hola a todos:

Ya que el tema esta calientito, me puse a buscar otra opcion de galerias con redimencionamiento de imagenes sin componentes.

Encontre un script de ASP que utiliza para el cambio de tamaño un scripts de ASP.NET y funciona bastante bien.

Ya que lo voy a utilizar para mi tambien le agregue un script para que se puedan enviar notificaciones de comentarios con varios componentes.....en fin creo que es otra buena opcion.

Ya lo traduje al español aunque los comentarios del codigo siguen en ingles al igual que todas las noticias del autor y de copyright.

Si quieren ver un ejemplo:
http://test.mobmol.com/galeria_asp/album1.asp
http://test.mobmol.com/galeria_Asp/album2.asp

Si quieren descargar la version traducida y con envio de mails con varios componentes:
http://test.mobmol.com/galeria_asp/galeria.zip

Y si quieren ver y/o descargar el script original:
http://www.iloire.com/vbscript/onlin...g_vbscript.asp

Espero que les sirva.
Saludos,

[sabandija25]

según vi, el script que colocó zolw, funciona solamente para quienes tengan instalado ASP.NET... existe la posibilidad de adaptar este codigo a asp puro?

gracias

[zolw]

Hasta donde sé NO se puede hacer ese Script en ASP y que funcione con el mismo rendimiento.

Pero en practicamente todos los servidores de paga se puede trabajar con algun componente de imagenes para cambiar tamaño o colores o agregar texto.

Les recomiendo que en lugar de quebrarse el coco y "gastar" horas/hombre tratando de encontrar un codigo que permita hacer esto con ASP busquen un servidor que por pocos dolares al año les permitirá hacer esto con metodos eficientes y probados.

O la otra opcion que usen ASP.NET. Hay muchos servidores gratuitos con ASP y ASP.NET y que permiten eso.

Saludos,

[renton]

Yoyes!!
ME FUNCIONAA!!!!!!!!!!!!!
He probado tu formulario 'ejemplo.asp' en local y me funciona de lujo! Sube la imagen y sube también su copia reducida!

El único problema es que, cuando lo intento en el servidor, me aparece una pantalla del tipo:

NO SE PUEDE MOSTRAR LA PÁGINA
Hay un problema con la página solicitada y no puede ser mostrada..
....
...

Y solo me sube la imagen (osea, q no me crea el thumbnail).
La unica diferencia q encuentro entre local y server esq en local he dado permisos de escritura y modificación al usuario ASPNET, y en el server dudo que me los tengan dados (De hecho, si en local lequito a dicho usuario los permisos de escritura y modificacion, los thumbnails tampoco se crean).
Asñi pues, creo que la única solución será enviarles un mail a los del hosting pidiéndoles que le den permisos al usuario ASPNET, no?
¿Creeis que me los darán?

Quiero agradecer una vez mas la dedicación con la que Yoyesmo nos está obsequiando, sin el cual los ASP Thumbnails todavia serían una quimera.

Saludosssss!!
(y al fin ... la luz al final del túnel comienza a divisarse)

[f_murciano]

YOMESMO, eres un fenómeno... muchas gracias por lo que nos has enseñado, funciona todo perfectamente, y no es muy complicado, que eso tb es importante.

Gracias.

[engonga]

muy bueno el tema. Soys unos maestros.

[cmezauni]

SJAM 7:

Tu codigo es correcto.

Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")

carpeta=request.QueryString("carpeta")
if carpeta<>"" then
carpeta=carpeta&"/"
folder="galeria/"&carpeta
else
folder="galeria/"
end if

'nos selecciona la carpeta en la que esta el archivo

Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(folder))

'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & UCASE(ObjetoCarpeta.Name) & "</B>:<BR>"

'busca en todos los archivos que encuentra en dicha carpeta
For Each Fichero in ObjetoCarpeta.Files

Response.Write "<td><a href="&folder&Fichero.Name&"><img src="&folder&Fichero.Name & " width=60px height=50px></a></td>"
Response.Write "<tr><td><a href="&folder&Fichero.Name&"><img src="&folder&Fichero.Name & " width=60px height=50px></a></td>"

Next

Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing

Lo que me interesa saber es, como saber si del directorio está vacío, no contiene ningún archivo?

En tu ejemplo, no mostraría nada. Y debería mostrar aunque sea un texto que diga que no hay archivos en dicha carpeta.

Como se puede hacer eso?

Saludos

CHRISTIAN MEZA VILLAFUERTE
LIMA PERÚ

[sqa212]

He usado la pagina ejemplo.asp y me arroja este error:
DOT NET Unsupported

La foto me la sube bien al servidor pero no me genera el thumbnail.
Debo de configurar el IIS para que acepte aspNet, si es asi, ¿Como se hace eso?

[renton]

Ves a la pagina de windows Update y descargate el Framework.

[sjam7]

pws soporta asp.net? supongo que no verdad

[sqa212]

renton que hago con el Framework, lo baje y me dice que donde quiero colocar los archivos extraidos

[ElAprendiz]

bueno aqui hay algo si bien es una dll (no se si es un componente)
no es necesario registrarlo en el servidor solo subirlo y llamarlo. lo unico malo es que es un poco lento al cargar las imagenes.

http://www.crazybeavers.se/

un saludo