sistema de gestión de imágenes asp

'Función: Genera miniaturas basadas en la imagen especificada

'Nota: La "ruta" mencionada a continuación es un valor relativo a la ruta relativa del archivo que llama a esta función

'Parámetros:

' s_OriginalPath: La ruta de la imagen original. Por ejemplo: imágenes o imágenes/

' n_MaxWidth: el ancho máximo de la imagen generada

' Si la miniatura que se muestra en primer plano es 100*100, entonces n_MaxWidth=100, n_MaxHeight =100.

' n_MaxHeight:

'Valor de retorno:

' Devuelve la ruta para generar miniaturas

'Manejo de errores:'

' Si se produce un error durante la ejecución de la función, se devolverá un código de error que comienza con "Error "

' Error_01: No se pudo crear el componente AspJpeg, el componente no se instaló y registrado correctamente

' Error_02: La imagen original no existe. Verifique el valor pasado al parámetro s_OriginalPath

' Error_03: No se pudo guardar la miniatura. Posibles razones: la dirección base para guardar la miniatura no existe; verifique el valor del parámetro s_OriginalPath; el directorio no tiene escritura; permiso; espacio en disco insuficiente

' Error_Other: Error desconocido

'Ejemplo de llamada:

' Dim sSmallPath 'La ruta de la miniatura

' sSmallPath = BuildSmallPic( "imágenes/image1.gif", "imágenes", 100, 100)

'===================== ======== ================================== ====

Función BuildSmallPic(s_OriginalPath, fileex,s_BuildBasePath, n_MaxWidth, n_MaxHeight)

Err.Next

'Comprueba si el componente se ha registrado

Dim AspJpeg

Establecer AspJpeg = Server.Createobject("Persits.Jpeg")

Si Err.Number <> 0 Entonces

On Err.> Err.Clear

BuildSmallPic = "Error_01 "

Salir de la función

End If 'Comprueba si la imagen original existe

Dim s_MapOriginalPath

s_ MapOriginalPath = Servidor.MapPath(s_OriginalPath)