Agregar campos a imagen subida!!!XELUPLOAD

[pepelucho]

Holas,he podido subir varias imagenes a la vez, ademas de solo aceptar solo imagenes y hasta un cierto tamaño y me funciona , lo que quisiera hacer ahora esta en el siguiente link: Subir imagen quiero grabar el nombre de la imagen ademas de los datos q llenen en las casillas del costado, claro q si sube imagen tienen q llenar obligatoriament los datos del costado y si no suben imagen q no se grabe los datos del costado de cada File.

Aca pongo el codigo q tengo de lo q me funciona:
<!--#include file="xelupload.asp"-->
<%
'Set up = new xelUpload
'up.Upload()
'For each fich in up.Ficheros.Items
'fich.Guardar Server.MapPath(".")
'Next
'set up = nothing
%>
<%
Dim up, fich, ExtPermitidas, NombreFichero, Extension, nombreimagen, Maxtam
set up = new xelUpload
up.Upload()
%>
<%
For each fich in up.Ficheros.Items
'Response.Write("<li>Tamaño: <b>" & fich.Tamano & "</b> bytes (" & FormatNumber(fich.Tamano / (1024)) & " Kb)</li>")
' no deja subir archivos ke pesen mas que maxtam
Maxtam = 150 ' en Kb
If fich.Tamano > (Maxtam*1024) then
response.write "No puede subir un que pese mas de "& Maxtam & "Kb."
else
'impedir subir archivos diferentes a imagenes
ExtPermitidas = "|gif|jpg|jpeg|"
NombreFichero = Split(fich.Nombre, ".")
Extension = NombreFichero(1)
If InStr(ExtPermitidas, "|" & Extension & "|") = 0 Then
Response.Write "No puede subir archivos con extensiones ." & Extension
Response.End
Else
'Para guardarlo con otro nombre:
Response.Write "Ha subido correctamente la imagen llamada "& fich.Nombre &"<br>"
nombreimagen = "juanc."& Extension
' carpeta donde se guardara el archivo
fich.GuardarComo fich.nombre, Server.MapPath(".")
'----------------------------------------------------------------
end if
end if
Next
'Limpiamos objeto
set up = nothing
%>

[dobled]

papelucho mira con este codigo yo grabo y subo dos imagenes ademas pueden ser mas en la base tengo los dos campos (imagen, imagen2) que tambien pueden ser mas chequealo y cambialo a tu gusto, espero que te sirva

Código:

<%
'pagina.asp
%>
<!--#include file="xelupload.asp"-->
<%
'Dim oConn, rs, SQL
'Dim objUpload, objFich, strNombre, strEdad
'Dim maxtam, strNombreFichero

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

set objUpload = new xelUpload
objUpload.Upload()

'recuperamos los campos usuario y edad
		artista 	= objUpload.Form("artista")
		album 		= objUpload.Form("album")
		comentario 	= objUpload.Form("comentario")
		semana 		= objUpload.Form("semana")


'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")
	set objFich2 = objUpload.Ficheros("imagen2")

	'and objFich.TipoContenido = "image/jpeg"
	if objFich.Tamano <= maxtam  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("../artistas")
		objFich2.Guardar Server.MapPath("../artistas")
		
		'Ahora, en el directorio upload, con la fecha de hoy como nombre
		'strNombreFichero = Day(Date) & Month(Date) & Year(Date)
		'objFich.GuardarComo strNombreFichero, Server.MapPath("../artistas")

		'Ahora nos conectamos a una base de datos
        SQL = "Driver={SQL Server};Description=sqldemo;SERVER=mailserver; UID=sa;PWD=sa;DATABASE=puntonueve"
		set oConn = Server.CreateObject("ADODB.Connection")
		set rs = Server.CreateObject("ADODB.Recordset")
        oConn.open SQL
		'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 nx_pdirecto"
		'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("artista") 	= artista
		rs.Fields("album") 		= album
		rs.Fields("comentario") = comentario
		rs.Fields("semana") 	= semana
		rs.Fields("img") 		= objFich.Nombre
		rs.Fields("img2") 		= objFich2.Nombre

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

		'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 ingresado un nuevo Punto en Directo <b>" & artista & "</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 JPEG de menos de 250k.")
	end if

end if
%>

Salu2

[pepelucho]

Chevere funciona recontra bien ..una consulta al subir imagenes con el mismo nombre los chanca, abria forma de que se cambie de nombre automaticamente osea q se le agregue letras o numeros al comienzo del nombre,!!!!

[dobled]

si demas yo ocupo una que hizo Alzu y es colocando lafecha y la hora.

Código:

		imagen = Split(objFich.Nombre, ".")
		Extension = imagen(Ubound(imagen))
		strNombreFichero = Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now()) & Second(Now()) & "." & Extension
		objFich.GuardarComo strNombreFichero, Server.MapPath("../artistas")

saca algo de ahi

[pepelucho]

Dobled use tu codigo, si uso los dos ficheros funcionan bien pero si solo uso uno de los dos me sale este error: Object required: 'objUpload.Ficheros(...)' y me aparece en la linea donde declaro el fichero que no Uso!! como hago para que no sea obligatorio ademas que quiero agregar por lo menos 6 ficheros!!!

Espero su pronta ayuda

[bisteck]

hola.....
disculpen pero tengo una duda.
yo tambien ocupo el xelupload y funciona super bien para subir archivo, pero mi duda es la siguiente:
como puedo hacer para que suba solamente un archivo un los dos a la misma vez...
me explico mejor en un archivo(agregar.asp) subo 3 archivo, mas otros caMPOS
luego en un programa (modificar.asp) solo necesito cambiar un archivo no los tres

set objFich = objUpload.Ficheros("flash_inicio")
set objFich2 = objUpload.Ficheros("logo_inicio")
set objFich3 = objUpload.Ficheros("flash_formulario")

pero si uno de los tres esta vacio me manda error, como lo puedo hacer para ver si el campo del formulario (<input type="file" name="flash_inicio"> o <input type="file" name="logo_inicio"> o<input type="file" name="flash_formulario">) viene vacio o no?

[pepelucho]

Eso es lo mismo q hice, trate de poner if obj.ficheros("imagen1")="" then NO LO LEA pero igual me sale el error.. como se podria hacer????

[pepelucho]

He puesto esto y no me funciona, porfa ayuda urgente:
'If not(isnull(objupload.ficheros("fichero1"))) then -- este tambien probe
if objUpload.Ficheros("fichero1")<>""then

set objFich = objUpload.Ficheros("fichero1")
strNombreFichero = Day(Now()) & Hour(Now()) & Minute(Now()) & Second(Now()) & objfich.nombre
objFich.GuardarComo strNombreFichero, Server.MapPath(".")
end if

[pepelucho]

Tengo otro problemilla, al momento de poner una ruta para poner la imagen pongo esto Server.MapPath(".") y me funciona bien pero si pongo Server.MapPath("\imagenes") o Server.MapPath("/imagenes") no me guarda las imagenes como deberia poner la ruta???

[davisvil]

que tal papelucho... que tal si lo intentas con Server.MapPath("imagenes")... segun eso deberia guardarlo en la carpeta "imagenes" a partir de la raiz (root) del sitio.

si quieres colocarlas en una carpeta dentro de "imagenes" coloca: Server.MapPath("imagenes\carperta1\carpeta2") esto lo guarda en la "carpeta2"


Espero te sirva...

Saludos