Salinan kode adalah sebagai berikut:
<%
'+-----------------------------------+
'| Pengaturan Variabel
'+-----------------------------------+
ctitle = "Semua gambar yang diunggah (Catatan: Berikut ini adalah semua gambar di bawah folder gambar, tidak semua adalah gambar yang valid!)"
cpictype = "jpeg, jpg, gif, png, bmp" 'tipe gambar (menggunakan "," memisahkan format gambar)
Cheight = 120'Thumbnail Tinggi
cwidth = 120'thumbout Width
ceachlinemax = 5'number gambar ditampilkan per baris
ceachpagemax = 20'number gambar ditampilkan per halaman
pic_path = "/unggah/" 'atur jalan di mana gambar berada
'+-----------------------------------+
'| Tentukan fungsinya
'+-----------------------------------+
FunctionGetext (name)
getext = right (name, 3)
Fungsi endfungsi
Functionispic (nama file, pictype)
ext = getext (nama file)
ispic = false
Typelist = split (pictype, ",")
Forii = lbound (typelist) Toubound (Typelist)
Ifucase (ext) = ucase (typelist (ii)) lalu
ispic = true
Keluar
Endif
Berikutnya
Fungsi endfungsi
FunctionPageBar (halaman, pagetotal)
response.write "[<ahref =" & request.serverVariable ("script_name") & "? page =" & (halaman-1) & "title = halaman sebelumnya> halaman sebelumnya </a>]"
response.write "<ahref =" & request.serverVariable ("script_name") & "? page = 1title = home> <<</a>"
i = pagestart
Dowhilei <halaman
response.write "<ahref =" & request.
i = i+1