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