| |||
![]() 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..... |
| ||||
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
__________________ Para ayudar en lo que se pueda:Zzz: |
| |||
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.... |