Problemas al crear las miniaturas
Publicado por yazo (2 intervenciones) el 16/01/2006 11:24:40
Hola a todos:
Tengo un pequeño problemilla al ejecutar un codigo, el codigo se basa en dos cosas, leer de una base de datos y crear las miniaturas, el caso es que por separado funciona correctamente, pero al unirlos tengo un problemilla.
El codigo es el siguiente:
Código:
<HTML>
<HEAD><TITLE>Crear Miniaturas</TITLE></HEAD>
<BODY>
<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("../Catalogo.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT * FROM articulosConsulta ORDER BY REF")
Do While Not registros.EOF
%>
<%
' Crear una instancia del componente AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Establecer la ruta a la imagen a tratar
Path = Server.MapPath("IMAGEN.JPG")
' Abrir la imagen
Jpeg.Open Path
' Reducimos la longitud de la imagen
L = 200
' Redimensinamos la imagen, manteniendo el aspecto
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
jpeg.Width = L
jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
jpeg.Height = L
jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
' Opcionalmente aplicamos un filtro de afinamiento a la imagen
Jpeg.Sharpen 1, 150
' Finalmente guardamos la nueva imagen en el servidor
Jpeg.Save Server.MapPath("MINIATURA.JPG")
%>
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>
</BODY>
</HTML>
Hay dos cosas que me gustaría cambiar de este codigo pero no se.
La primera es cambiar "IMAGEN.JPG" por la informacion de una columna de la bbdd que se llama REF.
Lo mismo me gustaría hacer con MINIATURA.JPG
Para mostrar los registros lo hago con:
Código:
catalogo/<%= registros.Fields("REF").Value %>.jpg
,pero al introducirlo en este codigo no funciona.
Cabe aclarar que las imaganes del catalogo estan en una carpeta llamada "catalogo/", en el cual estan todas las imagenes con el valor del campo REF + .jpg, es decir, imagenes jpg con el valor del campo REF.
Espero vuestra ayuda.
Muchas Gracias
Tengo un pequeño problemilla al ejecutar un codigo, el codigo se basa en dos cosas, leer de una base de datos y crear las miniaturas, el caso es que por separado funciona correctamente, pero al unirlos tengo un problemilla.
El codigo es el siguiente:
Código:
<HTML>
<HEAD><TITLE>Crear Miniaturas</TITLE></HEAD>
<BODY>
<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("../Catalogo.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT * FROM articulosConsulta ORDER BY REF")
Do While Not registros.EOF
%>
<%
' Crear una instancia del componente AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Establecer la ruta a la imagen a tratar
Path = Server.MapPath("IMAGEN.JPG")
' Abrir la imagen
Jpeg.Open Path
' Reducimos la longitud de la imagen
L = 200
' Redimensinamos la imagen, manteniendo el aspecto
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
jpeg.Width = L
jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
jpeg.Height = L
jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
' Opcionalmente aplicamos un filtro de afinamiento a la imagen
Jpeg.Sharpen 1, 150
' Finalmente guardamos la nueva imagen en el servidor
Jpeg.Save Server.MapPath("MINIATURA.JPG")
%>
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>
</BODY>
</HTML>
Hay dos cosas que me gustaría cambiar de este codigo pero no se.
La primera es cambiar "IMAGEN.JPG" por la informacion de una columna de la bbdd que se llama REF.
Lo mismo me gustaría hacer con MINIATURA.JPG
Para mostrar los registros lo hago con:
Código:
catalogo/<%= registros.Fields("REF").Value %>.jpg
,pero al introducirlo en este codigo no funciona.
Cabe aclarar que las imaganes del catalogo estan en una carpeta llamada "catalogo/", en el cual estan todas las imagenes con el valor del campo REF + .jpg, es decir, imagenes jpg con el valor del campo REF.
Espero vuestra ayuda.
Muchas Gracias
Valora esta pregunta
0