La copia del código es la siguiente:
<%
'+-----------------------------------+
'| Configuración variable
'+-----------------------------------+
ctitle = "Todas las imágenes cargadas (nota: las siguientes son todas las imágenes debajo de la carpeta de imágenes, ¡no todas son imágenes válidas!)" 'Nombre
cPictype = "JPEG, JPG, GIF, PNG, BMP" 'Tipo de imagen (usando "," separa los formatos de imagen)
Cheight = 120'Thongnail Altura
cwidth = 120'Thumbout Ancho
ceachlinemax = 5'Number of Pictures mostradas por línea
ceachpagemax = 20'Number de imágenes que se muestran por página
pic_path = "/uploadpic/" 'Establezca la ruta donde se encuentra la imagen
'+-----------------------------------+
'| Defina la función
'+-----------------------------------+
FunctionGetext (nombre)
getext = Right (nombre, 3)
Función final
FunctionIspic (nombre de archivo, pictipo)
ext = getext (nombre de archivo)
ispic = falso
typeList = split (pictype, ",")
Forii = lbound (typelist) toubund (typelist)
Ifucase (ext) = ucase (typelist (ii)) entonces
ispic = verdadero
Salir
Endif
Próximo
Función final
FunctionPagebar (página, pageTotal)
Response.write "[<<href =" & request.ServerVariAnbles ("script_name") & "? page =" & (page-1) & "title = página anterior> página anterior </a>]"
Response.write "<ahref =" & request.ServerVariAbles ("script_name") & "? page = 1title = home> <<</a>"
i = Pagestart
Dowhilei <página
Response.write "<ahref =" & request.ServerVariAbles ("script_name") & "? page =" & i & "title =" "página" & i & ""> ["& i &"] </a> "
i = i+1