ส่งโค้ดสำหรับ 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=nothing
ตั้งค่า fso=nothing
'รับประเภทไฟล์
ฟังก์ชัน getExt(str)
getExt = Lcase(ขวา(str,Len(str)-InstrRev(str,.)))
ฟังก์ชันสิ้นสุด
-
<%=รายการไฟล์%>
จากโค้ดข้างต้น การพัฒนาระดับรองสามารถทำได้เพื่อทำให้เกิดความยุ่งยาก