قم بإرسال جزء من التعليمات البرمجية لـ ASP لعرض جميع الصور الموجودة في المجلد في صفحة واحدة، مما يساعد على قراءة الصور الموجودة ضمن المجلد الحالي وقراءتها والتحكم فيها. انسخ رمز الكود كما يلي:
<%
خافت fso،objFolder،objFiles
قائمة الملفات قاتمة
تعيين fso=Server.CreateObject(scripting.FileSystemObject)
تعيين objFolder=fso.GetFolder(server.MapPath(thumbs))
قم بتعيين objFiles=objFolder.Files
'حلقة لإخراج أسماء الملفات الموجودة ضمن مسار المجلد
لكل objFile في objFiles
إذا كان getExt(objFile.name)=gif أو getExt(objFile.name)=jpg أو getExt(objFile.name)=jpeg ثم
filelist = filelist<img src=&objFile.name>
نهاية إذا
التالي
"حرر الكائن."
تعيين objFolder = لا شيء
اضبط fso=لا شيء
"الحصول على نوع الملف
الدالة getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,.)))
وظيفة النهاية
%>
<%=قائمة الملفات%>
بناءً على الكود أعلاه، يمكن إجراء التطوير الثانوي لإثارة ضجة.