Foros del Web » Programando para Internet » ASP Clásico »

Cargar y recuperar imagen en ASP, ayuda por favor!...

Estas en el tema de Cargar y recuperar imagen en ASP, ayuda por favor!... en el foro de ASP Clásico en Foros del Web. Hola!, necesito ayuda!, descargue un codigo en ASP, que ingresa datos en Access y una imagen que se almacena en una carpeta, teniendo como tipo ...
  #1 (permalink)  
Antiguo 10/07/2008, 17:46
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 15 años, 11 meses
Puntos: 0
Cargar y recuperar imagen en ASP, ayuda por favor!...

Hola!, necesito ayuda!, descargue un codigo en ASP, que ingresa datos en Access y una imagen que se almacena en una carpeta, teniendo como tipo de campo Objeto OLE.
El detalle es que deseo mostrar en mi pagina show.asp en el campo imagen de la tabla html, la imagen ingresada del formulario, y que al darle clic, me enlace a otra pagina con la misma imagen junto con su descripcion.
Necesito que tambien cargue otras imagenes en orden de "ver siguiente", junto con los datos de la base de datos y mostrarlos en la pagina que se le de clic. como un tipo clasificado. Por ejemplo: http://www.zihuadirectorio.com/clasificados/
espero me haya explicado, por favor me podria decir que codigo agregar o que tengo que modificar para acompletar esto.
Este es el codigo:
--------------------------------------------------------------------------------------------------
<html>
<head>
<title>Probando xelUpload</title>
</head>
<body>

<form action="recibir.asp" method="post" enctype="multipart/form-data">
Nombre: <input type="text" name="nombreusuario" size="20"><br />
Edad: <input type="text" name="edad" size="5"><br />
Fichero: <br />
<input type="file" name="fichero"><br />
<input type="submit" value="Enviar">
</form>
</body>
</html>
--------------------------------------------------------------------------------------------------------
<!--#include file="xelupload.asp"-->
<%
Dim up, fich
set up = new xelUpload
up.Upload()
Response.Write("Número de ficheros subidos: " & up.Ficheros.Count & "<br>")
Response.Flush
For each fich in up.Ficheros.Items
Response.Write("<ul>")
Response.Write("<li>Nombre: <b>" & fich.Nombre & "</b></li>")
Response.Write("<li>Tamaño: <b>" & fich.Tamano & "</b> bytes (" & FormatNumber(fich.Tamano / (1024*1024)) & " Mb)</li>")
Response.Write("<li>Tipo MIME: <b>" & fich.TipoContenido & "</b></li>")
Response.Write("</ul>")
'Para guardarlo
' Con el nombre de fichero original:
fich.Guardar Server.MapPath("/upload/")
' Con otro nombre:
fich.GuardarComo nombrefichero, Server.MapPath("/upload/usuarios.mdb")
'----------------------------------------------------------------
Next
'Limpiamos objeto
set up = nothing
%>




--------------------------------------------------------------------------------------------------------
<%
' -- show.asp --
' Generates a list of uploaded files

Response.Buffer = True

' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("usuarios.mdb")
%>
<html>
<head>
<title>Inserts Images into Database</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>Mostrando datos</b><br>
<a href="form.html">Haz clic para insertar otro registro</a>
</p>

<table width="700" border="1" cellspacing="0" cellpadding="0" bgcolor="#99FFCC" bordercolor="#FFFFFF" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [ID_Usuario],[Nombre],[Edad],[NombreFichero],[Imagen] from usuarios order by [ID_Usuario] desc", connStr, 3, 4

If Not rs.EOF Then
Response.Write "<tr><td colspan=""7"" align=""center""><i>"
Response.Write "No. de Registros: " & rs.RecordCount
'Response.Write ", Table : Files</i><br>"
Response.Write "</td></tr>"

While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("ID_Usuario") & "</td><td>"
Response.Write rs("Nombre") & "</a></td><td>"
Response.Write rs("Edad") & "</td><td>"
Response.Write rs("NombreFichero") & "</td><td>"


' Response.Write rs("Imagen") & "</td><td>"

Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If

rs.Close
Set rs = Nothing
%>
</table>

</body>
</html>
--------------------------------------------------------------------------------------------------------
La base de datos contiene:
Id_Usuario Autonumerico
Nombre Texto
Edad Texto
NombreFichero Texto
Imagen Objeto OLE

y Esta es la pagina de pruebas:
http://www.mejoresanuncios.com/upload/show.asp
Ojala y me puedan ayudar, les agradecería mucho.
  #2 (permalink)  
Antiguo 11/07/2008, 10:40
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

cual es el error que da?
  #3 (permalink)  
Antiguo 11/07/2008, 11:15
 
Fecha de Ingreso: febrero-2005
Mensajes: 3
Antigüedad: 19 años, 4 meses
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

yo creo que en lugar del Nombre del fichero, deberias poner la ruta de la imagen.
Es decir. Ejemplo:

<%vimagen = "upload/" & rs("NombreFichero")%>

Probalo a ver que tal te va.
Saludos!
  #4 (permalink)  
Antiguo 11/07/2008, 11:40
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

claro amigo el campo tipo ole lo que hace es cargarte la imagen en la db y eso hace que cada vez que pongas un imagen se te ponga super pesada debes poner un campo tipo memo por si el nombre es algo largo y cargar el path y el nombre de la imagen para que cuando valla a cargarlo lo busque donde esta la imagen
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #5 (permalink)  
Antiguo 14/07/2008, 14:18
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 15 años, 11 meses
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

Hola amigos, muchas gracias por sus respuestas...probe lo que me dijeron, pero me muestra basura en el campo de imagen, ya cambien el campo de objeto OLE a tipo MEMO, y me sigue mostrando basura.

<%
' -- show.asp --
' Generates a list of uploaded files

Response.Buffer = True

' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("usuarios.mdb")
%>
<html>
<head>
<title>Inserts Images into Database</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>Mostrando datos</b><br>
<a href="form.html">Haz clic para insertar otro registro</a>
</p>

<table width="700" border="1" cellspacing="0" cellpadding="0" bgcolor="#99FFCC" bordercolor="#FFFFFF" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [ID_Usuario],[Nombre],[Edad],[NombreFichero],[Imagen] from usuarios order by [ID_Usuario] desc", connStr, 3, 4

If Not rs.EOF Then
Response.Write "<tr><td colspan=""7"" align=""center""><i>"
Response.Write "No. de Registros: " & rs.RecordCount
'Response.Write ", Table : Files</i><br>"
Response.Write "</td></tr>"

While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("ID_Usuario") & "</td><td>"
Response.Write rs("Nombre") & "</a></td><td>"
Response.Write rs("Edad") & "</td><td>"

Imagen = "upload/" & rs("NombreFichero")


Response.Write rs("Imagen") & "</td><td>"


Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If

rs.Close
Set rs = Nothing
%>
</table>

</body>
</html>


si pongo solo Imagen = "upload/"
Response.Write rs("Imagen") tambien me muestra basura

que estoy haciendo mal?
  #6 (permalink)  
Antiguo 15/07/2008, 00:34
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

campo "OLE".... datos binarios
intenta esto:
Cita:
response.BinaryWrite rs("imagen")
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #7 (permalink)  
Antiguo 17/07/2008, 08:16
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 15 años, 11 meses
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

Igual Shiryu_Libra con response.BinaryWrite rs("imagen") me manda esto: ÿØÿàJFIF, gracias por tu colaboracion.
  #8 (permalink)  
Antiguo 17/07/2008, 10:44
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 15 años, 11 meses
Puntos: 0
De acuerdo Cargar y recuperar imagen en ASP, ayuda por favor!...

Hola, ayuda porfa, ya casi lo logro!, lo que quiero es mostrar una pequeña imagen en el campo de mi tabla y al momento de darle clic, me ligue a la misma imagen mas ampliada junto con sus datos.
Mi pagina de prueba esta en: http://www.mejoresanuncios.com/show.asp
Le agradesco su colaboración...

Este es codigo show.asp
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [ID],[File Name],[File Size],[File Data],[Content Type],[Titulo],[Descripcion],[Estado],[Ciudad],[Direccion],[Telefono],[Email] from Files order by [ID] desc", connStr, 3, 4

If Not rs.EOF Then
Response.Write "<tr><td colspan=""7"" align=""center"">"
Response.Write "No. de Anuncios:" & rs.RecordCount
'Response.Write ", Table : Files</i><br>"
'Response.Write "</td></tr>"

'Imprimir los nombres de campo mediante algunos métodos y propiedades del
' objeto Recordset.
Response.Write "<tr>"

'Por cada columna de la fila actual...
For i = 5 to (rs.Fields.Count - 1)
' escribir el nombre de campo.
Response.Write "<td> <font face=&quot;MS Gothic&quot;><B>" & rs(i).Name & "</B></font></td>"
Next

'Response.Write "<td><font face=&quot;MS Gothic&quot;><B>Delete</B></font></td>"
Response.Write "</tr>"

While Not rs.EOF
Response.Write "<tr><td>"
'Response.Write rs("ID") & "</td><td>"
' Response.Write "<a href=""file.asp?ID=" & rs("ID") & """>"
' Response.Write rs("File Name") & "</a></td><td>"
' Response.Write rs("File Size") & "</td><td>"
' Response.Write rs("File Data") & "</td><td>"
' Response.Write rs("Content Type") & "</td><td>"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """>"
Response.Write rs("Titulo") & "</td><td>"
Response.Write rs("Descripcion") & "</td><td>"
Response.Write rs("Estado") & "</td><td>"
Response.Write rs("Ciudad") & "</td><td>"
Response.Write rs("Direccion") & "</td><td>"
Response.Write rs("Telefono") & "</td><td>"
Response.Write rs("Email") & "</td><td>"

Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If

rs.Close
Set rs = Nothing
%>
  #9 (permalink)  
Antiguo 17/07/2008, 10:47
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

pero la imagen la deseas mirar a un lado del anuncio? por que di click sobre el restaurant, y salio bien la imagen

???
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #10 (permalink)  
Antiguo 17/07/2008, 18:31
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 15 años, 11 meses
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

La imagen Deseo que se muestre aun lado del titulo, que es el campo File data que contiene binarios largos en la bd, pero si lo pongo: Response.Write rs("File Data") & "</td><td>"
me manda basura.

al momento que de clic en la imagen, me debe mandar la misma imagen ampliada, junto con los mismo datos en una pagina independiente.

similar a esta pagina: http://www.zihuadirectorio.com/clasificados/

Nose si me explique. Gracias por su atencion!
  #11 (permalink)  
Antiguo 21/07/2008, 19:44
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 15 años, 11 meses
Puntos: 0
recuperar imagen y datos en ASP

Hola, alguien me puede decir como mostrar una imagen con su descripcion en ASP, dando clic a la misma imagen. la bd esta en Acccess.
el codigo es:

<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [ID],[File Name],[File Size],[File Data],[Content Type],[Foto],[Titulo],[Descripcion],[Estado],[Ciudad],[Direccion],[Telefono],[Email] from Files order by [ID] desc", connStr, 3, 4

If Not rs.EOF Then
Response.Write "<tr><td bgcolor=99FF99 colspan=""7"" align=""center"">"
Response.Write "No. de Anuncios:" & rs.RecordCount
'Response.Write ", Table : Files</i><br>"
'Response.Write "</td></tr>"

'Imprimir los nombres de campo mediante algunos métodos y propiedades del
' objeto Recordset.
' Response.Write "<tr>"

'Por cada columna de la fila actual...
' For i = 5 to (rs.Fields.Count - 1)
' escribir el nombre de campo.
' Response.Write "<td> <font face=&quot;MS Gothic&quot;><B>" & rs(i).Name & "</B></font></td>"
' Next

'Response.Write "<td><font face=&quot;MS Gothic&quot;><B>Delete</B></font></td>"
' Response.Write "</tr>"

While Not rs.EOF
Response.Write "<tr><td width=50>"
'Response.Write rs("ID") & "</td><td>"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """><img src=""file.asp?ID=" & rs("ID") & """>"


' Response.Write rs("File Name") & "</a></td><td>"
' Response.Write rs("File Size") & "</td><td>"


' Response.Write rs("File Data") & "</td><td>"
' Response.Write rs("Content Type") & "</td><td>"



Response.Write rs("Foto") & "</td><td>"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """>"
Response.Write rs("Titulo") & "</td><td>"
Response.Write rs("Descripcion") & "</td><td>"
' Response.Write rs("Estado") & "</td><td>"
' Response.Write rs("Ciudad") & "</td><td>"
' Response.Write rs("Direccion") & "</td><td>"
'Response.Write rs("Telefono") & "</td><td>"
'Response.Write rs("Email") & "</td><td>"

Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If

rs.Close
Set rs = Nothing
%>
  #12 (permalink)  
Antiguo 13/11/2008, 20:03
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 15 años, 11 meses
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

Gracias a todos por su ayuda ya lo resolvi!
  #13 (permalink)  
Antiguo 14/11/2008, 05:17
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

4 meses despùes?
  #14 (permalink)  
Antiguo 14/11/2008, 11:06
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

Bueno, se demoró, pero complió el objetivo
__________________
...___...
  #15 (permalink)  
Antiguo 31/05/2009, 09:03
 
Fecha de Ingreso: mayo-2009
Mensajes: 3
Antigüedad: 15 años
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

Cita:
Iniciado por rtblanco Ver Mensaje
Gracias a todos por su ayuda ya lo resolvi!
Hola amigo!, tengo el mismo problema que se te presentaba ati. intento cargar imagenes en una base de datos access con ASP y al utilzar el objeto OLE me carga tambien basura. agradeceria muchisimo por tu parte que me pasaras la solucion que por lo que veo tanto te costo, he estao mirando en foros y no me saben ayudar en ningun otro. Muchas gracias por todo y perdona las molestias ;)
  #16 (permalink)  
Antiguo 31/05/2009, 10:55
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

hola amigo repito lo que puse mas arriba el objeto ole carga la imagen en la base de datos haciendo que esta se ponga pesada y hasta inmanejable, lo mejor es que pongas un campo memo donde guardes ahi la ruta donde se encuentra el archivo y cuando quieras mostrarlo pones la direccion con el nombre y listo.
espero te sea util
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #17 (permalink)  
Antiguo 01/06/2009, 10:06
 
Fecha de Ingreso: mayo-2009
Mensajes: 3
Antigüedad: 15 años
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

HOla amigos, muchas gracias por la ayuda, ya pude resolver el problema de mostrar imagenes cargadas en una BD access a traves de ASP, aki os dejo la solucion. Pero se me plantea otro problema, me gustaria saber si es posible poder cargar las imagenes desde el entorno grafico de asp como por ejemplo en el tuento o facebook q pulsas un boton de "Examinar" buscas la imagen y asi la indexa a la Base de datos, seria mucho mas comodo que tener que estar abriendo la base de datos continuamente cada vez que kiera indexar una imagen nueva. Muchas gracias por todo. Un AMIGOS ;)
Aqui os dejo mi solucion a mi problema anterior:

<%Option Explicit%>
<!--#include file="adovbs.inc"-->
<!--#include file="conexion.asp"-->


<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
</head>

<body>





<%
dim RS
'Creamos los objectos a usar.
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.ActiveConnection=conexion
'Conectamos a la conexion a la base de datos.

RS.Source = "SELECT * FROM IMAGENES"
'Abrimos la tabla pidiendo todos sus registros.
RS.Open
Do While not RS.EOF
'Mostramos el nombre del articulo.
Response.Write RS("articulo") & " - "
'Ahora el path de la imagen.
Response.Write RS("imagen") & " - "
'Y la siguiente linea muestra la imagen.
Response.Write "<IMG SRC="""&RS("imagen")&""">"
Response.Write "<BR>"
RS.MoveNext
Loop
'Cerramos y eliminamos todo.
RS.Close
Conexion.Close
Set RS = Nothing
Set Conexion = Nothing
%>




</body>
</html>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:44.