Subir Multiples archivos

[omegafunky]

hola nuevamente amigos, bueno aqui ando tratando de resolver otro problema, sucede que necesito un script donde tenga chance de subir hasta 5 archivos a una carpeta del servidor y tomar el nombre de estos para guardarlo en la BD y de ahi jalar el nombre para no cargar la base de datos, espero alguien tenga algo por ahi o pueda orientarme, saludos

[JuanRAPerez]

busca en el foro hay un post donde hay uno que no usa componentes

ya te ayudo a buscar

suerte

[omegafunky]

bueno ya encontre estoy trabajando con el xelUpload y ya me sube un archivo porque todavia no c como hacerle para varios y otra cosa lo sube sin extencion osea que le tengo que dar abrir con para buscar conque programa abrirlo, me podrian hechar una manito con eso? son 5 archivos que paso los cuales son archivo1, archivo2...

Código PHP:

  

<!--#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()

'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 archivo!")
else
    'accedemos al fichero por su nombre en el formulario
    set objFich = objUpload.Ficheros("archivo1")
    if objFich.Tamano <= maxtam then
        '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)
        strNombreFichero = session("sesion_actual")        
        objFich.GuardarComo strNombreFichero, Server.MapPath("archivos")

        '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"
        oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" _
        & "DBQ=" & Server.MapPath("base.mdb")
        SQL = "SELECT * FROM archivos"
        '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

        rs.AddNew
        rs.Fields("nombre") = strNombre
        rs.Fields("fecha") = Date()
        rs.Fields("id_sesion") = session("sesion_actual")

        '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 "Todos los Archivos fueron subidos con exito"

        '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
%>