<%
'------------------------------------------------------------------------------------------------------------------------
' Visor web de imagenes situadas en una carpeta. v1.0.0
' El nombre de los ficheros debe ser el mismo diferenciandose uno de otros en un número. ejemplo: foto1.jpg, foto2.jpg....
' La numeración del nombre de los ficheros debe ser consecutiva.
' Se permite el uso del codigo siempre y cuando se indique la procedencia y se ponga un enlace a la siguiente direccion:
'
' VISOR-WEB DE IMAGENES:
' http://www.visorweb.tk
' http://www.opcionweb.com/visorweb
'
' Desarrollado por Pancho Macías (Salamanca-España).
'
' Leer condiciones de uso en el fichero: condiciones.txt
' Leer documentacion del funcionamiento y requisitos en el fichero: requisitos.txt
'------------------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------
'-- INICIO DE LAS VARIABLES DE CONFIGURACION DEL ENTRONO ------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------
' La configuración más sencilla solo necesita especificar el número total de imágenes que hay en la carpeta.
' Cambia donde pone XXX por el número de imágenes que tiene la carpeta.
' En esta configuración por defecto las imágenes se deben llamar foto seguidas de un numero consecutivo.
' El tipo de imagen será JPG. Esta debe ser la extensión que tengan los ficheros.
' La carpeta con las imágenes pequeñas se llamara IMGP
' La carpeta con las imágenes grandes se llamara IMGG
' Por defecto las imágenes grandes se abren en una nueva ventana.
' Para un correcto funcionamiento del código se recomienda no cambiar el nombre de las variables.
'--------------------------------------------------------------------------------------------------------------------------------'
Cuantas_imagenes_hay_en_la_carpeta = 5 ' Escribe el total de Imagenes que hay en la carpeta.'
Total_fila = 6 ' Escribe el numero de filas que se desea visualizar en pantalla. (Mayor de cero). Por defecto 6'
Total_Columna = 4 ' Escribe el numero de Columnas que se desea visualizar en pantalla. (Mayor de cero). Por defecto 4'
Nombre_comun_de_los_ficheros_de_imagen = "foto" ' Nombre común que tienen los ficheros. Por defecto "foto"'
Extension_de_los_ficheros_de_imagen = "jpeg" ' Extension que tienen todos los ficheros. Por defecto "jpg"'
Nombre_de_la_Carpeta_de_imagenes_grandes = "imgg" ' Nombre de la carpeta de imagenes grandes. Por defecto "imgg"'
NombreCarpetap = "imgp" ' Nombre de la carpeta de imagenes pequeñas. Por defecto "imgp"'
colorfondoceldaarriba = "#000000" ' Color del relleno de la celda de la imagen. Por defecto negro "#000000"'
colorfondoceldaabajo = "#EEEEEE" ' Color del relleno de la celda del nombre de la imagen. Por defecto gris claro "#EEEEEE"'
Como_abrir_la_imagen_grande = "_blank" ' Definir si la imagen seleccionada se abre en una nuevapágina "_blank" o en la misma página "_self"
'--------------------------------------------------------------------------------------------------------------------------------
'-- FIN DE LAS VARIABLES DE CONFIGURACION DEL ENTRONO ---------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------
%>
VISOR-WEB DE IMAGENES v1.0.0 - Opcionweb.com
<%
Dim cont_fila, cont_columna , cont_imagenes, cont_imagenes_fin, resto, img_por_pag , Total_pag , PagAct, Volver_Pag_Actual
Session("Total_imagenes")=Cuantas_imagenes_hay_en_la_carpeta
Session("Nombrefichero")=Nombre_comun_de_los_ficheros_de_imagen
Session("Extensionfichero")=Extension_de_los_ficheros_de_imagen
Session("NombreCarpetag")=Nombre_de_la_Carpeta_de_imagenes_grandes
Session("comoabrirlaimagen")=Como_abrir_la_imagen_grande
Img_por_pag = Total_fila*Total_Columna ' Imagenes por página
Total_pag = Session("Total_imagenes")\img_por_pag ' Total de páginas
If Total_pag Mod img_por_pag >0 then Total_pag=Total_pag+1 ' Si el numero de páginas entre las imagenes por páginas no da cero necesitamos una página mas.
PagAct=Cint(Request.Querystring("datpag"))
If PagAct<=0 or PagAct="" then PagAct=1
Session("Volver_Pag_Actual")=Img_por_pag
cont_fila=0
cont_columna=0
cont_imagenes=(PagAct*Img_por_pag)-Img_por_pag+1
cont_imagenes_fin=(PagAct*Img_por_pag)
if cont_imagenes_fin>=Session("Total_imagenes") then cont_imagenes_fin=Session("Total_imagenes")
resto=0
%>
Código
VISOR-WEB de Imágenes desarrollado por Pancho Macías - OpcionWeb.com
Código
VISOR-WEB de Imágenes desarrollado por Pancho Macías - OpcionWeb.com
|
<%
Dim ContPag
contPag=1 'Contador de Páginas
Do while contPag<=Total_pag-1
If ContPag=PagAct then %>
<%Response.write ContPag%><%Response.write " - "
else %>
><%Response.write ContPag%><%Response.write " - "
end if
ContPag=ContPag+1 'Valor de la Página siguiente
loop
'----------------------------- Inicio del codigo que Escribe la última página sin poner el - al final.
If ContPag=PagAct then %>
<%Response.write ContPag%><%
else %>
><%Response.write ContPag%><%
end if
'----------------------------- Fin del codigo que Escribe la última página sin poner el - al final.
%>
|