复制代码代码如下:
-
'ตรวจสอบให้แน่ใจว่าคุณมีไฟล์ 6 dir _*. GIF!
'ใช่คุณสามารถคัดลอกของเราได้ถ้าคุณต้องการเช่นกัน .. :)
'http://line9.com/img/dir_dir.gif .. ฯลฯ
ฟังก์ชั่น showimagefortype (strname)
strtemp = strName
ถ้า strtemp <> "dir" แล้ว
strtemp = lcase (ขวา (strtemp, len (strtemp) - instrrev (strtemp, ".", -1, 1))))))))))))))))))))
สิ้นสุดถ้า
เลือก case strtemp
กรณี "dir"
strtemp = "dir"
กรณี "ASP"
strtemp = "asp"
กรณี "htm", "html"
strtemp = "htm"
กรณี "GIF", "JPG", "JPEG", "PNG", "TIF", "CPT", "BMP", "PCX", "TGA", "PSD", "EPS"
strtemp = "img"
กรณี "txt", "text", "dat", "bat", "sys"
strtemp = "txt"
กรณีอื่น
strtemp = "อื่น ๆ
สิ้นสุดเลือก
strtemp = "<img src =" "img/dir _" & strtemp & ". gif" "ความกว้าง = 16 ความสูง = 16 ชายแดน = 0>"
showimagefortype = strtemp
ฟังก์ชันสิ้นสุด
tek9 = request.querystring ("tek9")
ถ้า tek9 = "" แล้ว strpath = "myDirectory/" else strpath = tek9
ตั้งค่า objfso = server.createObject ("scripting.filesystemobject")
ตั้งค่า objfolder = objfso.getFolder (Server.mappath (strpath))
Response.write "<b> ดูไฟล์และโฟลเดอร์ของเราที่นี่: </b> <br>" & _
"<table border = 0> <tr> <td colspan = 2>" & _
"<img src =" "img/dir_dir_open.gif" "ความกว้าง = 16 ความสูง = 13 เส้นขอบ = 0> <font face = Arial
size = 2> <b> "& strpath &" </b> </font> </td> </tr> "
สำหรับแต่ละ objitem ใน objfolder.subfolders
ถ้า instr (1, objitem, "_vti", 1) = 0 แล้ว
Response.write "<tr> <td> <font face = arial size = 2>" & showimagefortype ("dir") & "" & _
"<a href =" "myfile.asp? tek9 =" & strpath & objitem.name & "/" ">" & _
"" & objitem.name & "</a> </font> </td> <td> </td> </tr>"
สิ้นสุดถ้า
ต่อไป
สำหรับแต่ละ objitem ใน objfolder.files
Response.write "<tr> <td> <font face = size Arial = 2>" & _
"" & showimagefortype (objitem.name) & "" & _
"<a href =" "" & strpath & objitem.name & "" ">" & objitem.name & "</a> </font> </td>" & _
"<td align = ขวา> <font face = size arial = 2>" & objitem.size & "</font> </td> </tr>"
ต่อไป
ตั้งค่า objitem = ไม่มีอะไร
ตั้งค่า objfolder = ไม่มีอะไร
ตั้งค่า objfso = ไม่มีอะไร
Response.write "</table>"
-