Tema: Subir múltiples imagenes a multiples carpetas
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/06/2008, 08:52
portillo18
 
Fecha de Ingreso: abril-2008
Mensajes: 51
Antigüedad: 17 años
Puntos: 1
Subir múltiples imagenes a multiples carpetas
Hola a todos!


tengu un problema a la hora de insertar imagenes multiples con xupload, el siguiente codigo que les muestro es el que utilizo en mi pagina.
El tema esta esque mi página trata de lugares, recibo de una variable de session el carpeta del lugar seleccionado.Hasta aqui todo bien, pero a mayores dentro de la carpeta tengo otras dos subcarpetas(100x100 y 200x200) donde me interesa redimensionar las imagenes esas dimensiones(100x100 y 200x200).El codigo me guarda las imagenes en la carpeta del lugar, pero no se como hacer para que a mayores me las guarde tambien el las otras dos pero ya redimensionadas.



Cita:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Cojo el nombre de carpeta que guardo correctamente en una pagina anterior
carpeta = Session("carpetasubida")
response.write ""&carpeta&""
'El siguiente código es para el XUPLOAD de persits, que se complementa con el de más abajo (dentro de body)
'creo la variable donde meto la direccion donde quiero subir el conjunto de imagenes.

'Este código es el que hace subir las imagenes al servidor.
if request("act") = "up" then
carpeta = Session("carpetasubida")

%>
<OBJECT RUNAT=Server ID=Upload PROGID="Persits.Upload.1"></OBJECT>
<%
'Mediante la variable "directorio" le digo donde quiero subir las imagenes. Una vez hecho mostramos un mensaje con el nª de fotografias subidas.
nCount = Upload.Save(server.MapPath("/lugares/"&carpeta))%><%response.end

'--------------------------------------
'****AQUI ES DONDE DEBERIA IR LA PARTE DE CÓDIGO QUE ME FALTA****
'---------------------------------------

end if
%>

<html>
<head>
<title>subir conjunto de fotografias</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body link="#333333" vlink="#333333" alink="#333333" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<table width="622" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td width="593" height="28"> <div align="center"><FONT class=textov1><strong><FONT color="#CC3300" class=textov1>Subir
</FONT><FONT color="#CC3300" class=textov1> fotograf&iacute;as al servidor(En construccion, no tocar).</FONT><br>
</strong></FONT></div></td>
</tr>
<tr>
<td><div align="center">
<!--CREAMOS LOS BOTONES DE AGREGAR IMAGENES-->
<SCRIPT LANGUAGE="VBScript">
Sub Select_OnClick
UploadCtl.Select
End Sub

Sub SelectFolder_OnClick
UploadCtl.SelectFolder
End Sub

Sub Remove_OnClick
UploadCtl.RemoveHighlighted
End Sub

Sub RemoveAll_OnClick
UploadCtl.RemoveAll
End Sub
Sub Upload_OnClick
UploadCtl.RemoveAllFormItems
UploadCtl.Upload
End Sub
</SCRIPT>
<!--creamos el activeX (XUPLOAD de PERSITS)para agregar imagenes. -->
<br>
<br>
<INPUT TYPE="BUTTON" class="button" NAME="SELECT" VALUE="Seleccionar imagen">
<INPUT TYPE="BUTTON" class="button" NAME="SELECTFOLDER" VALUE="Seleccionar carpeta">
<INPUT TYPE="BUTTON" class="button" NAME="REMOVE" VALUE="Borrar">
<INPUT TYPE="BUTTON" class="button" NAME="REMOVEALL" VALUE="Borrar todo">
<INPUT TYPE="BUTTON" class="button" NAME="UPLOAD" VALUE="UPLOAD" onpress="return upload(this)">
</div></td>
</tr>
</table>
<object width="620" height="200" id="UploadCtl" classid="clsid:e87f6c8e-16c0-11d3-bef7-009027438003" codebase="XUpload.ocx">
<param name="Server" value="<% = Request.ServerVariables("SERVER_NAME") %>">
<param name="Script" value="<% = Request.ServerVariables("SCRIPT_NAME") %>?act=up">
</object>
</body>
</html>


eSPERO QUE ALGUIEN PUEDA AYUDARME, O SI TIENE UN CÓDIGO QUE HAGA ALGO SIMILAR si pusiese mostrarlo se lo agradeceria!



gracias de antemano.