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

subir imagen como texto

Estas en el tema de subir imagen como texto en el foro de ASP Clásico en Foros del Web. hola amigos tengo un nuevo problema algun sabe como subir una imagen a una database pero que me quede guardada como texto para despues llamarla ...
  #1 (permalink)  
Antiguo 02/11/2007, 04:45
 
Fecha de Ingreso: octubre-2007
Mensajes: 106
Antigüedad: 17 años, 7 meses
Puntos: 0
Pregunta subir imagen como texto

hola amigos tengo un nuevo problema algun sabe como subir una imagen a una database pero que me quede guardada como texto para despues llamarla desde mi pagina......muchas gracias espero que alguien me ayude nuevamente con mis problemas.....
  #2 (permalink)  
Antiguo 02/11/2007, 05:46
Avatar de cjzava  
Fecha de Ingreso: enero-2006
Mensajes: 41
Antigüedad: 19 años, 3 meses
Puntos: 1
Re: subir imagen como texto

lo que tendrias que hacer seria poner un campo de texto llamado imagen en la base y cuando subis la imagen al sitio poder recuperlo y guardalo en la base de datos, despues cuando tenes que mostarlo pones la ruta de la imagen escrita en html fija en la pagina y en donde hace refenecia al la imagen pones la llamada de la base de datos
<img border="0" src="images/regalos-para-culples-a.jpg">
<img border="0" src="images/<%=rs("campo de la base datos de la imagen")%>">
espero que te sirva
  #3 (permalink)  
Antiguo 02/11/2007, 06:58
Avatar de mc_quake  
Fecha de Ingreso: enero-2006
Ubicación: www.ecocargo.cl
Mensajes: 683
Antigüedad: 19 años, 3 meses
Puntos: 8
Re: subir imagen como texto

<%
Function PictNew(imagen)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath("_file/"& imagen)) Then
If NOT fso.FileExists(Server.MapPath("_file/mk_"&imagen)) Then
'===========================================

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.mappath("_file") & "\" & imagen
Jpeg.Open Path
width=jpeg.originalwidth
height=jpeg.originalheight
if width > 217 then
height2=(217*height)/width
Jpeg.Width = 217
Jpeg.Height = height2
end if
Jpeg.Interpolation = 2 'Bicubic
Jpeg.save server.mappath("_file") & "\mk_"& imagen
ch_archivo = "mk_" & imagen
'===========================================

End If
End If
End Function
__________________
Mc_Quake

Para ayudar en lo que se pueda:Zzz:
  #4 (permalink)  
Antiguo 02/11/2007, 13:44
 
Fecha de Ingreso: octubre-2007
Mensajes: 106
Antigüedad: 17 años, 7 meses
Puntos: 0
Re: subir imagen como texto

sabes que lo primero comprendo pero ese codigo no lo entiendo
donde coloco el nombre de la base de datos y eso me lo podrias explicar mejor porfavor te lo agradeceria mucho....
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 11:21.