image
Inicio » Foros » ASP

ASP

Subir varios ficheros a la vez

Volver al foro | Responder | Añadir nuevo tema


De: Pablo
Fecha: 07/09/2005
Mensaje:

Hola amigos!!

Tengo un problema, y es que me han pedido el poder subir de 1 a 3 ficheros (en 3 input tipo file distintos).

Con el XelUpload solo me coge el primero (o el ultimo no recuerdo ahora mismo) de los que suba.

Sabeis algun método para poder subir 3 ficheros?

muchas gracias




Quizás le interese
De: Janic
Util para: 0 personas

Fecha: 10/09/2005
Mensaje:

Con XelUpLoad puedes subir todos los ficheros que quieras al mimo tiempo. Con lo cual el problema no es ese.



De: ayudando
Util para: 0 personas

Fecha: 12/09/2005
Mensaje:

Prueba con este ciclo

Dim up, fich
set up = new xelUpload
up.Upload()
Response.Flush 
For each fich in up.Ficheros.Items
  fich.Guardar Server.MapPath("./Mi_carpeta")
Next





De: Janic
Util para: 0 personas

Fecha: 13/09/2005
Mensaje:

Te he montado esto para que veas que se puede hacer. Con este código fuerzas al usuario a enviar
al menos un archivo, aunque si quiere puede enviar los 3.

Suerte!!


<!--#include file="xelupload.asp"-->
<%
Dim objUpload, objFich1, strNombreFichero

'Creamos el objeto
set objUpload = new xelUpload

'Recibimos el formulario
objUpload.Upload()


Mostramos los datos del fichero enviado

set objFich1 = objUpload.Ficheros("gif1")
objFich1.Guardar(Server.MapPath("./Mi_carpeta"))

if vartype(objUpload.ficheros("gif2"))<>0 then
set objFich2 = objUpload.Ficheros("SecondTrack")
objFich2.Guardar(Server.MapPath("/Mi_carpeta"))
end if


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


'Abrimos una conexión a una base de datos
Dim oConn, rs, SQL

set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'Nos conectamos con un DSN
oConn.Open  "DSN=Pruebas"

'Y abrimos la tabla Datos
SQL = "SELECT * FROM FORMULARIO"

'Abrimos el Recordset con cerrojo 2 (adLockPessimiestic)
'que permite modificaciones

rs.Open SQL, oConn, 0, 2

rs.AddNew

rs.Fields("gif1") = objFich1.Nombre
rs.Fields("Size1") = FormatNumber(objFich1.Tamano / (1024*1024))

if vartype(objUpload.ficheros("SecondTrack"))<>0 then
rs.Fields("gif2") = objFich2.Nombre
rs.Fields("Size2") = FormatNumber(objFich2.Tamano / (1024*1024))
end if

if vartype(objUpload.ficheros("gif3"))<>0 then
rs.Fields("gif3") = objFich3.Nombre
end if

rs.Update
rs.Close
set rs = nothing


Response.Write ("ENVIO FINALIZADO CON EXITO")

set oFich1 = nothing
set oFich2 = nothing
set oFich3 = nothing
set objUpload = nothing
oConn.Close
set oConn = nothing
end if
%>





Volver al foro | Responder | Añadir nuevo tema

Quizás le interese:

WebEstilo.com no se hace responsable de las opiniones que los usuarios puedan verter en cualquiera de los foros existentes.

Si te solucionó el problema pulsa en G+1


Gracias!






Comparte



Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.