A cópia do código é a seguinte:
<%
'+-----------------------------------+
'| Configurações variáveis
'+-----------------------------------+
ctitle = "Todas as imagens enviadas (Nota: a seguir estão todas as imagens abaixo da pasta de fotos, nem todas são imagens válidas!)" 'Nome
cpictype = "jpeg, jpg, gif, png, bmp" 'tipo de imagem (usando "," separa os formatos de imagem)
Chega = 120 'Altura da Túmula
CWIDTH = 120 'Largura da THUMBOUT
CeachlineMax = 5'Number of Pictures exibidos por linha
CeachpageMax = 20'Number of Pictures exibidos por página
pic_path = "/uploadpic/" 'Defina o caminho onde a imagem está localizada
'+-----------------------------------+
'| Defina a função
'+-----------------------------------+
FunctionGetext (nome)
getExt = certo (nome, 3)
Função final
Functionispic (nome do arquivo, pictype)
ext = getExt (nome do arquivo)
ispic = falso
typelist = split (pictype, ",")
Forii = lbound (typelist) toubound (listada de typels)
Ifucase (ext) = ucase (lista de typel (ii)) então
ispic = verdadeiro
Exitfor
Endif
Próximo
Função final
FunctionPageBar (página, pagetotal)
Response.Write "[<ahref =" & request.servervariables ("script_name") & "? Page =" & (Página-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 =" "Page" & i & ""> ["& i &"] </a> "
i = i+1