Foros del Web » Programando para Internet » ASP Clásico »

Subir varias imagenes al mismo tiempo

Estas en el tema de Subir varias imagenes al mismo tiempo en el foro de ASP Clásico en Foros del Web. Amigos: Tengo un formulario desde donde subo varios datos a una base. dentro de estos datos que necesito subir se encuentran 4 campos de imágenes. ...
  #1 (permalink)  
Antiguo 21/03/2007, 05:29
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 21 años, 4 meses
Puntos: 7
Pregunta Subir varias imagenes al mismo tiempo

Amigos:

Tengo un formulario desde donde subo varios datos a una base. dentro de estos datos que necesito subir se encuentran 4 campos de imágenes. ese formulario con 1 sola imagen lo logro subir pero no logro hacerlo funcionar con 4 imágenes.

Otra de los cosas que necesito lograr es que cuando no cargue 4 imagenes, cargue 3 por ejemplo, el cuarto campo me tome una imagen general, por ejemplo BLANK.JPG.

El objeto que uso para subir 1 imagen es el xelUpload.

Cualquier ayuda o dato que pueda aportarme se lo voy a agradecer infinitamente.

Saludos a todos.

ARMANDOWEB
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
  #2 (permalink)  
Antiguo 21/03/2007, 06:20
 
Fecha de Ingreso: noviembre-2004
Ubicación: Sevilla
Mensajes: 139
Antigüedad: 19 años, 7 meses
Puntos: 0
Re: Subir varias imagenes al mismo tiempo

las nombres de las 4 imágenes los guardas en el mismo registro?
id, título, fecha, imagen1, imagen 2, imagen3, imagen4...?
__________________
Punkis De Mierda

Foro punk rock
  #3 (permalink)  
Antiguo 21/03/2007, 06:55
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Re: Subir varias imagenes al mismo tiempo

Se trataría de hacer condicionales

Código:
set objFich1 = objUpload.Ficheros("pic1")
objFich1.Guardar(Server.MapPath("xx"))

if vartype(objUpload.ficheros("pic2"))<>0 then
set objFich3 = objUpload.Ficheros("pic2")
objFich3.Guardar(Server.MapPath("xx"))
end if

if vartype(objUpload.ficheros("pic3"))<>0 then
set objFich3 = objUpload.Ficheros("pic3")
objFich3.Guardar(Server.MapPath("xx"))
end if

if vartype(objUpload.ficheros("pic4"))<>0 then
set objFich3 = objUpload.Ficheros("pic4")
objFich3.Guardar(Server.MapPath("xx"))
end if
en este caso ha de subirse al menos una imagen

Suerte
  #4 (permalink)  
Antiguo 22/03/2007, 09:14
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 21 años, 4 meses
Puntos: 7
Re: Subir varias imagenes al mismo tiempo

Si xAlex, los nombres de las imágenes van en el mismo registro.
Gracias.

ARMANDOWEB
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
  #5 (permalink)  
Antiguo 22/03/2007, 09:19
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 21 años, 4 meses
Puntos: 7
Re: Subir varias imagenes al mismo tiempo

Si, puede ser asi Adler....
Lo probaré y luego te comento que pasó.
Ahh y como sería la idea para comprobar que no subió ninguna imagen y colocar el nombre de BLANK.JPG en ese lugar?
Gracias por la ayuda.

ARMANDOWEB
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
  #6 (permalink)  
Antiguo 23/03/2007, 08:39
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Re: Subir varias imagenes al mismo tiempo

No lo he probado pero podría ser algo así

Código:
Function Pics(byval strpath)

filename = Server.MapPath(strpath)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(filename) Then
Response.write("<img src=" & strpath &">  
Response.end
  Else
Response.write("<img src=""./blank.jpg"">")
Response.end
End If

End Function
Suerte
  #7 (permalink)  
Antiguo 28/03/2007, 17:30
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 21 años, 4 meses
Puntos: 7
Re: Subir varias imagenes al mismo tiempo

Adler:

yo para subir una imagen con los demas datos a una base utilizaba este codigo, el cual funciona perfectamente:

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
marca = Uploader.form("marca")
modelo = Uploader.form("modelo")
ano = Uploader.form("ano")
tipo = Uploader.form("tipo")
caracteristicas = Uploader.form("caracteristicas")
precio = Uploader.form("precio")
archivo = Uploader.form("foto1")
archivo = replace(archivo, "/", "\")
archivo = right(archivo, len(archivo) - instrrev(archivo, "\"))
archivo = lcase(archivo)
archivo = replace(archivo, " ", "_")

For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(path), archivo
Next

sSQL = "insert into autos(marca,modelo,ano,tipo,caracteristicas,precio ) values ('" & marca & "', '" & modelo & "', '" & ano & "', '" & tipo & "', '" & caracteristicas & "', '" & precio & "')"
Master.Execute(sSQL)

Pero este codigo me sirve para una sola imagen.
Como modifico esto para subir hasta un max de 4 imagenes o fotos, ubicadas en 4 campos distintos de la base de datos?
Espero puedan darme una mano...

ARMANDOWEB
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
  #8 (permalink)  
Antiguo 29/03/2007, 05:09
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Re: Subir varias imagenes al mismo tiempo

Toma el ejemplo que te puse anteriormente

En el lugar

Código:
objUpload.Ficheros
escribes

Código:
 
Uploader.form
Suerte
  #9 (permalink)  
Antiguo 29/03/2007, 08:59
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 21 años, 4 meses
Puntos: 7
Re: Subir varias imagenes al mismo tiempo

Ok Adler.
Y en el form debo tener 4 campos para subir las imagenes llamado pic1, pic2, pic3 y pic4??

Gracias por tu ayuda.

ARMANDOWEB
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
  #10 (permalink)  
Antiguo 29/03/2007, 13:15
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 21 años, 4 meses
Puntos: 7
Re: Subir varias imagenes al mismo tiempo

Adler:

Perdón por mi ignorancia pero no me ha funcionado, me da error.
Así me quedo el código a ver si me podes dar una mano mas...

Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
marca = Uploader.form("marca")
modelo = Uploader.form("modelo")
ano = Uploader.form("ano")
tipo = Uploader.form("tipo")
caracteristicas = Uploader.form("caracteristicas")
precio = Uploader.form("precio")

set objFich1 = Uploader.form("foto1")
objFich1.Guardar(Server.MapPath("/prueba/images/"))

if vartype(Uploader.form("foto2"))<>0 then
set objFich2 = Uploader.form("foto2")
objFich2.Guardar(Server.MapPath("/prueba/images/"))
end if

if vartype(Uploader.form("foto3"))<>0 then
set objFich3 = Uploader.form("foto3")
objFich3.Guardar(Server.MapPath("/prueba/images/"))
end if

if vartype(Uploader.form("foto4"))<>0 then
set objFich4 = Uploader.form("foto4")
objFich4.Guardar(Server.MapPath("/prueba/images/"))
end if

sSQL = "insert into autos(marca,modelo,ano,tipo,caracteristicas,precio ) values ('" & marca & "', '" & modelo & "', '" & ano & "', '" & tipo & "', '" & caracteristicas & "', '" & precio & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if

Nuevamente gracias.

ARMANDOWEB
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
  #11 (permalink)  
Antiguo 30/03/2007, 05:51
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Re: Subir varias imagenes al mismo tiempo

Prueba así

Código:
 
Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
marca = Uploader.form("marca")
modelo = Uploader.form("modelo")
ano = Uploader.form("ano")
tipo = Uploader.form("tipo")
caracteristicas = Uploader.form("caracteristicas")
precio = Uploader.form("precio")
archivo1 = Uploader.form("foto1")
archivo2 = Uploader.form("foto2")
archivo3 = Uploader.form("foto3")
archivo4 = Uploader.form("foto4")

File.SaveToDisk Server.MapPath(path), archivo1


if vartype(archivo2)<>0 then
File.SaveToDisk Server.MapPath(path), archivo2
end if

if vartype(archivo3)<>0 then
File.SaveToDisk Server.MapPath(path), archivo3
end if

if vartype(archivo4)<>0 then
File.SaveToDisk Server.MapPath(path), archivo4
end if

sSQL = "insert into autos(marca,modelo,ano,tipo,caracteristicas,precio ) values ('" & marca & "', '" & modelo & "', '" & ano & "', '" & tipo & "', '" & caracteristicas & "', '" & precio & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if
Si aún genera error, especificalo

Suerte
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:21.