تصفح جميع الصور الموجودة أسفل المجلد

نسخة الكود كما يلي:

<٪

'+---------------------------------+

'| إعدادات متغيرة

'+---------------------------------+

ctitle = "جميع الصور التي تم تحميلها (ملاحظة: ما يلي جميع الصور أسفل مجلد الصورة ، وليس كلها صور صالحة!)" اسم

cpictype = "JPEG ، JPG ، GIF ، PNG ، BMP" 'نوع الصورة (باستخدام "،" يفصل تنسيقات الصور)

كتف = 120'Thumbnail ارتفاع

cwidth = 120'Thumbout عرض

Ceachlinemax = 5'number من الصور المعروضة لكل سطر

CeachPageMax = 20'number من الصور المعروضة لكل صفحة

PIC_PATH = "/TOPLOADPIC/" "قم بتعيين المسار الذي توجد فيه الصورة

'+---------------------------------+

'| تحديد الوظيفة

'+---------------------------------+

FunctionGetext (الاسم)

getext = الحق (الاسم ، 3)

الوظيفية

وظيفة (اسم الملف ، pictype)

تحويلة = getext (اسم الملف)

ispic = خطأ

typelist = انقسام (pictype ، "،")

forii = lbound (typelist) toubound (typelist)

ifucase (ext) = ucase (typelist (ii)) ثم

ispic = صحيح

الخروج

Endif

التالي

الوظيفية

وظيفة PageBar (صفحة ، pagetotal)

Response.write "[<ahref =" & request.servervariables ("script_name") & "؟ page =" & (page-1) & "title = private page> الصفحة السابقة </a>]"

Response.write "<ahref =" & request.servervariables ("script_name") & "؟ page = 1title = home> <<</a>"

أنا = Pagestart

Dowhilei <صفحة

Response.write "<ahref =" & request.servervariables ("script_name") و "؟ page =" & i & "title =" "page" & i & ""> ["& i &"] </a> "

i = i+1