Subir imagenes !!!

[pepelucho]

Hola, como puedo subir 6 imagenes a la vez en una carpeta web desde mi website?

Gracias de antemano.

[sjam7]

con el xeupload que encuentras en www.aspfacil.com lo puedes hacer

[mrgubu]

¿Cómo se modifica el xelupload para que suba más de un archivo? Por defecto el form viene sólo con uno.

[AlZuwaga]

A todos los campos tipo file le colocás el mismo nombre y luego en el script que los recibe usás un for:

<!--#include file="xelupload.asp"-->
<%
Set up = new xelUpload
up.Upload()
For each fich in up.Ficheros.Items
fich.Guardar Server.MapPath("Ruta")
Next
set up = nothing
%>

saludos

[pepelucho]

Holas tengo un formulario donde ingreso datos y subo UNA imagen quisiera saber como puedo hacer para subir varias imagenes a la vez? me baje el ejemplo de ASpfacil.com pero no logro hacerlo funcionar para varias imagenes a la vez, donde debo cambiar en el xelupload.asp o en el archivo q recibe y graba los datos???

[AlZuwaga]

Te respondí dos mensajes pa'arriba

No te resultó mi idea?
Me estoy deprimiendo...

[pepelucho]

Lo q pasa es qno se donde implementarlo para q me funcione!!

[pepelucho]

Holas, aun sigo el problema de subir varias imagenes con xelupload, he puesto varios File con el mismo nombre, subo una imagen y me funciona pero cuando subo mas de una me sale el siguiente error:
Microsoft VBScript runtime error '800a01c9'

This key is already associated with an element of this collection

/air/xelupload.asp, line 106

Aqui pongo el codigo q use, ojala q me puedan ayudar:
////////////////////////////////////////////////////////////////////////////////
<%
'pagina.asp
%>
<!--#include file="xelupload.asp"-->
<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero

'nuestro tamaño máximo
maxtam = 15 * 1024

set objUpload = new xelUpload
objUpload.Upload()

For each fich in up.Ficheros.Items

'recuperamos los campos usuario y edad
strNombre = objUpload.Form("usuario")
strEdad = objUpload.Form("edad")

'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("imagen")
if objFich.Tamano <= maxtam and objFich.TipoContenido = "image/gif" then
'Es el fichero correcto, vamos a guardarlo en todas partes.

'Primero, en nuestro directorio actual con el nombre que tiene
objFich.Guardar Server.MapPath(".")

'Ahora, en el directorio upload, con la fecha de hoy como nombre
strNombreFichero = Day(Date) & Month(Date) & Year(Date)
objFich.GuardarComo strNombreFichero, Server.MapPath("upload")

'Ahora nos conectamos a una base de datos
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'Nos conectamos con ODBC sin DSN, suponiendo que la base
'de datos está en este mismo directorio
' oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" _
' & "DBQ=" & Server.MapPath("usuarios.mdb")
' SQL = "SELECT * FROM usuarios"
'Abrimos el Recordset: el 0 es el cursor adForwardOnly
' y el 2 es el cerrojo adLockPessimistic
' rs.Open SQL, oConn, 0, 2

'Añadimos un nuevo registro
' rs.AddNew
' rs.Fields("Nombre") = strNombre
' rs.Fields("Edad") = strEdad
' rs.Fields("NombreFichero") = objFich.Nombre

'Llamamos a GuardarBD pasandole el campo correspondiente!!!
' objFich.GuardarBD rs.Fields("Imagen")

'Guardamos el nuevo registro
' rs.Update

'y limpiamos todo que vienen los padres
' rs.Close
' set rs = nothing
' oConn.Close
' set oConn = nothing

'¡Todo correcto!
Response.Write "Se ha añadido el nuevo usuario <b>" & strNombre & "</b>, " _
& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."

'Limpiamos nuestro xelUpload y el fichero
set oFich = nothing
set objUpload = nothing

else
'No era un fichero válido
Response.Write("No es un fichero aceptable. ")
Response.Write("Tiene que ser un fichero GIF de menos de 15k.")
end if

end if
Next
set objUpload = nothing
%>

[dobled]

yo he logrado subir varias imagenes con este codigo ahorita se los posteo esperan unos minutillos

deben colocarlos asi cuantas imagenes quieran funciona super

Código:

Set objFich = objUpload.Ficheros("imagen")
set objFich2 = objUpload.Ficheros("imagen2")

despues

Código:

objFich.Guardar Server.MapPath("../artistas")
objFich2.Guardar Server.MapPath("../artistas")

avisen si quieren el codigo completo...

[pepelucho]

A ver pasate el codigo por faaaa

[pepelucho]

Ayuda por faaaaaaaaaaaaaaaaaaaa!!!!!!!!!!!

[AlZuwaga]

Ouch, cometí un error antes... a los input file NO le colocás el mismo nombre...

El formulario:

<form action="upload.asp" method="post" enctype="multipart/form-data" name="form1">
<input name="fichero1" type="file">
<input name="fichero2" type="file">
<input name="fichero3" type="file">
</form>


La página upload.asp:

<!--#include file="xelupload.asp"-->
<%
Set up = new xelUpload
up.Upload()
For each fich in up.Ficheros.Items
fich.Guardar Server.MapPath("/upload")
Next
set up = nothing
%>


Sorry por la confución anterior

[pepelucho]

Hola, acabo de poner ese codigo pero no me sube nada, que puede estar faltando, una consulta el xelupload.asp puede estar mal o cambia en algo me baje el q esta en aspfacil.com??

[AlZuwaga]

Chequeá que la ruta deonde vas a guardar los archivos realmente exista.
A mi me funciona bien así y es con el código que bajé de aspfacil.com

[mrgubu]

Zuwaga, he probado el código para subir varios archivos a la vez y funciona a la perfección. Muchas gracias, llevaba usando hace tiempo el XelUpload pero siempre 1 a 1 y cuando tenía que subir muchos archivos era un coñazo.

Aprovecho el post para platear otro problema con XelUpload. A mí sólo me permite subir archivos de imagen, no de texto. ¿Hay alguna forma de variar el código para que se puedan subir txt, pdfs?

Y otra cosa más: ¿Se puede poner un límite al tamaño del archivo?

[pepelucho]

como puedo aumentarle caracteres al azar y extraer los nombres de los archivos que suba??? para poder guardarlos en una base dedatos? ojo SOLO NOMBRES