problema con codigo

gabo543 · #1 (**permalink**) 12/10/2007, 15:40

hola nuevamente tengo problemas aqui tengo un codigo que no me permite subir archivos JPG solo GIF y yo modifique lo que marco con rojo a jpg y nada aqui va el codigo...

<%
'pagina.asp
%>

<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero

'nuestro tamaño máximo
maxtam = 45 * 3048

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

como lo puedo solucionar todo esto se sube a una data base....solo me funciona con gif y quiero jpg muchas gracias....

AlZuwaga · #2 (**permalink**) 12/10/2007, 17:16

Seguramente intentaste con image/JPG... intentá ahora con image/JPEG a ver qué ocurre.

gabo543 · #3 (**permalink**) 18/10/2007, 08:32

hola tengo un problema quizas es sencillo pero no se como hacer para que me acepte fotos jpeg solo acepta gif aqui les mando el codigo yo modifique lo que esta con rojo en el codigo por image/jpeg y no me funciona hay que modificar mas cosas...

<%
'pagina.asp
%>

<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero

'nuestro tamaño máximo
maxtam = 30 * 2048

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

u_goldman · #4 (**permalink**) 18/10/2007, 08:39

En teoría el tipo debería ser: image/jpeg como ya lo indicaste, yo te sugeriría subir un jpg y hacer esto y ver que es lo que te está regresando la propiedad tipo contenido, después puedes modificar la condición:

Código:

'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("imagen")
Response.Write("este es el contenido que hay que poner: " & objFich.TipoContenido)
Response.end()

Saludos

AlZuwaga · #5 (**permalink**) 18/10/2007, 11:16

por favor, no repitas temas. gracias

gabo543 · #6 (**permalink**) 18/10/2007, 12:40

sabes que no comprendo lo que tengo que arreglar en el codigo modifique la cosa en jpeg y no paso nada me sigue saliendo error porque no es gif que sera....
alguien podria modificar el codigo por favor... seria mi salvacion..
muchas gracias

u_goldman · #7 (**permalink**) 18/10/2007, 12:56

Vamos, al menos un poco de voluntad...qué es lo que modificaste que no te funcionó? ¿Hiciste lo que te recomendé?

Saludos

gabo543 · #8 (**permalink**) 18/10/2007, 13:06

hola realmente no entiendo donde colocar lo que me escribiste pero yo reemplace eso que dice image/gif por image/jpeg y no me funciona igual me sigue saliendo el error que solo acepta gif.....

AlZuwaga · #9 (**permalink**) 18/10/2007, 13:13

Probá con estos mime types:

Código:

if objFich.Tamano <= maxtam and (objFich.TipoContenido = "image/jpg" OR objFich.TipoContenido = "image/jpeg" OR objFich.TipoContenido = "image/pjpeg") then

gabo543 · #10 (**permalink**) 19/10/2007, 05:19

hola compañeros gracias a uds ya soluciones mi problema muchas gracias....

AlZuwaga · #11 (**permalink**) 19/10/2007, 11:34

bien, genial, pero... ¿cuál era el mime type correcto?

gabo543 · #12 (**permalink**) 19/10/2007, 14:54

if objFich.Tamano <= maxtam and (objFich.TipoContenido = "image/jpg" OR objFich.TipoContenido = "image/jpeg" OR objFich.TipoContenido = "image/pjpeg") then
__________________
este fue codigo que agrege y me funciono a la perfeccion....

AlZuwaga · #13 (**permalink**) 19/10/2007, 15:18

Ahhh... qué gil... estaba claro que era pjpeg... era la única opción nueva. Primero probaste con jpg, luego te dije que lo hagas con jpeg y no funcionaba.

Lo pregunto porque también tengo ese tipo de problemas o confusiones a la hora de usar el mime de los jpg... aunque siempre lo hice en PHP, nunca en ASP.