نسخة الكود كما يلي:
<٪
'+---------------------------------+
'| إعدادات متغيرة
'+---------------------------------+
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